如何指定导管长度

mateen · 发表于 2022-7-7 16:11:41

为什么。。。
如何在线路上指定导管长度标记。。。。？
我想知道我有多条线，我想得到多条线的总长度，那个么我该怎么做呢。。。。？
谢谢

MSasu · 发表于 2022-7-7 16:30:55

那么，您想通过逐个选择线图元来求和线图元的长度吗？像这样的？

;Sumate Line Lengths routine (17-X-2012)
(defun c:SLL( / ssetLine lengthLine lengthTotal )
(setq lengthTotal 0.0)
(while (setq ssetLine (ssget "_:S" '((0 . "LINE"))))
 (setq lengthTotal (+ lengthTotal
                      (setq lengthLine (vla-get-length (vlax-ename->vla-object (ssname ssetLine 0))))))
 (prompt (strcat "\nCurrent line length: " (rtos lengthLine 2 2)
                 ". Total length: " (rtos lengthTotal 2 2) "."))
)
(princ)
)