[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, 坐标, 定向