[求助]:[0417]initget命令连结程序问题? ;;;+++++++++++++++++++++++++++++++ 问题程序如下: (setq gs (getvar "users2")) (initget "1 2 3") (setq ph (getkword (strcat "\n (1)程序A/(2)程序B/(3)程序C:<"gs">:" ) ) ) (setvar "users2" ph )
(cond ((= ph A)(c:TT001)) ;呼叫使用程序A ((= ph B)(c:TT002)) ;呼叫使用程序B ((= ph C)(c:TT003)) ;呼叫使用程序C (t nil) ) (princ ph)
小弟想将手边的程序整理一下, 可以使用关键字来呼叫使用, 但却发生呼叫不出来的问题, 该怎样处里呢? 另外若是想要设定按下空白键时, 是呼叫上次以记忆在其中的关键代码, 该怎样处里呢?
烦请各位高手解答一下~ 谢谢~ |