用单点坐标复制或移动或计算求另一点

ynhh

用单点坐标复制或移动或计算求另一点

已知三点: A,P1,P2

未知点 B 与 P2 和 A 与 P1 的相对关系相同

求 B点？ 是用复制还是移动还是什么方法？

谢谢

start4444

polar 不行？

ynhh

start4444 发表于 2021-12-20 11:13
polar 不行？

我一直以为用复制或移动的方法，应更简单一些，以前好象见过，但一下找不到方法了。
还是老老实实的用你说的方法写一个：
方法比较笨，见笑了。
(defun c:tt ()
(setq DQBZ (getvar "OSMODE"));获取当前捕捉
(SETVAR "OSMODE" 15);设置捕捉系统变量
(setq ptA (getpoint "\n目标点 A")
pt1 (getpoint "\n基点 1:")
pt2 (getpoint pt1 "\n基点 2:")
)
(setq alph (angle pt1 ptA));引出两点的弧度alph
(setq alf (* 180.0 (/ alph pi)));求出角度值alf
(setq le (distance pt1 ptA));两点间距离
(setq ptB (polar pt2 alph le));求出未知点
(SETVAR "OSMODE" 0);设置捕捉系统变量为0 即关闭捕捉
(command "point" ptB "");画点 应事先关闭捕捉
(SETVAR "OSMODE" DQBZ);恢复之前捕捉
)

lijiao

(setq b (mapcar '(lambda(x y z) (- (+ x y) z)) a pt2 pt1))或者
(setq b (mapcar '+ a (mapcar '- pt2 pt1)))

ynhh

lijiao 发表于 2021-12-20 13:43
(setq b (mapcar '(lambda(x y z) (- (+ x y) z)) a pt2 pt1))或者
(setq b (mapcar '+ a (mapcar '- pt2  ...

谢谢您的指导，完全正确
您这太高大上了，简洁到难以想象。
谢谢您。

xyp1964

(polar A (angle p1 p2)(distance p1 p2))

ynhh

xyp1964 发表于 2021-12-20 15:01
(polar A (angle p1 p2)(distance p1 p2))

更简洁的组合方式，还没有自变量，不错
谢谢院长