求助！！！请教三维中的移动

wei186

我想对三维图形从基点move到我指定的相当位置，可(setq pt2 (command "move" en14 ""))命令好像不起作用，是不是 "@0,0,rr3用错了？请指教！！！ (defun c:zxjsg()
(setq rr3 (getreal "\nrr3:"))
(setq pt1 (getpoint "\npt1:"))
(setq ll1 (getreal "\nll1:"))
(setq ll2 (getreal "\nll2:"))
(setq ww3 (getreal "\nll2:"))
(command "circle" pt1 rr3 "")
(setq en11 (entlast))
(command "circle" pt1 (- rr3 ww3))
(setq en12 (entlast))
(command "extrude" en11 en12 "" ll1 "")
(setq en13 (entlast))
(command "rotate3d" en13 "" "x" pt1 90)
(setq en14 (entlast))
(setq pt2 (command "move" en14 "回复

使用道具 举报

• 置顶卡
• 变色卡
• 显身卡

f5612140

不曉得這個是不是你要的 (setq xxx (strcat "@0,0," (rtos rr3)))
(setq pt2 (command "move" en14 "" pt1 xxx))

wei186

非常感谢！！！

wei186

命令可以执行完整，但好像没有移动的效果，是不是我写的还有哪里错啦？？？

f5612140

(setq pt2 (command "move")....



為何要(setq pt2...


用(command "move")....就好

wei186

好像还是不行呀


不知道我写的怎么啦


就是没有发生移动


请指教！！！

meflying

"@0,0,rr3"有问题


因为如果你加引号，就是字符串，表示在命令行输入引号内的部分，你想想，如果在命令行输入!0,0,rr3能不出错吗。。。


可以这样写：(strcat "@0,0," (rtos rr3))