【求助】本人编写的四行代码程序，无法满足要求，求高手帮忙改一下

gao051525

程序如下：
(defun c:df()
   (initget "F ")
   (setq s0 (getkword "\n子程序df1 【子程序df2  (F)】:"))
   (cond
         ((= s0 "F") (df2)) ;转子程序df2
         ((= s0 "") (df1))  ;转子程序df1
    )  
)
我的想法是：输入命令df后，什么选项都不输入的时候执行子程序df1，当输入F的时候执行子程序df2.

gao051525

自己先顶一下哈，我编了两个子函数现在就想默认直接执行子函数df1，只有输入F的时候才执行子函数df2

gao051525

在线等高手，帮忙改一下

gao051525

先谢谢大侠们了，帮忙改一下吧。

仲文玉

   (cond
         ((= s0 "F") (c:df2)) ;转子程序df2
         ((= s0 "") (c:df1))  ;转子程序df1
    )
楼主两个子程序都是单独写的吧？
是不是这样的：（defun c:df1() (...........)) ;这样用（c:df1）调用
                     ：（defun df1() (...........)) ;这样用（df1）调用

sen.sam

楼主的意思是不是程序启动后等待几秒，期间如果有输入F就执行df2，没有输入F几秒后就直接执行df1？

gao051525

sen.sam 发表于 2012-6-2 15:08
楼主的意思是不是程序启动后等待几秒，期间如果有输入F就执行df2，没有输入F几秒后就直接执行df1？

哦，不是。我的意思是如果什么都不输入就执行df1，若输入F，就执行df2.期间无需等待

gao051525

仲文玉 发表于 2012-6-2 14:42
(cond
         ((= s0 "F") (c:df2)) ;转子程序df2
         ((= s0 "") (c:df1))  ;转子程序df1

是的，子程序都是单独写的。子程序没有问题的

sen.sam

gao051525 发表于 2012-6-2 16:11
哦，不是。我的意思是如果什么都不输入就执行df1，若输入F，就执行df2.期间无需等待

什么都不输入是不是连空格都不行？无需等待的话，在您准备输入F的时候，软件已经认为您什么都不输入了，那其实就等价于先执行df1，然后输入F的话就再执行df2，不输入的话就只执行df1，不知道我的理解是否正确？

gao051525

sen.sam 发表于 2012-6-2 16:26
什么都不输入是不是连空格都不行？无需等待的话，在您准备输入F的时候，软件已经认为您什么都不输入了，那 ...

对，就是大哥说的这个意思