大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
)zDCu` (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
JNnDts*w *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] U 8$27jq 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
O* P.]d (define creat_outbox
19%i mf (lambda (x_width y_length z_height x_out y_out)
Y(Hs #Kn{ (define outbox (insert:block x_width y_length z_height))
gL/9/b4 (edit:move (outbox) 0 0 130 ) ;help 中语法形式 ysnx3(+|
(define outputface (insert:block x_out y_out 10))
O+x !Bg7 (edit:move (outputface) 0 0 505) ;help 中语法形式 +] {G@pn
(define
>Y@H4LF;1x outter (bool:subtract outbox outputface))
G7/ +ogV ))
) Hr`M B ;(creat_outbox 1550 2500 750 1450 2400)
^E>3|du]O 5L}/&^E#p 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
]\HvK CN} (define creat_outbox
d ft!lBN (lambda (x_width y_length z_height x_out y_out)
%JTpI` (define outbox (insert:block x_width y_length z_height))
[AJJSd /: (define outbox (edit:move outbox 0 0 130)) jT;;/Fd3/
(define outputface (insert:block x_out y_out 10))
}4X0epPp;: (define outputface (edit:move outputface 0 0 505)) V0 a3<6@4
(define
9_h[bBx-'Q outter (bool:subtract outbox outputface))
<b*DQ:N ))
)NT*bLRPQ B&" Q\'c 想请教下其中错误的原因 Pr
C{'XDlU 6j|{`Zd)G help中edit:move的
实例为
6Q5 ^> \Y +:/%3}` 2y1Sne=<Kb E' uZA W\V.r$? v *|HY>U. ChQx a
