怪事了，请高手帮我看看这个小程序（总共才6行），莫名其妙的问题。。

cadcailiao

请高手帮我看看下面这个小程序，主要是想自动的对一个三维实体进行一些操作，具体操作步骤如下第（2）部分（下面这些是我按手工方式在AutoCAD命令行进行的，结果ok），但自己写了几行程序却报出怪怪的错误。有时只能执行到一个命令而不能继续下去。有时又不能认出我给定的点坐标（0，0，0）之类的；有时又说什么AutoCAD只能允许4层嵌套，然后自动跳出CAD。怎么这么几行程序出了这么多问题呢？请高手更正。另:我上传了要处理的三维实体，见图: 被投影对象.dwg

;;;（1）自己的lisp程序;;;
(defun c:ty()
  (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" "" "")
)

;;;;（2）命令行操作步骤;;;;
命令: _rotate3d
当前正向角度:  ANGDIR=逆时针 ANGBASE=0

选择对象: 找到 1 个

选择对象:

指定轴上的第一个点或定义轴依据
  [对象(O)/最近的(L)/视图(V)/X 轴(X)/Y 轴(Y)/Z 轴(Z)/两点(2)]: z
指定 Z 轴上的点 <0,0,0>:

指定旋转角度或 [参照(R)]: -45

命令: _rotate3d
当前正向角度:  ANGDIR=逆时针 ANGBASE=0

选择对象: 找到 1 个

选择对象:

指定轴上的第一个点或定义轴依据
  [对象(O)/最近的(L)/视图(V)/X 轴(X)/Y 轴(Y)/Z 轴(Z)/两点(2)]: x
指定 Z 轴上的点 <0,0,0>:

指定旋转角度或 [参照(R)]: -55

命令: _copy
选择对象: 找到 1 个

选择对象:
指定基点或位移，或者 [重复(M)]: 0,0,0
指定位移的第二点或 <用第一点作位移>: 70,0,0

命令: dview

选择对象或 <使用 DVIEWBLOCK>: all
找到 2 个

选择对象或 <使用 DVIEWBLOCK>:

输入选项
[相机(CA)/目标(TA)/距离(D)/点(PO)/平移(PA)/缩放(Z)/扭曲(TW)/剪裁(CL)/隐藏(H)/关(
O)/放弃(U)]: po

指定目标点 <50.2661, -12.9862, 12.4876>: 35,0,0

指定相机点 <135.7163, -146.0045, 615.3620>: 35,0,300

输入选项
[相机(CA)/目标(TA)/距离(D)/点(PO)/平移(PA)/缩放(Z)/扭曲(TW)/剪裁(CL)/隐藏(H)/关(
O)/放弃(U)]: d

指定新的相机目标距离 <300.0000>:

输入选项
[相机(CA)/目标(TA)/距离(D)/点(PO)/平移(PA)/缩放(Z)/扭曲(TW)/剪裁(CL)/隐藏(H)/关(
O)/放弃(U)]:

龙龙仔

相对于任意 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 资源库来实行。