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

线

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

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

试试这个。。。
 

(defun c:test (/ l ss)
(if (setq l0. 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)

BIGAL 发表于 2022-7-6 00:20:16

再多搜索一点，应该有很多，试试www.Lee-Mac。通用域名格式
 

Lee Mac 发表于 2022-7-6 00:34:39

总长度和面积计划
 
[感谢BIGAL的推荐]

joaobarbosajb 发表于 2022-7-6 00:48:16

谢谢所有的fokes。用最后一个线程解决问题。
Jbarbosa公司
页: [1]
查看完整版本: 线