总长度

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

copy

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

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

另一个：

copy

(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)
   )
)

copy

(getlength (car (entsel)))

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

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

[编程交流] 总长度

发表回复

精选推荐