指定点向右偏移100，怎么写呀

sxz4494 · 发表于 2009-3-7 20:58:00

我用

(setq b1 (getpoint "请指定左下角基点"))

想得到向右 X 轴线向右偏移100，向 Y 轴线偏移50 的公式怎么写啊

本人是菜鸟

ZZXXQQ · 发表于 2009-3-7 21:37:00

1、(setq b2 (polar (polar b1 0 100) (/ pi 2) 50))
2、(setq b2 (mapcar '+ b1 '(100 50 0)))
3、(setq b2 (list (+ (car b1) 100) (+ (cadr b1) 50) (last b1)))

sjl_fyl · 发表于 2024-8-8 15:54:46

谢谢分享

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