求助，如何选择线段长度相等的所有线段？

脚印2012

求助，如何选择线段长度相等的所有线段？想要删除图里线段长度是20的所有线段，求助大神，谢谢。 （不能按照图层删除，应为里面还有相同的图层线段。会误删）

你有种再说一遍

遍历咯,还能有啥方法...

love1030312

小菜选择易 就能过滤选择中 然后E删除 搞定

脚印2012

你有种再说一遍 发表于 2024-5-2 17:59
遍历咯,还能有啥方法...

你好大神，能否帮忙写个lsp解决下。不太会

qazxswk

看了你那个文件，你那里面的线段长度，介于19-21之间，所以要做范围内删除。

2. (defun c:11(/ ss i j ent obj len)
   
3. (vl-load-com)
   
4. (setq ss (ssget "x" '((0 . "ARC,LWPOLYLINE,LINE,CIRCLE,SPLINE")))  i -1 j 0)
   
5. (while
   
6. (setq ent (ssname ss (setq i (1+ i))))
   
7. (setq obj (vlax-ename->vla-object ent))
   
8. (setq len (vlax-curve-getdistatparam obj(vlax-curve-getendparam obj)))
   
9. (if(and(< len 21.0)(> len 19.0))(progn(entdel ent)(setq j (+ j 1))))
   
10. )
    
11. (princ (strcat "已删除 "(itoa j) " 条线段。"))
    
12. (princ))

(defun c:11(/ ss i j ent obj len) <br /> (vl-load-com)<br /> (setq ss (ssget "x" '((0 . "ARC,LWPOLYLINE,LINE,CIRCLE,SPLINE")))  i -1 j 0)<br /> (while <br /> (setq ent (ssname ss (setq i (1+ i))))<br /> (setq obj (vlax-ename->vla-object ent))<br /> (setq len (vlax-curve-getdistatparam obj(vlax-curve-getendparam obj)))<br /> (if(and(< len 21.0)(> len 19.0))(progn(entdel ent)(setq j (+ j 1))))<br /> )<br /> (princ (strcat "已删除 "(itoa j) " 条线段。"))<br /> (princ))

guosheyang

qselect  应该可以啊

guosheyang

Klein

自带的快速选择就可以实现啊，不想用自带的，论坛搜小菜易选择也非常方便