串成多段线
www.dimcax.com
串成多段线
一点就连线，命令：p
10
什么意思，
一头雾水啊
好用吗,这个软件
啥子意思哦
意思：你只要点击一下几条线（首尾相连），就能串成一条多段线
是把多个线连成一根线吗？
是的
我看了你的程序，给你改了一下。
1.名给你改了，p是pan的快捷键，给改成pp
2.可多次连线。
3.给提示。
(defun c
p ()
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq ii 1 )
(while ii
(prompt "点要连的线:回车退出")
(setq a (entsel))
(if (= a nil)(setq ii nil i nil)
(progn
(setq en (entget (car a)) k (cdr (assoc 0 en)))
(if (or (= k "arc")(= k "line"))(command "pedit" a "y" "j" ) (command "pedit" a "j" ))
(setq i 1)
(while i
(prompt "点要连的线:回车退出")
(setq i (entsel))
(if (/= i nil)
(progn
(setq en (car i))
(command en)
)(command "" ""))
) ;--i
))
) ;---ii
(princ)
(setvar "osmode" os)
(setvar "cmdecho" cm)
)
gbg
试了一下，可以将圆、直线等串成多段线，如果能将样条曲线、椭圆等串成多段线就更好了