大家好，最近開始學(xué)習(xí)macro編程，但是手頭沒有相關(guān)的參考書，就照著help做一些test,下面是自己寫的一個(gè)小程序，創(chuàng)建一個(gè)箱體，然后通過bool運(yùn)算給它一個(gè)開口以出射光。但是選擇文件，并在command鍵入 2ed@HJu  
(creat_outbox 1550 2500 750 1450 2400) ，點(diǎn)擊執(zhí)行時(shí)出現(xiàn) <Uf|PFVj$  
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3] 0(\p
<qq  
的錯(cuò)誤。而且從tracepro的窗口看，箱體是建立起來了，但是沒有移動(dòng) R;%^j=Q  
(define creat_outbox 5qGGu.$Ihi  
  (lambda (x_width y_length z_height x_out y_out) =<Hy"4+?.  
    (define outbox (insert:block x_width y_length z_height)) 8`a,D5U:  
    (edit:move (outbox) 0 0 130 )         ;help 中語法形式 T{ok +$w2  
    (define outputface (insert:block x_out y_out 10)) U8E0~[y'  
    (edit:move (outputface) 0 0 505)     ;help 中語法形式 #0(fOHPQ  
    (define V):`&@  
      outter (bool:subtract outbox outputface)) 4AJ9`1d4  
    )) `nK
JR'QC  
;(creat_outbox 1550 2500 750 1450 2400) $kv@tzO  
Q Qi@>v|d  
如果我按照example中“Toroidal_Mirror.scm”的edit:move語句寫程序（如下）就可以正確運(yùn)行， 0Qt~K#mr/  
(define creat_outbox bea|?lK  
  (lambda (x_width y_length z_height x_out y_out) T=.-Cl1A  
    (define outbox (insert:block x_width y_length z_height)) 7$K}qsr<  
    (define outbox (edit:move outbox 0 0 130)) I`3d;l;d  
    (define outputface (insert:block x_out y_out 10)) R^uc%onP  
    (define outputface (edit:move outputface 0 0 505)) *g*VCO  
    (define Trpgx  
      outter (bool:subtract outbox outputface)) HXyFj  
    )) S3QaYq"v  
<W?WUF  
想請(qǐng)教下其中錯(cuò)誤的原因 sLNNcj(Cy>  
lz- iCZ  
help中edit:move的實(shí)例為 yk`)
Cq%=;  
{b[
tA, >  

Syntax:

(edit:move body xdist ydist zdist [copy=#f] [rel=#t | dist])

 K,6OGsh  

Example:

Ll?g.z"   ;Create a sphere centered at the origin   @bE~@4mOu   (solid:sphere (position 0 0 0) 12)   E_]k>bf\   ;;#[entity 1 1]   b1H7   ;Move the sphere by 1 unit in x, y, and z.   6oYIQ'hc   (edit:move (entity 1) 1 1 1) uQWp+}>ZJy

%iX/y  
(xbIUz.  
i]dz}=