[求助]：大家请看看，这段程序有什么问题？

bluesky1000

代码如下：
           (progn
             (initget "0 1")
             (setq k1 (getkword "\n[0 -按行/1 -按列].<0>:"))
             (if (= k1 nil) (setq k1 "0"))
           )


现在的问题是，如果我输入1，程序就自动跳开了，而不能正常运行下去，如果直接回车，则没有问题，可以执行下去，这是为什么？

eachy

2. 
   
3. (progn
   
4.   (initget "0 1")
   
5.   (setq k1 (getkword "\n[0 -按行/1 -按列].<0>:"))
   
6.   (if (= k1 nil)
   
7.     (setq k1 "0")
   
8.     k1
   
9.   )
   
10. )

<br /> (progn<br />   (initget "0 1")<br />   (setq k1 (getkword "\n[0 -按行/1 -按列].<0>:"))<br />   (if (= k1 nil)<br />     (setq k1 "0")<br />     k1<br />   )<br /> )

ll_j

就这段本身的返回值而言，ea斑竹的代码是保证了返回的正确性，但本段使用了progn函数，一般是用在if函数中，而如果本段代码作为if函数的一个分支，代码运行结束后得到的是k1的值，本段代码应该是没错的，程序运行不正确，应该从其他位置查找，比如后面判断时k1是否按字符串判断等等。

eachy

楼主的判断应该是用在序号中的 起始判断

2. 
   
3. (if (and  
   
4.      
   
5.      }
   
6.    (progn
   

<br /> (if (and  <br />      <br />      }<br />    (progn<br />

目前我正在写一个这样的程序，对话框版，支持数字和块内属性的编号，还包括了 ET 中 autonum 的序号前后缀。

xyp1964

直接利用“ukword”这个子程序可能更简单：
[php]
(setq k1 (ukword 1 "0 1" "\n0-按行/1-按列" k1))

;;;
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
      (setq msg (strcat "\n" msg "<" def ">:")
            bit (* 2 (fix (/ bit 2)))
      )
      (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp inp def)
)
[/php]