查找点的坐标

aaryan · 发表于 2022-7-6 07:35:01

大家好，

请帮助我通过autolisp找到多段线第一个顶点之前给定距离点的坐标。

希望它清楚，如果没有请问我会附上一个样本图纸。

谢谢和问候
Aaryan。

kaizen · 发表于 2022-7-6 07:43:51

在命令行上键入ID，然后选择点。。。

aaryan · 发表于 2022-7-6 07:52:10

感谢kaizen的回复，但我想通过autolisp了解。

下面我附上了图纸供参考。
图纸5.dwg

当做

Tharwat · 发表于 2022-7-6 07:58:35

逐函数指定一个点（getpoint），然后使用函数（car）、（cadr）和（caddr）检索变量值。

aaryan · 发表于 2022-7-6 08:05:06

谢谢Tharwat，
我想我以前没有说清楚。请参阅我的第三个帖子，我在其中附上了一个参考图纸。

再次感谢
当做

Tharwat · 发表于 2022-7-6 08:19:07

好的，如果要在实体上指定点，可以使用函数（vlax curve getpointatdist）。
如果没有，请阅读有关函数polar的内容，例如（polar）。

塔瓦特

aaryan · 发表于 2022-7-6 08:24:41

非常感谢你，塔尔瓦特。

Lee Mac · 发表于 2022-7-6 08:33:44

还有一种方法：

copy

(defun _getpoint ( ent dis / der )
   (setq der (vlax-curve-getfirstderiv ent (vlax-curve-getstartparam ent))
         dis (/ dis (distance '(0.0 0.0 0.0) der))
   )
   (mapcar '(lambda ( a b ) (- a (* dis b))) (vlax-curve-getstartpoint ent) der)
)

copy

(defun c:test ( / e )
   (if (setq e (car (entsel))) (_getpoint e 50.0))
)

aaryan · 发表于 2022-7-6 08:38:48

非常感谢李。

当做
Aaryan公司

[编程交流] 查找点的坐标

发表回复

精选推荐