《菜鸟提问》 获取输入字符串的函数是什么

HGHG011

(defun c:cx()
(command "select"  (setq ss (ssget)))
(PRINC
    "\n点取位置或 [移动(m)/复制(co)/镜像(mi)]<退出>" ;;这里不能实现2个字符命令，改为一个也可
  )
)


怎么完成后续函数，求指导，输入单个字符（最好输入两个字符也可） 进行移动、复制、镜像等命令
______________________________________________________
本人菜鸟一枚，未系统学习lisp，也没有太多时间去学习
所问问题比较低级，求大家多多包含

ll_j

HGHG011 发表于 2014-6-10 12:00
如果能帮我搭建一个框架，我再加9个明经币怎样？

1.   (initget "MO CO MI")     ;移动和镜像都是以m打头，不能只用一个字母
   
2.   (setq pt (getpoint "\n点取位置或 [移动(m)/复制(co)/镜像(mi)]<退出>"))
   
3.   (cond
   
4.     ((= pt "MO") (movesub))
   
5.     ((=....
   
6.     ((= (type pt) 'LIST) (......))    ;点取
   
7.     (t nil)       ;其它选项，什么都不做，包括回车
   
8.   )
   

  (initget "MO CO MI")     ;移动和镜像都是以m打头，不能只用一个字母<br />   (setq pt (getpoint "\n点取位置或 [移动(m)/复制(co)/镜像(mi)]<退出>"))<br />   (cond<br />     ((= pt "MO") (movesub))<br />     ((=....<br />     ((= (type pt) 'LIST) (......))    ;点取<br />     (t nil)       ;其它选项，什么都不做，包括回车<br />   )<br />

1.退出分支根据程序结构不同也不同，正常使用(t nil)就可以了，会转到下面程序执行，但有时需要特别的退出或转移，则可以在cond下增加((or (= pt "") (= pt nil)) (sub))这种分支。
2.initget还有一个数位参数，代表不同的输入状态，不同的输入函数也不同，你可以看看帮助。

另加明经币就不必要了，我是不需要币的。

ll_j

initget和getpoint。

HGHG011

ll_j 发表于 2014-6-10 11:52
initget和getpoint。

如果能帮我搭建一个框架，我再加9个明经币怎样？