脚印2012 发表于 2024-5-2 15:24:27

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

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

你有种再说一遍 发表于 2024-5-2 17:59:49

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

love1030312 发表于 2024-5-2 19:39:24

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

脚印2012 发表于 2024-5-3 08:54:13

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

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

qazxswk 发表于 2024-5-3 14:18:15

本帖最后由 qazxswk 于 2024-5-3 14:50 编辑

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

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

guosheyang 发表于 2024-5-3 15:08:57

qselect应该可以啊

guosheyang 发表于 2024-5-3 15:14:36


Klein 发表于 2024-5-5 14:35:12

自带的快速选择就可以实现啊，不想用自带的，论坛搜小菜易选择也非常方便
页: [1]
查看完整版本: 求助，如何选择线段长度相等的所有线段？