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

大家好，最近開始學(xué)習(xí)macro編程，但是手頭沒有相關(guān)的參考書，就照著help做一些test,下面是自己寫的一個小程序，創(chuàng)建一個箱體，然后通過bool運算給它一個開口以出射光。但是選擇文件，并在command鍵入 IQGIU3O  
(creat_outbox 1550 2500 750 1450 2400) ，點擊執(zhí)行時出現(xiàn) zO2<Igb  
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3] ,<R/x
[  
的錯誤。而且從tracepro的窗口看，箱體是建立起來了，但是沒有移動 Xvi{A]V  
(define creat_outbox ]}ff*W  
  (lambda (x_width y_length z_height x_out y_out) Uk S86`.  
    (define outbox (insert:block x_width y_length z_height)) 2a5yJeaIv*  
    (edit:move (outbox) 0 0 130 )         ;help 中語法形式 YCh!D dy  
    (define outputface (insert:block x_out y_out 10)) ,PJl32  
    (edit:move (outputface) 0 0 505)     ;help 中語法形式 4J!1$  
    (define tOnaD]J  
      outter (bool:subtract outbox outputface)) g[8VfIe  
    )) 2YuaPq/  
;(creat_outbox 1550 2500 750 1450 2400) 2}[rc%tV:?  
I}n"6'*  
如果我按照example中“Toroidal_Mirror.scm”的edit:move語句寫程序（如下）就可以正確運行， #@2