yang686526

串成多段线
www.dimcax.com
串成多段线
一点就连线，命令：p
10

什么意思，

一头雾水啊

好用吗,这个软件

啥子意思哦

意思：你只要点击一下几条线（首尾相连），就能串成一条多段线

是把多个线连成一根线吗？

是的

我看了你的程序，给你改了一下。
1.名给你改了，p是pan的快捷键，给改成pp
2.可多次连线。
3.给提示。
(defun cp ()
(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

试了一下，可以将圆、直线等串成多段线，如果能将样条曲线、椭圆等串成多段线就更好了