[求助]：输入字母都是大写

szx025 · 发表于 2007-11-22 07:49:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;;-----------------轴线号----------------
(defun C:zxh (/ ap lp ku  p1  p2 p3 )
;;保存系统变量设置
(setq old_OS  (getvar "OSMODE")
   old_CMD (getvar "CMDECHO")
)
(setq cl (getvar "clayer"))
(setvar "CMDECHO" 0)
;(command "-osnap" "INT")
(setvar "osmode" 33)
(command "-layer" "m" "轴线"
               "C" "4" """")
(setq ap (getpoint "第一点:"))
(setq lp (getpoint ap "第二点:"))
(setvar "OSMODE" 0)
(setq ku (angle ap lp))
(setq p1 (polar lp ku 500));;圆心
(setq p2 (polar p1 (* 1.2 pi) 300));;文字起点
(setq p3 (polar p1 (* 1.8 pi) 300));;文字终点
(command "line" ap lp "")
(command "circle" p1 500)
(COMMAND "STYLE" "HZ" "ROMANS,HZTXT" "" "" "" "" "" "")
(command "text" "j" "f" p2 p3 500)
;;恢复系统变量设置
   (setvar "CMDECHO" old_CMD)
(setvar "OSMODE" old_OS)
(setvar "clayer" cl)
   (setq *error* olderr)
   (princ)
)
这是我写的一个标轴线号的程序,请高手完善一下,问题是:
当输入字母时,字母的大小写是受键盘的CAPS LOCK控制的,能否在做到不论CAPS LOCK是开还是关,输入字母时,都是大写.

zxq0220 · 发表于 2007-11-22 07:54:37

程序中哪有用键盘输入字母？

taner · 发表于 2007-11-22 08:20:58

改為用ENTMAKE生成文本。

zxq0220 · 发表于 2007-11-22 08:48:36

这样可以得到大写字母：
(setq txt (strcase (getstring "\n输入文字 :")))

szx025 · 发表于 2007-11-22 13:01:43

程序中用键盘输入字母.
(command "text" "j" "f" p2 p3 500)

leeyuan · 发表于 2007-11-22 15:34:59

楼主可将要输入的文本设为一个变量，再用strcase调整大小写

carrot1983 · 发表于 2007-11-22 17:26:47

最喜欢改别人的程序了
[PHP];;;;-----------------轴线号----------------
(defun c:tt (/ ap lp ku p1 p2 p3)
  ;;保存系统变量设置
  (setq old_os (getvar "osmode")
old_cmd (getvar "cmdecho")
  )
  (setq cl (getvar "clayer"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 33)
  (if (not (tblsearch "layer" "轴线"))
(command "-layer" "m" "轴线" "c" "4" "" "")
  )
  (while (setq ap (getpoint "\n 第一点<退出>: "))
(initget 1)
(setq lp (getpoint ap " 第二点: "))
(setvar "clayer" "轴线")
(setvar "osmode" 0)
(setq ku (angle ap lp))
(setq p1 (polar lp ku 500))
;;圆心
(setq p2 (polar p1 (* 1.2 pi) 300))
;;文字起点
(setq p3 (polar p1 (* 1.8 pi) 300))
;;文字终点
(command "._line" ap lp "")
(command "._circle" p1 500)
(setq txt (strcase (getstring "\n 输入文字<A>: ")))
(if (= txt "")
   (setq txt "A")
)
(if (not (tblsearch "style" "hz"))
   (command "_style"       "hz"    "romans.shx,hztxt.shx "
         "0.0"       "1"    ""    ""
         ""       ""
      )
)
(command "._text" "j" "f" p2 p3 500 txt)
(setvar "osmode" 33)
  )
  ;;恢复系统变量设置
  (setvar "cmdecho" old_cmd)
  (setvar "osmode" old_os)
  (setvar "clayer" cl)
  (setq *error* olderr)
  (princ)
)
[/PHP]

szx025 · 发表于 2007-11-22 18:46:28

谢谢,改得好

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：输入字母都是大写

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子