闭合多义线

726613

开心版主您好，您的【開金工具箱】中闭合多义线的命令

(defun c:KJ_XBH (/ ssa ssa-ent ent-p i)
     (setvar "cmdecho" 0) ;指令执行过程不响应
     (PRINC "\n【開金工具箱】---将所选直线变成闭合多义线功能")
(princ "\n-->请选取要闭合的直线.....")
(command "undo" "be");设置返回起始点
(setq ssa (ssget))
(setq i 0)
(while (< i (sslength ssa))
(setq ssa-ent (ssname ssa i))
(setq ent-p (cdr(assoc 0 (entget ssa-ent))))
(if (not (null ent-p));判断原图元是否已串入多义线
(if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
(command "pedit" ssa-ent "j" ssa "" "")
(command "pedit" ssa-ent "y" "j" ssa "" "")
))
(setq i (1+ i))
)
(command "undo" "e");设置返回终止点
     (PRINC "\n★★★欢迎使用--《開金工具箱》--★★★      将所选直线变成闭合多义线完成！")(PRINC))

有时候不能闭合图形，有时候可以。会出现如下：



请问开心版主，如何才能解决，请指点谢谢

chenyizhen28

;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
      (command "PEDITACCEPT" "1")
(if ss
      (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
      (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
))


用我编写这个吧。

726613

chenyizhen28 发表于 2013-7-9 21:13
;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 : ")

谢谢您的指教

664571221

这个功能是干啥的啊