大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
j+IrqPK C^ (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
K9Hqq7"% *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] 9 ; i\g= 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
]d}0l6 (define creat_outbox
9i q"" (lambda (x_width y_length z_height x_out y_out)
p{$p
$/A (define outbox (insert:block x_width y_length z_height))
wq!iV | (edit:move (outbox) 0 0 130 ) ;help 中语法形式 X6e/g{S)
(define outputface (insert:block x_out y_out 10))
5@ ~|*g[ (edit:move (outputface) 0 0 505) ;help 中语法形式 RP4Ku9 hk
(define
f58?5(Dc| outter (bool:subtract outbox outputface))
5\fCd| ))
rf &M!d}! ;(creat_outbox 1550 2500 750 1450 2400)
;q>9W,jy J @IS\9O 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
zbkMFD.{y (define creat_outbox
WYcA8 X/ (lambda (x_width y_length z_height x_out y_out)
5VW|fI (define outbox (insert:block x_width y_length z_height))
#U
mF -c (define outbox (edit:move outbox 0 0 130)) *iA4:EIP
(define outputface (insert:block x_out y_out 10))
\*t~==WB (define outputface (edit:move outputface 0 0 505)) _HO IT
(define
f9 $xk|2g outter (bool:subtract outbox outputface))
G\d$x4CVGc ))
l `9t} ~nLN`H d 想请教下其中错误的原因 !U%T&?E l KJn! Ap help中edit:move的
实例为
O `1! ,MPB/j^o5! V N{NA +I &C<yfRDu jEdtJ EPa q/9H..6 ,i9Byx#TN
