《菜鸟提问》 获取输入字符串的函数是什么
本帖最后由 HGHG011 于 2014-6-10 13:26 编辑(defun c:cx()
(command "select"(setq ss (ssget)))
(PRINC
"\n点取位置或 [移动(m)/复制(co)/镜像(mi)]<退出>" ;;这里不能实现2个字符命令，改为一个也可
)
)
怎么完成后续函数，求指导，输入单个字符（最好输入两个字符也可） 进行移动、复制、镜像等命令
______________________________________________________
本人菜鸟一枚，未系统学习lisp，也没有太多时间去学习
所问问题比较低级，求大家多多包含 HGHG011 发表于 2014-6-10 12:00 static/image/common/back.gif
如果能帮我搭建一个框架，我再加9个明经币怎样？
(initget "MO CO MI") ;移动和镜像都是以m打头，不能只用一个字母
(setq pt (getpoint "\n点取位置或 [移动(m)/复制(co)/镜像(mi)]<退出>"))
(cond
((= pt "MO") (movesub))
((=....
((= (type pt) 'LIST) (......)) ;点取
(t nil) ;其它选项，什么都不做，包括回车
)
1.退出分支根据程序结构不同也不同，正常使用(t nil)就可以了，会转到下面程序执行，但有时需要特别的退出或转移，则可以在cond下增加((or (= pt "") (= pt nil)) (sub))这种分支。
2.initget还有一个数位参数，代表不同的输入状态，不同的输入函数也不同，你可以看看帮助。
另加明经币就不必要了，我是不需要币的。 initget和getpoint。 ll_j 发表于 2014-6-10 11:52 static/image/common/back.gif
initget和getpoint。
如果能帮我搭建一个框架，我再加9个明经币怎样？
页:
[1]