大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
rj:$'m7 (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
bBDgyFSI < *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] aV>w($tdd 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
_
-?)-L&g (define creat_outbox
pf2$%lE (lambda (x_width y_length z_height x_out y_out)
1"!<e$ &$X (define outbox (insert:block x_width y_length z_height))
Q 2t Ge~H (edit:move (outbox) 0 0 130 ) ;help 中语法形式 2&=;$2?}
(define outputface (insert:block x_out y_out 10))
'x!q*|zF 2 (edit:move (outputface) 0 0 505) ;help 中语法形式 {&2$1p/9'
(define
52:oe1-8 outter (bool:subtract outbox outputface))
TuX#;!p6 ))
;w@ : ;(creat_outbox 1550 2500 750 1450 2400)
@B1rtw6 VW'e&v1 . 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
uQ&xoDCB (define creat_outbox
@9QHv (lambda (x_width y_length z_height x_out y_out)
1`h`-dqr# (define outbox (insert:block x_width y_length z_height))
n#x{~oQc (define outbox (edit:move outbox 0 0 130)) < xc"y|7X
(define outputface (insert:block x_out y_out 10))
a_pkUOu6 (define outputface (edit:move outputface 0 0 505)) 6}| /~n
(define
8LkC/ outter (bool:subtract outbox outputface))
m&;
t;&# ))
u}u2{pO! v3~,1)#aI 想请教下其中错误的原因 z3a
te^PJF Q <78< #I help中edit:move的
实例为
nYE_WXY3V ^]Gt<_ snN1 y0rT=k U bC)<AG@Z\ g ]d@X_ &D - |V@zSKr3
