有關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 useautocad
(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版後就不行了!
請各位善心大得幫忙想想辦法, 謝謝了!
页:
[1]