大家好,最近开始学习macro编程,但是手头没有相关的参考书,就照着help做一些test,下面是自己写的一个小
程序,创建一个箱体,然后通过bool运算给它一个开口以出射光。但是选择文件,并在command键入 
 Urr@a/7  (creat_outbox 1550 2500 750 1450 2400) ,点击执行时出现 
 j$?{\iXZ  *** ERROR *** edit:move: application of non-procedure: #[entity 1 3]  n:yTeZ=-s4  的错误。而且从tracepro的窗口看,箱体是建立起来了,但是没有移动 
 vb<oi&X  (define creat_outbox 
 23Nw!6S    (lambda (x_width y_length z_height x_out y_out) 
 8W,Jh8N6      (define outbox (insert:block x_width y_length z_height)) 
 }a/x._[s      (edit:move (outbox) 0 0 130 )         ;help 中语法形式  u~WVGjoQ  
    (define outputface (insert:block x_out y_out 10)) 
 C|}iCB       (edit:move (outputface) 0 0 505)     ;help 中语法形式  p<,*3huj  
    (define 
 g^}8:,F_        outter (bool:subtract outbox outputface)) 
 Gn ~6X-l      )) 
 L"o>wYx  ;(creat_outbox 1550 2500 750 1450 2400) 
 +yk24
`>   j4|N-:  如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序(如下)就可以正确运行, 
 ykV
5  (define creat_outbox 
 Y]/%t{Y    (lambda (x_width y_length z_height x_out y_out) 
 O(D~_O.      (define outbox (insert:block x_width y_length z_height)) 
 e?JW       (define outbox (edit:move outbox 0 0 130))  -f%   '  
    (define outputface (insert:block x_out y_out 10)) 
 _kU:Z       (define outputface (edit:move outputface 0 0 505))  JM x>][xD  
    (define 
 \s=t|Wpu2        outter (bool:subtract outbox outputface)) 
 :,'wVS8"]      )) 
 '>cKH$nVC}   _B/dWA,P  想请教下其中错误的原因  ~Y|*`C_)	   <}<zgOT[1!  help中edit:move的
实例为 
 >8WP0Qx/   k1{K*O$e   _AAaC_q   	UNom-   b:lP%|7   QdL`|   &PYK8}pBk3