issammesk 发表于 2022-7-5 22:35:10

线路长度

大家好
请，我需要lsp删除许多线有相同的长度
我的意思是我让lsp问我关于长度的问题，然后举个例子，我给他65m自动擦除所有的线都有这个长度

ReMark 发表于 2022-7-5 22:53:11

到底是那个长度还是至少那个长度的任何一条线？这是有区别的。

issammesk 发表于 2022-7-5 23:05:19

是的，先生
我是说lsp问我要选择的长度
然后输入任意长度，例如40m。。。。。自动选择图纸中具有相同长度（40M）的任何线

ReMark 发表于 2022-7-5 23:20:27

你可以从第二个回复（由Jason Piercy）中发布的代码开始，然后从那里开始工作。
 
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Selection-set-by-length/td-p/905474

David Bethel 发表于 2022-7-5 23:38:13

也许 吧：
 

(defun c:dellinel (/ d f ss i en ed)
(initget 7)
(setq d (getdist "\nLine Length To Erase:   "))

(initget 4)
(setq f (getdist "\nLength Fuzz Factor <1e-8>:   "))
(or f (setq f 1e-8))

(and (setq ss (ssget '((0 . "LINE"))))
      (setq i 0)
      (while (setq en (ssname ss i))
             (setq ed (entget en))
             (if (equal (distance (cdr (assoc 10 ed))
                                  (cdr (assoc 11 ed)))
                        d f)
               (entdel en))
             (setq i (1+ i))))
(prin1))

 
这并不排除三维线。
 
 
-大卫
页: [1]
查看完整版本: 线路长度