cadvba裁剪(自编cadvba宏程序一个,求一个lisp调用程序,要用...)

案例 2020-01-15 10:37:04

CAD中VBA二次开发
同意楼上,想要自己做offset的效果是很复杂的,你可以试下这个(用VBA调用lisp语句),其中pause表示等待用户输入,在这个例子里表示由用户鼠标点取便宜方向。
ThisDrawing.SendCommand "(command ""_.offset"" 5 (entlast) pause)" & vbCr
自编cadvba宏程序一个,求一个lisp调用程序,要用...
(defun c:dm ()
(command "-vbarun" "aaa.bbb")
)

上面的AAA是指你已经加载了的VBA宏,BBB是指宏里的模块

Z76-1017木头台灯书桌摆件Z76-1017木头台灯书桌摆件


CAD VBA的字符处理,要截取字符串中,前的字符,用...
你这个其实和cad无关,只是vb的基础函数。。
Left+instr
str=Left("123,456",instr("123,456",","))