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

tctabc · 发表于 2006-4-17 11:30:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

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

zxq0220 · 发表于 2006-4-17 13:22:17

楼主:你initget中用的是"1","2","3"而却判断PH=A,PH=B,PH=C！这也差太多了。
应该将(= ph A)改为(= ph "1")
应该将(= ph B)改为(= ph "2")
应该将(= ph C)改为(= ph "3")

apsmould · 发表于 2006-4-18 08:58:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

楼主说得对。。

xyp1964 · 发表于 2006-4-18 22:52:32

[FONT=courier new](defun c:test ()
(setq gs (getvar "users2"))
(initget "A B C") ;修改
(setq
ph (getkword (strcat "\n (1)程序A/(2)程序B/(3)程序C:<" gs ">:")
)
)
(setvar "users2" ph)
(cond
((= ph "A") (c:TT001)) ;A→"A"
((= ph "B") (c:TT002)) ;B→"B"
((= ph "C") (c:TT003)) ;C→"C"
(t nil)
)
(princ ph)
)
[/FONT]

tctabc · 发表于 2006-4-19 07:59:55

感谢版大的解答
另外请问 (initget "A B C ") 是否只能使用英文呢? 不可以使用数字呢?
如 (initget "1 2 3 ")

apsmould · 发表于 2006-4-19 08:35:45

使用数字也是一样的。你自己再试试。cond语句里不能少引号。因为返回的是字符串格式。
(defun c:test ()
  (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 "1") (c:TT001)) ;A→"A"
((= ph "2") (c:TT002)) ;B→"B"
((= ph "3") (c:TT003)) ;C→"C"
(t nil)
  )
  (princ ph)
)

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子