三维中的移动，LISP怎么实现呢？

减肥中的胖星星 · 发表于 2014-2-4 18:59:23

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

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

×

将方圆两端面移开，默认两端面之间的距离为6000
直接给成6000可以
(command "move" '(0 0 0) "" '(0 0 0) ‘（0 0 6000）)
但是用条件语句就不行了
请大神看看哪里的问题，谢谢！
(setq z1 (getdist "输入渐变段长度<6000>:"))
(if (= z1 nil)(setq z1 6000))
(command "move" '(0 0 0) "" '(0 0 0) z1)
(command "zoom""e")

减肥中的胖星星 · 发表于 2014-2-4 19:03:50

(setq z1 (getdist "输入渐变段长度<6000>:"))
(if (= z1 nil)(setq z1 6000))
(command "move" '(0 0 0) "" '(0 0 z1))
(command "zoom""e")
)
刚才弄错了一点，红的的标出来了

yoyoho · 发表于 2014-2-5 08:07:30

'(0 0 Z1) ==>(LIST 0 0 Z1)

减肥中的胖星星 · 发表于 2014-2-5 13:16:05

yoyoho 发表于 2014-2-5 08:07
'(0 0 Z1) ==>(LIST 0 0 Z1)

O了，谢谢！

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

[求助] 三维中的移动，LISP怎么实现呢？

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

点评