有关相对坐标点的表示

开宝马的浪子 · 发表于 2011-8-2 21:15:32

各位大虾，小弟在此请教一个问题；已知P1(X,Y) P2与P点的水平距离为10，求p点在lisp程序里应该怎么表示？小弟先谢了

Andyhon · 发表于 2011-8-2 21:38:51

(polar pt 0.0 10)
or
(mapcar '+ pt '(10 0))

EMD · 发表于 2011-8-2 21:40:17

本帖最后由 EMD 于 2011-8-2 21:41 编辑

(setq P2 (list (+ (car p1) 10) (cadr p1))) ;; P2在P1右侧, P2的X比P1加10
(setq P2 (list ( - (car p1) 10) (cadr p1))) ;;P2在P1左侧, P2的 x比P1减10

哦. 不对,我写的这个是P2与p1相差10.用p1表示p2的..你的问题好像缺少条件..无法表示.

李钊伟2012 · 发表于 2022-7-25 21:58:27

(setq P2 (list (+ (car p1) 10) (cadr p1))) ;; 这种写法+X ,+Y太复杂，trans好像解决不了？

账号		自动登录	找回密码
密码			注册

[讨论] 有关相对坐标点的表示