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

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

<p>我用 </p><p>&nbsp;(setq b1 (getpoint "请指定左下角基点"))</p><p>想得到向右 X 轴线向右偏移100，向 Y 轴线偏移50 的公式怎么写啊 </p><p>本人是菜鸟</p>

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

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

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

{:1_1:}谢谢分享
页: [1]
查看完整版本: 指定点向右偏移100，怎么写呀