jel456 发表于 2012-4-27 11:48:50

有關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]
查看完整版本: 有關2012版LISP中屬性圖形插入問題

郑重声明:本站属技术交流,非赢利性网站。
本站言论纯属发表者个人意见,与“建筑在线”立场无关。
涉及政治言论一律删除,请所有会员注意. 本站资源由会员从网上收集整理所得,版权属于原作者。
本站所有资源是进行学习和科研测试之用,请在下载后24小时删除
本站出于学习和科研的目的进行交流和讨论,如有侵犯原作者的版权
请来信告知,我们将立即做出整改,并给予相应的答复,谢谢合作!