[LISP函数]：为什么不成功？

[复制链接]

dyqss

发表于 2006-4-6 22:06:11 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

(defun c:bh()

(setq pt1 (getPOINT "\n输入定向第一点假定坐标:28644.903,63902.971" ""))

(setq pt3 (getpoint "\n输入定向第一点实际坐标:93308.121,96458.099" ""))

(setq pt2 (getpoint "\n输入定向第二点假定坐标:15358.740,47427.141" ""))

(setq pt4 (getpoint "\n输入定向第二点实际坐标:80000,80000" ""))

(setq angl1 (angle pt1 pt2))

(setq l1(distance pt1 pt2))

(setq l2 (distance pt3 pt4))

(setq k(/ l2 l1))

(setq angl2 (angle pt3 pt4))

(setq angl3 (/ (* 180 (- angl2 angl1)) pi))

(setq ss(ssget))

(command "rotate" ss "" pt1 angl3)

(command "move" "p" "" pt1 pt3)

(command "scale" "p" "" pt3 k)

)

运行去掉前面五行的数字部分就可以，加上就不行？

setq, 坐标, 定向

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

使用道具举报

返回列表发新帖

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