两点a的交点
你好我需要一个lisp，在多边形上两个拾取点的相交轴延伸处绘制一个点。
或者把这一点作为基点。（例如，当我移动多边形时）
谢谢大家的帮助。
看起来你好像附上了什么东西，但我无法查看。
据我所知，你需要能够选择一个X点和一个Y点。这将在它们相交的地方指定一个点？
另外，您是想立即移动对象，还是想创建一个句柄以供将来使用？
我已经编写了一些快速代码，可以实现我认为您可能需要的功能。它肯定不是防弹的，但应该能够帮助事情开始。
(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)
) 嗨，benhubel，
这正是我需要的。
谢谢你的回答和帮助。
页:
[1]