请问谁有捕捉设置成按钮

lzg8877

   由于有一程序常用 捕捉丢失 所为特来求教  设一按钮 捕捉为951  在此等候

lzg8877

现在CAD2016

Andyhon

(defun c:drawline ()                                        ;define function
        (setq temperr *error*)                                ;store *error*
        (setq *error* trap1)                                ;re-assign *error*
        (setq oldecho (getvar "cmdecho"))                ;store variables                       
        (setq oldlayer (getvar "clayer"))
        (setq oldsnap (getvar "osmode"))
        (setvar "cmdecho" 0)                                ;set variables
        (setvar "osmode" 32)
        (command "undo" "m")
        ...
)

(defun trap1 (errmsg)                                        ;define function
        (command "u" "b")                                ;undo back
        (setvar "osmode" oldsnap)                        ;restore variables
        ;; (setvar "osmode" 951)
        (setvar "clayer" oldlayer)
        (setvar "cmdecho" oldecho)
        (setq *error* temperr)                                ;restore *error*
        (prompt "\nResetting System Variables ")        ;inform user
   (princ)
)

ref: http://www.afralisp.net/autolisp/tutorials/error-trapping.php       

xyp1964

(setvar"osmode"951)