大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
m?`$NJST (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
+InFv" wt *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] e:= +~F(f 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
Rhh.fV3 (define creat_outbox
NKRH>2, (lambda (x_width y_length z_height x_out y_out)
6Xt c3 (define outbox (insert:block x_width y_length z_height))
rd}|^&e!Dy (edit:move (outbox) 0 0 130 ) ;help 中语法形式 k)S'@>n{u
(define outputface (insert:block x_out y_out 10))
h)
W|~y@ (edit:move (outputface) 0 0 505) ;help 中语法形式 =2, iNn
(define
lkgB,cflpi outter (bool:subtract outbox outputface))
6 kAXE\T ))
_U%2J4T2 ;(creat_outbox 1550 2500 750 1450 2400)
93y!x} 'V:ah3 8 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
@%$< ,$= (define creat_outbox
CrEC@5 j (lambda (x_width y_length z_height x_out y_out)
'E#Bz"T (define outbox (insert:block x_width y_length z_height))
zT jk^ (define outbox (edit:move outbox 0 0 130)) }&IOBYHVDo
(define outputface (insert:block x_out y_out 10))
Np R&`] (define outputface (edit:move outputface 0 0 505)) k!sk\~ >YO
(define
-l q,~`v outter (bool:subtract outbox outputface))
x=VLRh%Gvl ))
Y kcN- CYN| 想请教下其中错误的原因 ~_"/\; 1 [xg& `x9,. help中edit:move的
实例为
:<`po4/ 5U %a$.yr <I^Tug\M+ BFMINq> Y @[Dy / FA0(< -} aak[U;rx
