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

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

我想对三维图形从基点move到我指定的相当位置，可(setq pt2 (command "move" en14 "" 用错了？请指教！！！[/U]
(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 "" ""))
   (prin1)
)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复