AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]想用ESC當防呆觸動開關 Ioaoe110 [討論]想用ESC當防呆觸動開關 2020-310 [討論]想用ESC當防呆觸動開關 Oiu15010 [討論]想用ESC當防呆觸動開關 2020-211 [討論]想用ESC當防呆觸動開關 Oo-2-110 [討論]想用ESC當防呆觸動開關 BPl3tjj

[討論]想用ESC當防呆觸動開關

向下

[討論]想用ESC當防呆觸動開關 Empty [討論]想用ESC當防呆觸動開關

發表 由 sword0626 周一 1 11月 2021 - 0:12

最近在寫多迴圈程式,但是操作中途只要手順的按到ESC的話,一切過程,設定的參數都要重來,
參考張老師的做法時,突然想到,如果設定ESC為觸動開關,回到上一步的話,不就可以防止中斷, 竊喜
於是研究了一下,發現可以,但是只能執行一次,第二次還是會失敗 火冒三丈
而且第二次會出現警示,中文的意思大概是:ESC的設定跑掉,把原先設定置頂...

想請問前輩們是不是我那邊沒有設定好呢?
還是說,有沒有方法讓ESC中斷暫時失效呢? 感動

以下是簡易的測試程式:

(defun c:g5()
   (setq olderr *error* *error* useerr)
   (*push-error-using-command*)
   (setq ust 10)
   (while (< ust 13)
   (initget " F C _F C ")
   (setq utast
 (getkword "\nF(畫直徑10的圓)/C(畫直徑20的圓)< 取消返回 >"))    
   (cond
  ((= utast "F") (setq ust 11))
  ((= utast "C") (setq ust 12))
  ((= utast nil) (setq ust 13))
)
   (cond
     ((= ust 11)
      (command "circle" pause 5)
      )
     
     ((= ust 12)      
      (command "circle" pause 10)
      )
      )
     (setq *error* olderr)
    )          
    )
   
;;;======================================================

(defun useerr(key / )
 (*pop-error-mode*)
 (setq *error* olderr)
 (c:g5)
(princ)
)
sword0626
sword0626
專屬會員
專屬會員

文章總數 : 10
年齡 : 38
來自 : 新北
職業 : 鈑金繪圖員
愛好 : 動漫ACG
個性 : 消極、得過且過、平凡過一生
使用年資 : 10
使用版本 : AutoCAD 2018
經驗值 : 158
威望值 : 10
注冊日期 : 2021-09-05
男 巨蟹座 豬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]想用ESC當防呆觸動開關 Uos15010 [討論]想用ESC當防呆觸動開關 BPl3tjj [討論]想用ESC當防呆觸動開關 Ziao1510 [討論]想用ESC當防呆觸動開關 Oo-2-110 [討論]想用ESC當防呆觸動開關 Oooo-110 [討論]想用ESC當防呆觸動開關 2020-211