闭合平行多段线

GDFGFGF

(defun c:BH(/ HASNOPLINE I OBJ SS TJ)
  (setq ss (while (not ss) (setq ss (ssget '((0 . "ARC,*LINE"))))))
  (setq i -1)
  (setq tj t)
  (while (and tj (> (sslength ss) (1+ i)))
    (setq i (1+ i))
    (setq tj (vl-string-search
        "Polyline"
        (vla-get-ObjectName
   (setq obj (vlax-ename->vla-object (ssname ss i)))
        )
      )
    )
    (if (= tj nil)
      (setq hasNoPLine t)
    )
  )
  (if hasNoPLine
    (vl-cmdf "pedit" "m" ss "" "y" "j""""j"  ""  "c"  "" )
    (vl-cmdf "pedit" "m" ss "" "j" """j"  "" "c"  "" )
  )
(princ)
)
明经里找的，自己稍微改了下，  闭合平行多段线   

999999

顶起，，谢谢楼主分享

ice1

这是闭合多多断线的端点   

vladimirputin

非常不错的  代码，谢谢楼主分享啊。

jiangqian124

非常不错的  代码，谢谢楼主分享啊。

weimeng555

不知道是缺少什么内容，选中多根平行多段线后，提示：未选择有效对象。