大写显示

spring · 发表于 2004-4-4 14:08:00

strcase 函数可以将小写转换成大写，那如果我是对话框呢？

1sjmiocv5fw.jpg

------------------------------------------------
如上图当我是以小写输入时如何能让它显示成大写

spring · 发表于 2004-4-4 15:26:00

在程序中用 strcase 处理输入的内容，对话框仅是个显示。 doslib 是不是有个capslock的开关函数，可是用户不小心又给关了呢？

spring · 发表于 2004-4-4 15:29:00

是可以用 strcase 处理输入的内容，但是对话框中不会显示成大写的啊

meflying · 发表于 2004-4-4 15:35:00

用户指向那个框就打开大写，到别处关闭
dos_capslock
Toggles the state of the  key.
Syntax
(dos_capslock [T])
Parameters
T If specified, the  is turned on. Otherwise, it is turned off.
Returns
T if  is turned on.
nil if  is turned off.
Example
Command: (dos_capslock t)
T
Command: (dos_capslock)
nil

spring · 发表于 2004-4-4 20:02:00

dos_capslock    这好像不是 lisp 函数吧
我把程序贴上来大侠帮我看看吧
(defun c:h_chtag ()
   (setq ss (car (entsel)))
   (if ss
   (progn
   (setq dhc (load_dialog "h_chtagcn.dcl"))
   (if (null (new_dialog "h_chtag" dhc))
(exit)
   )
   (action_tile "accept" "(done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")
   (start_dialog)
   (unload_dialog dhc)
   )
   )
   (princ)
)

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:cigqrhrqlqs.LSP
下载次数:0 文件大小:2.17 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

mmmmmm · 发表于 2004-4-4 20:24:00

这个问题应该没必要贴程序吧,,,2楼已经说明白了,4楼只是补充一下而已

meflying · 发表于 2004-4-4 21:13:00

哦，谢谢辉哥的提请
我在 (start_dialog)前加了一句
   (dos_capslock t)
   (start_dialog)
然后在 (unload_dialog dhc) 后加了一句
   (unload_dialog dhc)
   (dos_capslock)
改成这样子的话就不需要 strcase 函数拉，还有如果我只想在加工孔代号那一阑输入中显示成大写，而下面一阑不需要又该怎么办呢???