[求助]:[0417]initget命令连结程序问题?
<P><BR>[求助]:initget命令连结程序问题?<BR>;;;+++++++++++++++++++++++++++++++<BR>问题程序如下:<BR>(setq gs (getvar "users2"))<BR>(initget "1 2 3")<BR>(setq ph (getkword (strcat "\n (1)程序A/(2)程序B/(3)程序C:<"gs">:" ) ) )<BR>(setvar "users2" ph )</P><P>(cond<BR>((= ph A)(c:TT001)) ;呼叫使用程序A<BR>((= ph B)(c:TT002)) ;呼叫使用程序B<BR>((= ph C)(c:TT003)) ;呼叫使用程序C<BR>(t nil)<BR>)<BR>(princ ph)</P>
<P>小弟想将手边的程序整理一下,<BR>可以使用关键字来呼叫使用,<BR>但却发生呼叫不出来的问题,<BR>该怎样处里呢?<BR>另外若是想要设定按下空白键时,<BR>是呼叫上次以记忆在其中的关键代码,<BR>该怎样处里呢?</P>
<P>烦请各位高手解答一下~<BR>谢谢~</P> <P>initget应该设置关键字为A,B,C。</P>
<P>至于你想用空格代表上次的值，自已通过程序来解决。</P> <P>看来楼主看不懂!有空再写个例子给你!</P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=48765" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=48765</A></P>
;;程式如下:
;;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)
<P>谢谢龙版大的解答</P>
<P>另外请问 <FONT color=#ff0000>(</FONT><A href="http://www.mjtd.com/object/autolisp/initget.htm" target="_blank" ><FONT color=blue>initget</FONT></A> <FONT color=#880000>"A B C "</FONT><FONT color=red>)</FONT><BR>与 <FONT color=#ff0000>(</FONT><A href="http://www.mjtd.com/object/autolisp/initget.htm" target="_blank" ><FONT color=blue>initget</FONT></A> <FONT color=#880000>"1 2 3 "</FONT><FONT color=red>) </FONT></P>
<P><FONT color=red>有何差异呢,是否在 a b c 之后要空格呢?</FONT><BR></P> 与cond要对应 感谢大佬分享
页:
[1]