查看单个帖子
旧 2009-04-26, 09:28 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 指定点向右偏移100,怎么写呀

指定点向右偏移100,怎么写呀
www.dimcax.com
指定点向右偏移100,怎么写呀
我用
(setq b1 (getpoint "请指定左下角基点"))
想得到向右 x 轴线向右偏移100,向 y 轴线偏移50 的公式怎么写啊
本人是菜鸟
d
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)))
踅摸
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)