Question

帮忙写个CAD LISP程序,就是选中一条线,然后与它相连的都转成同一条多段线.

,用CAD原有的命令就是:PE,(提示:选择对象),(选择对象之后又提示:是否转为多段线),然后我就按Y,然后就按J,然后就是ALL,就完成了.要按太多了,我想把它们缩化成一个命令

Answer 1

我建议还是要熟练运用快捷键，到哪都不会烦恼，一味的追求方便，有时候是对自己不利的，你说的那个连接命令其实不是你说的那么慢，我使用这个命令一般2-3秒就够了，熟练就好了，每出现一个命令框你还要看清按哪个键，肯定是慢得
你说的应该是这样的 PE+空格+M+空格 +选中你要连接的线+空格+空格+J+空格+空格，搞定 这个方法不行立刻使用第二种：F+空格+R+空格。一下就能连上 就这两种变换使用

Answer 2

;略作修改
(defun c:pp()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
(setvar "peditaccept" 1) ;加入这个系统变量的代码
(if (setq ngc01 (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(command "_pedit" "m" ngc01 "" "j" "0.1" "")
)
(setvar "cmdecho" cm)
(princ)
)

追问

我把你的文字复制在LISP文件里再加载,用不了呀
我要的是与它相连的线都聚合