社区 › Auto Lisp › 总长度

mousho 发表于 2022-7-5 17:09:50

总长度

我试着用Lisp程序的语言获得普林线的长度，想知道是否有一种快速的方法。
我试图更改区域的lisp，但没有用于延长的getvar。
 
区域lisp：
（命令“area”“e”ent“text”“m”pause（*（GetVar“DimScale”）S）pause（StrCat“S=（Rtos（GetVar“area”））2 2）））
 
长度lisp：
（命令“LENGTHEN”L“”text“m”p333 4.8“0”（StrCat“S=（Rtos（GetVar“LENGTHEN”）2 2）））
 
如果有人能帮我，我会很高兴的

ReMark 发表于 2022-7-5 17:25:38

你是想得到一条线的长度，还是想得到几条线的总长度？
 
这是一个你可能感兴趣的Lisp程序。。。
 
https://ravikumarvemana.wordpress.com/2011/10/17/to-get-the-length-of-selected-linesplinelwpolypolylines/

mousho 发表于 2022-7-5 17:29:27

我只是想得到一条普林线的长度。
我将行更改为：
（命令“LENGTHEN”“L”“”“text”“m”p333 4.8“0”（StrCat“S=（Rtos（GetVar“periple”）2 2）））
 
现在这是我的工作。

ReMark 发表于 2022-7-5 17:43:48

这是一个更大的常规的一部分吗？

mousho 发表于 2022-7-5 17:52:15

对这是一个更大的例行程序的一部分
我是lisp编程新手
谢谢你的回复和论坛

alanjt 发表于 2022-7-5 17:53:24

(vla-get-length (vlax-ename->vla-object (car (entsel))))

Lee Mac 发表于 2022-7-5 18:06:19

另一个：
(defun getlength ( ent / par )
   (if (not (vl-catch-all-error-p (setq par (vl-catch-all-apply 'vlax-curve-getendparam (list ent)))))
       (vlax-curve-getdistatparam ent par)
   )
)
(getlength (car (entsel)))

alanjt 发表于 2022-7-5 18:18:23

 
此外，该方法还适用于直线、圆、圆弧、LW多段线、二维多段线、三维多段线等。

查看完整版本: 总长度