大家好，最近開始學習macro編程，但是手頭沒有相關(guān)的參考書，就照著help做一些test,下面是自己寫的一個小程序，創(chuàng)建一個箱體，然后通過bool運算給它一個開口以出射光。但是選擇文件，并在command鍵入 =an0PN  
(creat_outbox 1550 2500 750 1450 2400) ，點擊執(zhí)行時出現(xiàn) u3IhB8'  
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3] a!,X@5  
的錯誤。而且從tracepro的窗口看，箱體是建立起來了，但是沒有移動 \Z-Fu=8J8^  
(define creat_outbox 2W;2._  
  (lambda (x_width y_length z_height x_out y_out) Gl9,!"A  
    (define outbox (insert:block x_width y_length z_height)) K/8TwB
?I  
    (edit:move (outbox) 0 0 130 )         ;help 中語法形式 @E=77Jn[px  
    (define outputface (insert:block x_out y_out 10)) Y$W)JWMY`  
    (edit:move (outputface) 0 0 505)     ;help 中語法形式 Lg|]|,%e  
    (define
Ce} m_  
      outter (bool:subtract outbox outputface)) 3lN@1jlh  
    )) 18>v\Hi<  
;(creat_outbox 1550 2500 750 1450 2400) lOHW9Z  
l
DZ~  
如果我按照example中“Toroidal_Mirror.scm”的edit:move語句寫程序（如下）就可以正確運行， [$Jsel<T=  
(define creat_outbox +(h{3Y|  
  (lambda (x_width y_length z_height x_out y_out) 5e&;f  
    (define outbox (insert:block x_width y_length z_height)) A&X XL~yH  
    (define outbox (edit:move outbox 0 0 130)) 2j$~lI  
    (define outputface (insert:block x_out y_out 10)) 2h1P!4W85  
    (define outputface (edit:move outputface 0 0 505)) dyl1~'K^  
    (define Myh?=:1~(c  
      outter (bool:subtract outbox outputface)) EEiWIf&S,  
    )) <>V~  
i$CF
*%+t  
想請教下其中錯誤的原因 40 zO4  
0KjCM4t  
help中edit:move的實例為 rv2;)3/*  
imyfki $B  

Syntax:

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

\og2\Oh&gH  

Example:

593!;2/@   ;Create a sphere centered at the origin   E|W7IgS   (solid:sphere (position 0 0 0) 12)   _!9I f   ;;#[entity 1 1]   T[2<_