wei186 发表于 2004-3-19 14:40:00

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

我想对三维图形从基点move到我指定的相当位置，可(setq pt2 (command "move" en14 "<A href='mailto:" target="_blank" >" pt1 "@0,0,rr3</A>" <A href='mailto:"))命令好像不起作用，是不是 target="_blank" >"))命令好像不起作用，是不是 <U><FONT color=#0000ff>"@0,0,rr3</A>用错了？请指教！！！</FONT></U>


(defun c:zxjsg()<BR>       (setq rr3 (getreal "\nrr3:"))<BR>       (setq pt1 (getpoint "\npt1:"))<BR>       (setq ll1 (getreal "\nll1:"))<BR>       (setq ll2 (getreal "\nll2:"))<BR>       (setq ww3 (getreal "\nll2:"))<BR>       (command "circle" pt1 rr3 "")<BR>       (setq en11 (entlast))<BR>       (command "circle" pt1 (- rr3 ww3))<BR>       (setq en12 (entlast))<BR>       (command "extrude" en11 en12 "" ll1 "")<BR>       (setq en13 (entlast))<BR>       (command "rotate3d" en13 "" "x" pt1 90)<BR>       (setq en14 (entlast))<BR>       (setq pt2 (command "move" en14 "<A href='mailto:" target="_blank" >" pt1 "@0,0,rr3</A>" ""))<BR>       (prin1)<BR>)

f5612140 发表于 2004-3-19 15:02:00

不曉得這個是不是你要的


(setq xxx (strcat "@0,0," (rtos rr3)))<BR>(setq pt2 (command "move" en14 "" pt1 xxx))

wei186 发表于 2004-3-19 16:37:00

非常感谢！！！

wei186 发表于 2004-3-19 16:45:00

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

f5612140 发表于 2004-3-19 16:53:00

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



為何要(setq pt2...


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

wei186 发表于 2004-3-22 14:08:00

好像还是不行呀


不知道我写的怎么啦


就是没有发生移动


请指教！！！

meflying 发表于 2004-3-22 16:05:00

"@0,0,rr3"有问题


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


可以这样写：(strcat "@0,0," (rtos rr3))
页: [1]
查看完整版本: 求助！！！请教三维中的移动