大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
bd}SB -D (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
pSUp"wch *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] FQl|<l6 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
}Cf[nGh|B (define creat_outbox
x*V<af LY[ (lambda (x_width y_length z_height x_out y_out)
IBsn>*ja< (define outbox (insert:block x_width y_length z_height))
^q2zqC (edit:move (outbox) 0 0 130 ) ;help 中语法形式 +2O_LPV$,
(define outputface (insert:block x_out y_out 10))
E v#aMK (edit:move (outputface) 0 0 505) ;help 中语法形式 ??Ac=K\
(define
2 wvDC@ outter (bool:subtract outbox outputface))
[hbIv ))
X:/t>0e ;(creat_outbox 1550 2500 750 1450 2400)
t,nB`g? UlytxWkUX 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
i*j+<R@ (define creat_outbox
[N)M]u (lambda (x_width y_length z_height x_out y_out)
d5hE!= (define outbox (insert:block x_width y_length z_height))
b"9,DQB=i (define outbox (edit:move outbox 0 0 130)) s6uAF(4,
(define outputface (insert:block x_out y_out 10))
_Oq\YQb v (define outputface (edit:move outputface 0 0 505)) #m>mYp8E.5
(define
eRbO Hj1 outter (bool:subtract outbox outputface))
V;(LeuDH| ))
BZ9iy~ ? Y* PVx9Y 想请教下其中错误的原因 o5R40[" @Iu-F4YT help中edit:move的
实例为
:_ox8xS4 w4a7c W^f#xrq> 566Qik w2 v'tk: Hm1 |#6Lcz7[ z^.0eP8\j
