如何把字串中大写字母全部换成小写？

superxzg

如何把字串中大写字母全部换成小写？

ZZXXQQ

看一下STRCASE函数。

byghbcx

将字符串中的所有字母转换成大写或小写后返回
(strcase string [which])

参数

string

字符串。

which

如果提供该参数且其值不为 nil，string 中的所有字符将被转换成小写，否则将字符转换为大写。

返回值

字符串。

样例

命令：(strcase "Sample")

"SAMPLE"

命令：(strcase "Sample" T)

"sample"

strcase 函数将正确处理当前所配置的字符集的大小写映射。

killer9806

楼上的很详细。

diablo_xie

以前编了一个大小写转换程序你试试:

(defun c:dx()  (initget  "D X")
                 (setq dx (getkword "\n改成: D-大写/X-小写 :<D>"))
                 (setq ss (ssget '((0 . "text")))
         i 0
         m 0)
               (while (< i (sslength ss))
  ;字母小写
  (if (= dx "X")
   (PROGN 
    (setq en (ssname ss i))
    (setq ent (entget en))
    (setq w (strcase (cdr(assoc 1 ent)) t))
    (setq ent (subst (cons 1 w) (assoc 1 ent) ent))
    (entmod ent)
    (setq i (1+ i))
   )
   ;字母大写
   (progn  
    (setq en (ssname ss i))
    (setq ent (entget en))
    (setq w (strcase (cdr(assoc 1 ent))))
    (setq ent (subst (cons 1 w) (assoc 1 ent) ent))
    (entmod ent)
    (setq i (1+ i))
   )
         )
        )

  )
(princ)