GDFGFGF 发表于 2020-12-14 12:54:14

闭合平行多段线



(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 发表于 2021-1-12 08:16:28

顶起，，谢谢楼主分享

ice1 发表于 2023-7-15 03:31:39

这是闭合多多断线的端点   

vladimirputin 发表于 2023-7-15 16:10:59

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

jiangqian124 发表于 2023-11-18 01:42:26

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

weimeng555 发表于 2024-2-23 11:12:24

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

下文没句号。 发表于 2024-6-24 23:00:41

这是闭合U字形和异形的多段线可以用平行线必须要有一头有线连接上的才能闭合为包围盒。
页: [1]
查看完整版本: 闭合平行多段线