1、电脑打开CAD,然后画一个多段线。
2、画好多选线之后,在命令栏中输入命令PE,然后按空格键确定命令。
3、确定PE命令后,输入编辑定点E,然后按空格键确定。
4、确定E之后,载入I,按空格键确定。
5、确定I之后,在多段线上面找到要画点的位置,点击一下。
6、点击加点之后,如果要继续加点就输入I,不加点就输入X退出。
7、退出后,就可以看到多段线上加的点了。
【CTRL+右键】,【捕捉设置】里面,只捕捉【端点】,这样会提高绘制速度。
使用小插件来绘制点,代码如下:
(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】
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)