[编程申请]：如何将小写字母转化成大写字母？？

qdlj001

*-*6
如何将dwg图纸中的小写字母转化成大写字母？？

小不点儿

外挂版块有这种程序下载，去那吧

lewyee

也可以使用大小写都是大写的TTF字体,比如Tech开头的就行!

LMCC

;将文本转换为全大写或全小写。

(DEFUN C:ut ()
  (setvar "CMDECHO" 0)
  (TERPRI)
  (setq R2D (/ 360 pi 2))
  (setq SS1 (ssget)
        ANS (getstring "修改文本为[U]所有大写字母或[L]所有小写字母<U>? ")
        IDX -1
        SL1 (sslength SS1)
        SL1 (- SL1 1))
  (if (= ANS "l") (setq ANS "L"))
  (if (= ANS "L") (lower) (upper))
)

(defun lower ()
  (setq IDX (+ 1 IDX))
  (if (>= IDX SL1) (stop))
  (setq B$ (ssname SS1 IDX))
  (print SL1)
  (print IDX)
  (print B$)
  (setq C$ (entget B$)
        txts (assoc '1. C$)
        tht (assoc '40. C$)
        ht (cdr tht)
        ROT (assoc '50. C$)
        ROA (cdr ROT)
        ROA (* ROA R2D)
        F$ (cdr txts)
        G$ (substr F$ 1)
        G$ (strcase G$ 1))
  (Command ".CHANGE" B$ "" "" "" "" "" "" G$)
  (if (< IDX SL1) (lower) (stop))
)

(defun upper ()
  (setq IDX (+ 1 IDX))
  (if (>= IDX SL1) (stop))
  (setq B$ (ssname SS1 IDX))
  (if (>= IDX SL1) (stop))
  (setq C$ (entget B$)
        txts (assoc '1. C$)
        tht (assoc '40. C$)
        ht (cdr tht)
        ROT (assoc '50. C$)
        ROA (cdr ROT)
        ROA (* ROA R2D)
        F$ (cdr txts)
        G$ (substr F$ 1)
        G$ (strcase G$))
  (Command ".CHANGE" B$ "" "" "" "" "" "" G$)
  (if (< IDX SL1) (upper) (stop))
)

(defun stop ()
  (TERPRI)
  (SETVAR "CMDECHO" 1)
)
(prompt "\命令: CASECHG ")

midali2005

我也在找这个

bestcheer

这个好像不能做吧

刘一刀

这个积分很特别，我要下个东西，就是炸开命令不好使的，还有文字修改不好使，ed命令
我需要10个币，痛苦

lucky_yoyoyo

受益匪浅~~~~好好学习中……

chen_6943

学习中。。。
谢谢晓东家园！谢谢楼主！