-
【CTRL+右键】,【捕捉设置】里面,只捕捉【端点】,这样会提高绘制速度。
-
使用小插件来绘制点,代码如下:
-
- 1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
(defun C:tes ( / #g1 &k1 &kw1 i pt ss1 x)
(
if
(
null
vlax-dump-
object
) (vl-load-com) )
(princ
"n请选择多段线"
)
(
if
(setq &kw1 (ssget '((0 .
"LWPOLYLINE"
))))
(progn
(
while
(setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1) #g1 (entget &k1))
(setq ss1 (mapcar
'cdr (vl-remove-if '
(lambda (X) (/= 10 (car x))) #g1)))
(setq i 0)
(repeat (length ss1)
(setq pt (nth i ss1) i (1+ i))
(entmake (list '(0 .
"POINT"
) (cons 10 pt)));绘制点
)
)
)
)
(princ)
);复制到记事本,以【.lsp】为后缀命名,打开CAD,autolisp加载了,命令【TES】
评论