社区 › Auto Lisp › 查找点的坐标

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

还有一种方法：
 
(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)
)
 
(defun c:test ( / e )
   (if (setq e (car (entsel))) (_getpoint e 50.0))
)

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

非常感谢李。
 
当做
Aaryan公司

查看完整版本: 查找点的坐标