大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
Wy4$*$ (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
!M7<BD}; *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] > @_im6 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
.f:n\eT): (define creat_outbox
<F;v`h|+S (lambda (x_width y_length z_height x_out y_out)
'$G"[ljr (define outbox (insert:block x_width y_length z_height))
FS6<V0pil (edit:move (outbox) 0 0 130 ) ;help 中语法形式 qH> `}/,P
(define outputface (insert:block x_out y_out 10))
hoM|P8
}rh (edit:move (outputface) 0 0 505) ;help 中语法形式 xe4Oxo
(define
hA}~es=c outter (bool:subtract outbox outputface))
Ml?~
|_ ))
QzOkpewf ;(creat_outbox 1550 2500 750 1450 2400)
/P:.qtT( a, |?5j9,P 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
x}TS (define creat_outbox
,1oQ cC (lambda (x_width y_length z_height x_out y_out)
foRD{Hx (define outbox (insert:block x_width y_length z_height))
2o3EHZ+]cm (define outbox (edit:move outbox 0 0 130)) )w h%|
(define outputface (insert:block x_out y_out 10))
YO+{,$ (define outputface (edit:move outputface 0 0 505)) :O-iykXyI
(define
Y ^KTkS0D outter (bool:subtract outbox outputface))
N~^y L <O ))
^Hrn ] 59r_#(uo 想请教下其中错误的原因 ke_ [ ^T5X)Nu{=C help中edit:move的
实例为
~]HN9R^& yWDTjY/ JL=U,Mr6 \1"'E@+
O.`Jl% ^3VR-u <O r] @0eb
