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

hw2000 · 发表于 2003-5-6 14:31:00

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

leeyeafu · 发表于 2003-5-6 15:01:00

要自己开发程序也很容易,以下给出基本算法:
Function MyUpperCase(SourceStr As String) As String
  For循环,遍历源字符串各个字符
If 字符的ASCII值>=97 And ASCII值"))))
  (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))
   )
)
  )

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

发表回复

精选推荐

浏览过的版块