大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小
程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
AwrW!)n } (creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
Q?df5{6 *** ERROR *** edit:move: application of non-procedure: #[entity 1 3] Cx(|ZD^ 的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
82ay("Z Y (define creat_outbox
F)dJws7- (lambda (x_width y_length z_height x_out y_out)
o%dKi] (define outbox (insert:block x_width y_length z_height))
;"/[gFD5u (edit:move (outbox) 0 0 130 ) ;help 中语法形式 "b)Y 5[nW
(define outputface (insert:block x_out y_out 10))
.bc oH (edit:move (outputface) 0 0 505) ;help 中语法形式 )`;Q]?D
(define
w yF' B outter (bool:subtract outbox outputface))
49S *f ))
;!H<W[ ;(creat_outbox 1550 2500 750 1450 2400)
XV)<Oav s -1'O 如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
>2Z0XEe (define creat_outbox
9eOP:/'}w (lambda (x_width y_length z_height x_out y_out)
~*a PeJ (define outbox (insert:block x_width y_length z_height))
O |45r (define outbox (edit:move outbox 0 0 130)) f .Wip )g
(define outputface (insert:block x_out y_out 10))
)IN!CmpN (define outputface (edit:move outputface 0 0 505)) D c5tRO
(define
OU2.d7 outter (bool:subtract outbox outputface))
'T
G43^ ))
xz!b@5DR'% ^ d2#J 想请教下其中错误的原因 7.V'T=@x3) 8%C7!l q help中edit:move的
实例为
@PH`Wn#S 1%Yd ] 1c( lG[@s 'j M8_f{|!& {J#SpG 7 T 'VZ=l[ Kkfz a
