大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
WVK AA. (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
m<kJH<! j *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] yXv@yn 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
O8_! !Qd (define creat_outbox
}Nwp{["}]L (lambda (x_width y_length z_height x_out y_out)
O>a1S*mxP (define outbox (insert:block x_width y_length z_height))
#7}M\\$M (edit:move (outbox) 0 0 130 ) ;help 中语法形式 +`>E_+Mp
(define outputface (insert:block x_out y_out 10))
96QY0
(edit:move (outputface) 0 0 505) ;help 中语法形式 b4bd^nrqV
(define
GKSF(Tnj outter (bool:subtract outbox outputface))
tcsb]/my ))
9y; }B
y ;(creat_outbox 1550 2500 750 1450 2400)
. =t:Uy )T^w c: 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
_z{9V7n4 (define creat_outbox
d;wq@ e (lambda (x_width y_length z_height x_out y_out)
o$Nhx_F (define outbox (insert:block x_width y_length z_height))
W6i9mER- (define outbox (edit:move outbox 0 0 130)) g1"Z pD
(define outputface (insert:block x_out y_out 10))
d|7LCW+HW (define outputface (edit:move outputface 0 0 505)) Q^nf D
(define
XM*5I 4V outter (bool:subtract outbox outputface))
g\@ .qKF ))
Bp5ra9*5+~ CI-za !T 想请教下其中错误的原因 /F~/&p1<\k B a|}$jo help中edit:move的
实例为
#OM)71kB8 Ut;4` >T ruB D
^- m*N8!1Ot PlLt^q.z[ udA@9a^; |m"Gr)Gm
