[编程交流] 线

joaobarbosajb · 发表于 2022-7-5 23:42:06

你好：

在哪里可以找到一个lisp程序来测量图形中的所有线（选定）。
我环顾四周，但什么也没有。

谢谢
jbarbosa公司

Tharwat · 发表于 2022-7-6 00:07:49

试试这个。。。


(defun c:test (/ l ss)
 (if (setq l  0. ss (ssget "_:L" '((0 . "LINE"))))
   (progn
     ((lambda (i / sn)
        (while (setq sn (ssname ss (setq i (1+ i))))
          (setq l (+ (vlax-curve-getdistatpoint sn (vlax-curve-getendpoint sn) )  l  ) ) ) ) -1 )
   (alert (strcat "Total Lengths :" (rtos l 2)))
 )
   )
 (princ)
)
(vl-load-com)