有關2012版LISP中屬性圖形插入問題

請教一下各位神人!

想請教有關LISP的一些問題: 屬性圖形插入後, 不會出現交談窗(只有命令列問答), 後面接著的~ZOOM~A, 也就無法接著順利執行

^C(SETQ P1 (LIST 290 205))(SETQ FR "G:/CAD/CADUNIT/VC(H)")(SETQ FR1 "G:/CAD/CADUNIT/VIB(H)")(LOAD "G:/CAD/ELISP/SET-VIB");

這是在MENU裡加進去的一個巨集指令, 從R12版用到現在應該是沒啥問題!

其中要載入的LISP: SET-VIB, 可能是問題所在!請幫忙看看是那兒有問題~

   (setvar "cmdecho" 0)
   (SETQ X (GETREAL "\n KEYIN SCALE : "))
   (SETQ X  (/ 1 X ))
   (setq p1 (list (* X (car p1))
                  (* X (cadr p1))  ))
   ;--------------------------------------------------
   (command "limits" "0,0" P1)
   (command "snap" 1)
   (command "GRID" (* 10 X))
   (command "units" "2" "2" "1" "0" "0" "n")
   (command "LTSCALE"  (* 4 X) )                       ;acad.lin use  autocad
   (setvar "snapmode" 1)                          ;orignal file
   (command "ucsicon" "off")
   (command "GRID" "OFF")
;---------------------------------
   ; put drawing fram & titel to your drawing file
   ;
   (command "INSERT" FR "0,0" X X 0)
   (IF (/= FR "A4")
       (command "INSERT" FR1 "0,0" X X 0)
   )
   (command "zoom" "a")

其中..插入FR沒問題(不是屬性圖形), 但是...插入FR1後, 在2011以前的版本會出現交談窗, 帶按下確認後, 會執行 ZOOM~A, 但是換到2012版後就不行了!

請各位善心大得幫忙想想辦法, 謝謝了!