大家好，最近開始學(xué)習(xí)macro編程，但是手頭沒有相關(guān)的參考書，就照著help做一些test,下面是自己寫的一個小程序，創(chuàng)建一個箱體，然后通過bool運(yùn)算給它一個開口以出射光。但是選擇文件，并在command鍵入 p7r/`_'|  
(creat_outbox 1550 2500 750 1450 2400) ，點(diǎn)擊執(zhí)行時出現(xiàn) 8B(v6(h  
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3] |z:4T%ES  
的錯誤。而且從tracepro的窗口看，箱體是建立起來了，但是沒有移動 L*vKIP<EMM  
(define creat_outbox Qj(ppep\U"  
  (lambda (x_width y_length z_height x_out y_out) `
c-omNu  
    (define outbox (insert:block x_width y_length z_height)) n"Bc2}{  
    (edit:move (outbox) 0 0 130 )         ;help 中語法形式 0!$y]Gr  
    (define outputface (insert:block x_out y_out 10)) Q[|*P ] w  
    (edit:move (outputface) 0 0 505)     ;help 中語法形式 (vchZn#  
    (define hv\Dz*XTs0  
      outter (bool:subtract outbox outputface)) x.] t
GS  
    )) *-Vr=e<8   
;(creat_outbox 1550 2500 750 1450 2400) GCfVH?Vx  
/m 7~-~$V  
如果我按照example中“Toroidal_Mirror.scm”的edit:move語句寫程序（如下）就可以正確運(yùn)行， be5N{lPT@;  
(define creat_outbox Aq3\Q>klH)  
  (lambda (x_width y_length z_height x_out y_out) "VU/Ucb7  
    (define outbox (insert:block x_width y_length z_height)) ~(GNY5  
    (define outbox (edit:move outbox 0 0 130)) DZ`m{l3H  
    (define outputface (insert:block x_out y_out 10)) UEfY'%x  
    (define outputface (edit:move outputface 0 0 505)) "h7Dye  
    (define 9tVV?Q@)  
      outter (bool:subtract outbox outputface)) ={N1j<%fh  
    )) n5^57[(  
#h4FLF_w  
想請教下其中錯誤的原因 P~iZae  
p?4[nS-,  
help中edit:move的實(shí)例為 ZrZDyXL  
eR6vO5to  

Syntax:

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

K{"hf:k  

Example:

n+YUG   ;Create a sphere centered at the origin   fBv: TC%   (solid:sphere (position 0 0 0) 12)   CA5`uh   ;;#[entity 1 1]   lm D[Cn   ;Move the sphere by 1 unit in x, y, and z.   ^w<aS w   (edit:move (entity 1) 1 1 1) :XG~AR/

R<{Vgy  
cF8