只需一步，快速开始
我用
(setq b1 (getpoint "请指定左下角基点"))
想得到向右 X 轴线向右偏移100，向 Y 轴线偏移50 的公式怎么写啊
本人是菜鸟
使用道具 举报
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)))
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
GMT+8, 2024-6-30 11:07 , Processed in 0.124965 second(s), 26 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
发表于 2009-3-7 20:58
置顶卡
变色卡
显身卡
发表于 2009-3-7 21:37