两点a的交点

Juergen · 发表于 2022-7-5 15:28:19

你好
我需要一个lisp，在多边形上两个拾取点的相交轴延伸处绘制一个点。
或者把这一点作为基点。（例如，当我移动多边形时）

谢谢大家的帮助。

benhubel · 发表于 2022-7-5 16:10:25

看起来你好像附上了什么东西，但我无法查看。

据我所知，你需要能够选择一个X点和一个Y点。这将在它们相交的地方指定一个点？
另外，您是想立即移动对象，还是想创建一个句柄以供将来使用？

我已经编写了一些快速代码，可以实现我认为您可能需要的功能。它肯定不是防弹的，但应该能够帮助事情开始。

copy

(defun c:test ( / ss p1 p2 p3 )
(prompt "\nSelect objects to move.")
(setq ss (ssget))
(setq p1 (getpoint "\nPick a point for X."))
(setq p2 (getpoint "\nPick a point for Y."))
(setq p3 (list (car p1)(cadr p2)(caddr p1))) ;get x and z value from p1 and y value from p2
(ssadd (entmakex (list (cons 0 "POINT")(cons 10 p3))) ss) ;create point
(command "_.move" ss "" "_non" p3)
)

Juergen · 发表于 2022-7-5 16:45:13

嗨，benhubel，

这正是我需要的。
谢谢你的回答和帮助。

[编程交流] 两点a的交点

发表回复

精选推荐