如何将几条线段焊接成一个整体

thtanhao

(defun C:vvv (/ s1 n1 n e1 e2 z k a)
(vl-load-com)
(princ
"\n½«ËùѡʵÌåÁ¬³É¶àÒåÏߣ¬²¢ÅжÏÆäÊÇ·ñ±ÕºÏ. °æȨËùÓУºTH.ÑÔÎ÷Ôç¶þ"
)
(setq z (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "undo" "be")
(setq s1 (ssget))
(setq n1 (sslength s1))
(setq n 0)
(while (< n n1)
(setq e1 (ssname s1 n))
(setq e2 (entget e1))
(if (/= nil e2)
(progn
(setq a (cdr (assoc 0 e2)))
(if (= a "LINE")
(progn (command "pedit" e1 "y" "j" "all" "" "")
(setq k (entlast)) (if (/= (vlax-curve-isClosed k) t) (command "change" k "" "p" "c" 7 "")
(command "change" k "" "p" "c" 30 "")
)
)
(if (= a "arc")
(progn (command "pedit" e1 "y" "j" "all" "" "")
(setq k (entlast)) (if (/= (vlax-curve-isClosed k) t) (command "change" k "" "p" "c" 7 "")
(command "change" k "" "p" "c" 30 "")
)
)
)
)
)
) (setq n (1+ n))
)
(setvar "cmdecho" z)
(command "undo" "e")
(prin1)
)

liuliang

直接在命令行里输入不行吗？

liuliang

直接在命令行里输入就行了。

LCY-2003

各位大虾我很笨,还是没有懂,我用的是CAD2002,能不能再说得仔细一点,在这里先感谢了,