:(，这个问题怎么解决呢？“提示：AutoCAD命令嵌套不能超过4次”。。

cadcailiao

下面的程序自动执行完前三个命令，但到dview命令时报错：AutoCAD命令嵌套不能超过4次，接着自动从AutoCAD中跳出，我该如何修改下面的程序呢？谢谢指点
(defun c:ft()
  (command "_rotate3d" "all"  "" "z" "" "-45" "")
  (command "_rotate3d" "all" "" "x" "" "-55" "")
  (command "_copy" "all" "" "0,0,0"  "70,0,0" "")
(command "_dview" "all" "" "po" "35,0,0" "" "35,0,300" "" "d" "" "")
)

cadcailiao

真不知怎么办好：下面4行程序每行都可单独执行，但4句一起就出错。有时认不出rotate3d命令，有时说AutoCAD命令嵌套不能超过4层，怎么办才好呢？？(defun c:ft2()
  (command "rotate3d" "all"  "" "z" "" "-45" "")
  (command "_rotate3d" "all" "" "x" "" "-55" "")
  (command "_copy" "all" "" "0,0,0"  "70,0,0" "")
  (command "_dview" "all" "" "po" "35,0,0" "35,0,300" "d" "" "")
)

meflying

cadcailiao

下面这些就是rotate3d的帮助文件（第二部分），从这里我看不出定义外部命令和内部命令有什么区别啊？不过我倒是发现：如果先在命令行手工用一次rotate3d命令，那么lisp程序中的rotate3d语句就可以执行了。但不知如何修改才能定义该内部命令呢？请高手帮我改改这个程序（第一部分），谢谢！
（一）
(defun c:ft2()
  (command "rotate3d" "all"  "" "z" "" "-45" "")
  (command "_rotate3d" "all" "" "x" "" "-55" "")
  (command "_copy" "all" "" "0,0,0"  "70,0,0" "")
  (command "_dview" "all" "" "po" "35,0,0" "35,0,300" "d" "" "")
)

（二）
命令行：rotate3d

选择对象：  使用一种对象选择方式并按 ENTER 键完成选择

指定轴上的第一个点或定义轴依据 [对象(O)/最近的(L)/视图(V)/X 轴(X)/Y 轴(Y)/Z 轴(Z)/两点(2)]：  指定一点、输入一个选项或按 ENTER 键

选项：

第一点，两点
对象
最近的
视图
X 轴/Y 轴/Z 轴

alin

龙龙仔

以下Autocad帮助文件

相对于任意 3D 轴旋转对象（外部定义： geom3d ARX 应用程序）
(rotate3d args ...)

自变量

args

rotate3d 函数的顺序、数目及自变量类型与您在指令行输入该指令者相同；请参阅 ROTATE3D (在「指令参考手册」中)以取得更多的信息。
要表示空的响应 (使用者未指定任何值，按下 ENTER 键)，请使用 nil 或空字符串 ("")。

传回值
如果成功，rotate3d 传回 T；否则它会传回nil。
范例
下列的范例以 p1 和 p2 指定的轴将选取的对象旋转 30 度。

(setq ss (ssget))

(rotate3d ss p1 p2 30)

AutoLISP 支持的 rotate3d 函数，使用 SAGET 资源库来实行。


为甚么会看不懂说明????它不是说得很清楚了吗????

(defun C:FT2 (/ SS)
  (arxload "geom3d.ARX" NIL)
  (setq SS (ssget "X"))
  (rotate3d SS '(0 0 0) '(0 0 1) -45)
  (rotate3d SS '(0 0 0) '(1 0 0) -55)
  (command "_copy" "all" "" "0,0,0" "70,0,0")
  (command "_dview" "all" "" "po" "35,0,0" "35,0,300" "d" "" "")
  (princ)
)

cadcailiao

xjf

   好，龙版主的回答精辟