大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
'g]=.K+@} (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
fPrb% *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] tO4):i1 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
5&G
5eA (define creat_outbox
JE9>8+ (lambda (x_width y_length z_height x_out y_out)
Ym:{Mm=ud (define outbox (insert:block x_width y_length z_height))
lDlj+fK (edit:move (outbox) 0 0 130 ) ;help 中语法形式 I)rGOda{
(define outputface (insert:block x_out y_out 10))
1XGG .+D (edit:move (outputface) 0 0 505) ;help 中语法形式 Uf^RLdoDn
(define
Lxz outter (bool:subtract outbox outputface))
~xE=mg4le ))
f^u^-l ;(creat_outbox 1550 2500 750 1450 2400)
'5V^}/ eB7>t@ED 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
k}-]W@UCa? (define creat_outbox
)ZN(2z (lambda (x_width y_length z_height x_out y_out)
Kny%QBoiw (define outbox (insert:block x_width y_length z_height))
@?Fx (define outbox (edit:move outbox 0 0 130)) ret0z |
(define outputface (insert:block x_out y_out 10))
33,;i E (define outputface (edit:move outputface 0 0 505)) y 3IA '
(define
1GUqT 9) outter (bool:subtract outbox outputface))
9 ='=-;@/5 ))
?-d
Ain1w K Ka c6Zj 想请教下其中错误的原因 E;xMP K$ n+X1AOE[L help中edit:move的
实例为
R|$[U [ h^f% }}s8D>;G~ T7^ulG1' D9,e3.?p K q/~T7Ru _IC,9bbg
