[求助]:[0417]initget命令连结程序问题?

tctabc

[求助]:[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)

小弟想将手边的程序整理一下,
可以使用关键字来呼叫使用,
但却发生呼叫不出来的问题,
该怎样处里呢?
另外若是想要设定按下空白键时,
是呼叫上次以记忆在其中的关键代码,
该怎样处里呢?

烦请各位高手解答一下~
谢谢~

mccad

initget应该设置关键字为A,B,C。

至于你想用空格代表上次的值，自已通过程序来解决。

龙龙仔

看来楼主看不懂!有空再写个例子给你!

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=48765

龙龙仔

3. ;;程式如下:
4. ;;BY LUCAS(龙龙仔)
5. (defun C:TT (/ PH DO_IT)
6.   (vl-load-com)
7.   (defun DO_IT (PROGRAM)
8.     (vla-sendcommand
9.       (vla-get-activedocument (vlax-get-acad-object))
10.       PROGRAM
11.     )
12.   )
13.   (initget "A B C ")
14.   (setq PH (getkword (strcat "\n程式(A)/程式(B)/程式<C>: ")))
15.   (cond
16.     ((= PH "A") (DO_IT "TT001 ")) ;呼叫使用程式A
17.     ((= PH "B") (DO_IT "TT002 ")) ;呼叫使用程式B
18.     (t (DO_IT "TT003 "))  ;呼叫使用程式C
19.   )
20.   (princ)
21. )
22. (defun C:TT001 ()
23.   (alert "TT001!!")
24.   (princ)
25. )
26. (defun C:TT002 ()
27.   (alert "TT002!!")
28.   (princ)
29. )
30. (defun C:TT003 ()
31.   (alert "TT003!!")
32.   (princ)
33. )
34. (princ)

;;程式如下: ;;BY LUCAS(龙龙仔) (defun C:TT (/ PH DO_IT)   (vl-load-com)   (defun DO_IT (PROGRAM)     (vla-sendcommand       (vla-get-activedocument (vlax-get-acad-object))       PROGRAM     )   )   (initget "A B C ")   (setq PH (getkword (strcat "\n程式(A)/程式(B)/程式<C>: ")))   (cond     ((= PH "A") (DO_IT "TT001 ")) ;呼叫使用程式A     ((= PH "B") (DO_IT "TT002 ")) ;呼叫使用程式B     (t (DO_IT "TT003 "))  ;呼叫使用程式C   )   (princ) ) (defun C:TT001 ()   (alert "TT001!!")   (princ) ) (defun C:TT002 ()   (alert "TT002!!")   (princ) ) (defun C:TT003 ()   (alert "TT003!!")   (princ) ) (princ)

tctabc

谢谢龙版大的解答

另外请问 (initget "A B C ")
与 (initget "1 2 3 ")

有何差异呢,是否在 a b c 之后要空格呢?

狂刀无痕

与cond要对应

magicheno

感谢大佬分享