叮咚 发表于 2012-11-6 21:21:58

(defun c:ttt(/ lst str)
(setq lst (list "a" "b" "c" "A" "B" "C"))
(setq str (Getstring "\n 输入字符: "))
(while (null (member strLST))
(princ "\n字符无效!重新输入!")
(setq str (Getstring "\n 输入字符: "))
)
(command "text" '(0 0) 10 0 str "")
(command "zoom" "E")
(princ)
)

xhq1954425 发表于 2012-11-7 01:35:34

叮咚 发表于 2012-11-6 21:21 static/image/common/back.gif
(defun c:ttt(/ lst str)
(setq lst (list "a" "b" "c" "A" "B" "C"))
(setq str (Getstring "\n 输入字符 ...

非常感谢！挺好！
页: 1 [2]
查看完整版本: 输入a 两个程序运行结果为何不一样？