跪求批量处理超短线程序！

依然小小鸟

本人是建模设计师 经常要处理大量的线段 然后导入建模软件建模 但是由于CAD进度不及建模软件 因此造成很多CAD里面的小短线 被建模软件识别到 不得已我只能一个一个手动去删除这些超短线。

所以我想跪求一个程序 能根据我自定义设定的长度  来识别在这个长度以下的短线 并标记或者亮显出来
这样能方面 我在CAD里面批量删除 或者处理这些短线
希望程序能识别 圆弧 多段线 线 样条曲线等等 各种类型的短线
谢谢大神们了

明_明

QSELECT应该就可以吧

xj6019

(DEFUN TAO-GET-LENGTH (ENT)
(vlax-curve-getDistAtParam ENT (vlax-curve-getEndParam ENT))
)

(defun c:NM (/ ss rc name len num i)
   (if (setq ss (ssget '((0 . "*LINE,ARC"))))
                 
     (progn
       ;(err-set (list '("cmdecho" 0) 0 nil))
       (if(null(setq rc(getdist "\n请输入容差<0.01>:")))(setq rc 0.01))
                         
       (setq i -1 num 0)
       (while (setq name (ssname ss (setq i (1+ i))))
                                 (setq len (TAO-GET-LENGTH name))
                                 (if (<= len rc)
                                   (progn (entdel name) (setq num (1+ num)))
                                 )
       )
       (princ(strcat "\n***共删除了 "(rtos num)" 条长度小于或等于 "(rtos rc)" 对象***"))
       ;(err-res)
                         (princ)
     )
   )
)

自贡黄明儒

楼主没有说清楚，多短的线叫短线呀？
框选或者全选，算出线的长度，删除短的不就行了？

依然小小鸟

自贡黄明儒 发表于 2023-12-12 10:39
楼主没有说清楚，多短的线叫短线呀？
框选或者全选，算出线的长度，删除短的不就行了？

多短的线叫短线呀？这个程序 可以让我来设定
比如设定0.1m以下为短线  设定0.01m以下为短线  设定0.001m以下为短线

loveu515

解决的真快，学习了

依然小小鸟

xj6019 发表于 2023-12-12 10:56
(DEFUN TAO-GET-LENGTH (ENT)
(vlax-curve-getDistAtParam ENT (vlax-curve-getEndParam ENT))
)

谢谢大神  能增加功能吗 先亮显或者标记这些短线 因为有的短线我不需要删除  先标记或者亮显有助于我判断

sniper1111

楼主，我倒模是直接用规整插件规整处理，然后消除重线

依然小小鸟

sniper1111 发表于 2023-12-12 16:20
楼主，我倒模是直接用规整插件规整处理，然后消除重线

规整插件 是哪个呢

117g

cad自带的很好用，没必要非要插件

命令: QSELECT