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木头台灯书桌摆件
CAD VBA的字符处理，要截取字符串中,前的字符，用...你这个其实和cad无关，只是vb的基础函数。。
Left+instr
str=Left("123,456",instr("123,456",","))
