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當防呆觸動開關 Aoe1-113[討論]想用ESC當防呆觸動開關 Ioaoe110[討論]想用ESC當防呆觸動開關 2020-310[討論]想用ESC當防呆觸動開關 Oiu15010[討論]想用ESC當防呆觸動開關 2020-211[討論]想用ESC當防呆觸動開關 Ia15010[討論]想用ESC當防呆觸動開關 Aizyao10[討論]想用ESC當防呆觸動開關 Uos15010[討論]想用ESC當防呆觸動開關 BPl3tjj[討論]想用ESC當防呆觸動開關 Ziao1510
[討論]想用ESC當防呆觸動開關 Aoe15010[討論]想用ESC當防呆觸動開關 Oo-2-110[討論]想用ESC當防呆觸動開關 Zuoiy_10[討論]想用ESC當防呆觸動開關 Aizyao11[討論]想用ESC當防呆觸動開關 Iyb_1510[討論]想用ESC當防呆觸動開關 Aoe1-112[討論]想用ESC當防呆觸動開關 Uos15011[討論]想用ESC當防呆觸動開關 Aoe2da10[討論]想用ESC當防呆觸動開關 Aoe2da11[討論]想用ESC當防呆觸動開關 Aoe10

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

2 posters

向下

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

發表 由 sword0626 2021-11-01, 00: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
年齡 : 41
來自 : 新北
職業 : 鈑金繪圖員
愛好 : 動漫ACG
個性 : 消極、得過且過、平凡過一生
使用年資 : 10
使用版本 : AutoCAD 2018
經驗值 : 1201
威望值 : 10
注冊日期 : 2021-09-05
男 巨蟹座 豬

回頂端 向下

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

發表 由 masao_8 2023-06-30, 22:44

try this,but not use esc.

and can not set ((= utast nil) (setq ust 13)).

https://mega.nz/file/K1AUzBTL#y98_4_h5RVHGcc3DVnpNjdndezR9E0E2jjP6tYa-n8c
https://mega.nz/file/S4BjAaSY#_5qJLnDYNexAxRntOQcqqjqwkhJf2rRN4JrLeNEmdJY

this lisp can set (= utast nil)

https://mega.nz/file/PxQ0VKiY#FDpm1UChwnZp27VTFKMbg-bj_s05izdRiE665rkDUdU

thanks.
masao_8
masao_8
初級會員
初級會員

文章總數 : 71
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1344
威望值 : 126
注冊日期 : 2022-06-03
男 水瓶座 雞

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]想用ESC當防呆觸動開關 Aoe1-113[討論]想用ESC當防呆觸動開關 Ioaoe110[討論]想用ESC當防呆觸動開關 2020-310[討論]想用ESC當防呆觸動開關 Oiu15010[討論]想用ESC當防呆觸動開關 2020-211[討論]想用ESC當防呆觸動開關 Ia15010[討論]想用ESC當防呆觸動開關 Aizyao10[討論]想用ESC當防呆觸動開關 Uos15010[討論]想用ESC當防呆觸動開關 BPl3tjj[討論]想用ESC當防呆觸動開關 Ziao1510
[討論]想用ESC當防呆觸動開關 Aoe15010[討論]想用ESC當防呆觸動開關 Oo-2-110[討論]想用ESC當防呆觸動開關 Zuoiy_10[討論]想用ESC當防呆觸動開關 Aizyao11[討論]想用ESC當防呆觸動開關 Iyb_1510[討論]想用ESC當防呆觸動開關 Aoe1-112[討論]想用ESC當防呆觸動開關 Uos15011[討論]想用ESC當防呆觸動開關 Aoe2da10[討論]想用ESC當防呆觸動開關 Aoe2da11[討論]想用ESC當防呆觸動開關 Aoe10