[求助]關(guān)于macro的edit:move問(wèn)題 [復(fù)制鏈接]

大家好，最近開(kāi)始學(xué)習(xí)macro編程，但是手頭沒(méi)有相關(guān)的參考書(shū)，就照著help做一些test,下面是自己寫(xiě)的一個(gè)小程序，創(chuàng)建一個(gè)箱體，然后通過(guò)bool運(yùn)算給它一個(gè)開(kāi)口以出射光。但是選擇文件，并在command鍵入 ]u >~:  
(creat_outbox 1550 2500 750 1450 2400) ，點(diǎn)擊執(zhí)行時(shí)出現(xiàn) M0MvOO*ad  
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3] s9?H#^Y5u  
的錯(cuò)誤。而且從tracepro的窗口看，箱體是建立起來(lái)了，但是沒(méi)有移動(dòng) eOd'i{f@F  
(define creat_outbox qP[jtRIN  
  (lambda (x_width y_length z_height x_out y_out) MJ@PAwv"  
    (define outbox (insert:block x_width y_length z_height)) 14Jkr)N  
    (edit:move (outbox) 0 0 130 )         ;help 中語(yǔ)法形式 &m@DK>  
    (define outputface (insert:block x_out y_out 10)) @(e/Y/  
    (edit:move (outputface) 0 0 505)     ;help 中語(yǔ)法形式 $,7Yo nc  
    (define `c_Wk]i  
      outter (bool:subtract outbox outputface)) flU?6\_UC  
    )) WNV}@  
;(creat_outbox 1550 2500 750 1450 2400) Qnv)\M1  
h\OMWJ~  
如果我按照example中“Toroidal_Mirror.scm”的edit:move語(yǔ)句寫(xiě)程序（如下）就可以正確運(yùn)行， qmGLc~M0  
(define creat_outbox sMWNzt  
  (lambda (x_width y_length z_height x_out y_out) ~jOk?^6  
    (define outbox (insert:block x_width y_length z_height)) wEb10t,  
    (define outbox (edit:move outbox 0 0 130)) Bjsg!^X7  
    (define outputface (insert:block x_out y_out 10)) e:WKb9nT  
    (define outputface (edit:move outputface 0 0 505)) &B ^LaRg  
    (define a"X9cU[  
      outter (bool:subtract outbox outputface)) V0F&a~Q  
    )) USyOHHPW@  
YZ^;xV  
想請(qǐng)教下其中錯(cuò)誤的原因 ksli-Px  
*Ag,/Cm]  
help中edit:move的實(shí)例為 sxU 0Fg   
!&vPG>V  

Syntax:

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

Z[zRZ2'i5  

Example:

T [2l32   ;Create a sphere centered at the origin   &\M<>>IB   (solid:sphere (position 0 0 0) 12)   t\\`#gc9~i   ;;#[entity 1 1]   &qae+p?   ;Move the sphere by 1 unit in x, y, and z.   7,Q>>%/0P   (edit:move (entity 1) 1 1 1) xE qr3(

0