yunfengning 发表于 2013-8-14 18:32:07

求圆环消重程序，可能有点难度哦

求圆环消重程序，若圆环有重叠或相互接触，则保留任一一个，没有重叠的圆环不处理。

ZZXXQQ 发表于 2013-8-14 22:21:28

;删重圆环 明经 ZZXXQQ 2013.8.14
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 2) (43 . 1)))) (progn
(setq i -1)
(while (setq en (ssname ss (setq i (1+ i))))
   (vla-getboundingbox (vlax-ename->vla-object en) 'minpoint 'maxpoint)
   (setq pmax (vlax-safearray->list maxpoint)
         pmin (vlax-safearray->list minpoint))
   (if (setq ss1 (ssget "C" pmin pmax '((0 . "LWPOLYLINE") (90 . 2) (43 . 1))))
    (if (> (sslength ss1) 1) (progn
   (setq ss1 (ssdel en ss1))
   (setq j -1)
   (repeat (sslength ss1)
      (setq en1 (ssname ss1 (setq j (1+ J))))
      (ssdel en1 ss)
      (entdel en1)
   )
    ))
   )
)
))
(princ)
)

yunfengning 发表于 2013-8-15 09:00:35

cad2004 cad2010测试可用。
老大，太感谢了哈。

至今没学会 发表于 2020-6-18 15:02:32

怎么会错误呢，加载之后

香远益清 发表于 2020-7-29 10:09:19

测试没有反应

兔爸哥 发表于 2021-3-19 21:17:32

相交或者偏移的怎么删除

兔爸哥 发表于 2021-3-31 19:49:55

同心圆可以用吗？
页: [1]
查看完整版本: 求圆环消重程序，可能有点难度哦