[编程交流] initget是否

 
(defun c:YesNo (/ ans)
(initget "YES yes NO no")
(setq ans (strcase (getstring "\nYes or No: ")
 
(cond
((eq ans "No")
(alert "\nYou selected 'No'")
)
((eq ans "Yes")
(alert "\nYou selected 'Yes'")
)
);cond
(princ)
);defun

(defun c:YesNo (/ ans)
(initget 1 "Yes No")
(setq ans (getkword "\nYes or No: "))
 
(cond
((eq ans "No")
(alert "\nYou selected 'No'")
)
((eq ans "Yes")
(alert "\nYou selected 'Yes'")
)
);cond
(princ)
);defun

;; Initget / GetK(ey)word Examples
;; © Lee Mac 2010
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;; Note 1: On Prompt String Format
;; In all examples, to achieve correct display
;; when DYNamic Input (DYNMODE=1) is enabled,
;; prompt string must be formatted thus:
;; [Option1/Option2/Option3]
;; Or, with default:
;; [Option1/Option2/Option3] <Option1>
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;; Note 2: On Global Variable Format
;; In all examples utilising global variables
;; asterisks are included in variable names to decrease
;; risk of variable names clashing with unlocalised variables
;; from other programs. Asterisks are used for no other purpose.
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;; 1. Force User Input (initget bit 1)
(initget 1 "Alpha Beta Gamma")
(setq ans (getkword "\nChoose [Alpha/Beta/Gamma]: "))
;; User must select a choice to continue, else
;; Esc must be used to cancel evaluation
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;; 2. Preset Default (Alpha)
;; a)
(initget "Alpha Beta Gamma")
(setq ans (cond ( (getkword "\nChoose [Alpha/Beta/Gamma] <Alpha>: ") ) ( "Alpha" )))
;; b)
(initget "Alpha Beta Gamma")
(setq ans (getkword "\nChoose [Alpha/Beta/Gamma] <Alpha>: "))
(if (not ans) (setq ans "Alpha"))
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;; 3. Dynamic Default (utlisation of Global Variable: *ans*)
;; a)
(or *ans* (setq *ans* "Alpha"))
(initget "Alpha Beta Gamma")
(setq *ans*
 (cond
   (
     (getkword
       (strcat "\nChoose [Alpha/Beta/Gamma] <" *ans* ">: ")
     )
   )
   ( *ans* )
 )
)
;; b)
(if (not *ans*) (setq *ans* "Alpha"))
(initget "Alpha Beta Gamma")
(setq *ans*
 (cond
   (
     (getkword
       (strcat "\nChoose [Alpha/Beta/Gamma] <" *ans* ">: ")
     )
   )
   ( *ans* )
 )
)
;; c)
(initget "Alpha Beta Gamma")
(setq *ans*
 (cond
   (
     (getkword
       (strcat "\nChoose [Alpha/Beta/Gamma] <"
         (setq *ans*
           (cond ( *ans* ) ( "Alpha" ))
         )
         ">: "
       )
     )
   )
   ( *ans* )
 )
)