大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
,l)AYu!q4F (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
8/9YR(H3H *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] xUs1-O1i 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
'xOH~RlE (define creat_outbox
,+_gx.H2j (lambda (x_width y_length z_height x_out y_out)
P_N},Xry (define outbox (insert:block x_width y_length z_height))
/P{ 'nI (edit:move (outbox) 0 0 130 ) ;help 中语法形式 1$c[ G}h
(define outputface (insert:block x_out y_out 10))
}Oy/F (edit:move (outputface) 0 0 505) ;help 中语法形式 F.R0c@&W
(define
na/,1iI< outter (bool:subtract outbox outputface))
w4&-9[@Y ))
m`3gNox ;(creat_outbox 1550 2500 750 1450 2400)
?7* J4. apm,$Vvjy 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
TkjZI}]2 (define creat_outbox
Of$gs- (lambda (x_width y_length z_height x_out y_out)
@v\jL+B+m (define outbox (insert:block x_width y_length z_height))
#fe zUU (define outbox (edit:move outbox 0 0 130)) h3-dJgb
(define outputface (insert:block x_out y_out 10))
(7P VfS>; (define outputface (edit:move outputface 0 0 505)) Bk4|ik}
(define
<C7/b#4>\ outter (bool:subtract outbox outputface))
cT^x^% ))
SL%
Ec%9Y < d hBO 想请教下其中错误的原因 ^t)alN Gos I#t# %!InH help中edit:move的
实例为
htqC~B{1E )Rw O2H x@"`KiEUs g(zoN0~ /T/7O []eZO_o6j q"^T}d d,
