删除指定长度的行

Emily_83 · 发表于 2022-7-5 20:04:00

大家下午好，

我想知道这里是否有人可以帮助我，我在网上做了一个搜索，在这里试图找到我想要什么，但没有运气。

我需要擦除一整堆长度从1.25到3的行，我需要在多个外部参照中执行此操作，刚刚意识到不能在脚本中使用QSELECT，而SSX命令也不能完成此操作，

有没有人有脚本/lisp例程来删除多个图形中指定长度的线条？

我希望这足够的信息。

干杯

艾米丽

Dadgad · 发表于 2022-7-5 20:09:50

您可以改用FILTER命令吗？
充分描述后，请确保将过滤器保存为
后续使用。

Emily_83 · 发表于 2022-7-5 20:12:20

嗨，Dadgad，

我以前没有真正使用过Filter命令，我之前尝试过使用它，但当我选择一行添加到过滤器中时，它没有列出它的长度，尽管我不熟悉Filter命令，但我不确定它是否会起作用。

Tharwat · 发表于 2022-7-5 20:16:29

试试这个。。。

copy


(defun c:Test (/ ss i sn l)
 (if (setq ss (ssget "_:L" '((0 . "LINE"))))
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (setq l (distance (cdr (assoc 10 (entget sn))) (cdr (assoc 11 (entget sn)))))
     (if (or (eq l 1.25) (eq l 3.0) (and (> l 1.25) (< l 3.0)))
       (entdel sn)
       )
     )
   )
 (princ)
 )