AUTOCAD2002中是否有小写英文批量改为大写的命令，如果没有

hw2000

AutoCAD2002中是否有小写英文批量改为大写的命令，如果没有
谁有开发的程序？？

leeyeafu

要自己开发程序也很容易,以下给出基本算法:
Function MyUpperCase(SourceStr As String) As String
  For循环,遍历源字符串各个字符
    If 字符的ASCII值>=97 And ASCII值<=122 '小写字母的ASCII值为97-122
      将源字符的ASCII值减32得到大写字母并替换源字符
    End If
  Next
  输出替换后的字符串
End Function
你若熟悉VB或其它高级语言,很容易根据上述算法写出程序。

chg

(defun c:up(/ ss ent cnt txt)
  (setq ss (ssget '((-4 . "<or") (0 . "TEXT") (0 . "MTEXT") (-4 . "or>"))))
  (setq cnt 0)
  (if ss
    (while (setq ent (ssname ss cnt))
      (setq txt (cdr (assoc 1 (entget ent))))
      (setq txt (strcase txt))
      (entmod (subst (cons 1 txt) (assoc 1 (entget ent)) (entget ent)))
      (setq cnt (1+ cnt))
      )
    )
  )

hw2000