(command)修改为：
(command "c")就可以绘制了
如果要绘制圆形多段线的话，有简单的绘制方法：
(defun C:tes ( / @p1 @p2)
(VL-LOAD-COM)
(if(setq @p1 (getpoint "\n请输入多段线第一点"))
(progn
(if (setq @p2 (getpoint @p1 "\n请输入多段线第二点"))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 2) '(70 . 1) '(43 . 0.5) (cons 10 @p1) '(42 . 1) (cons 10 @p2) '(42 . 1)))
);90是2两个点，70表示封闭1，不封闭0；43是线宽，42是凸起；当然可以加入图层:(cons 8 tc)
)
)
(prin1)
)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024