[源码]简易小写转大写

004

1. ;;小写转大写
   
2. (alert "小写转大写命令TT")
   
3. (defun c:tt (/ E EN N SS TEXT)
   
4.   (setq ss (ssget "x" '((0 . "TEXT"))))
   
5.   (if ss
   
6.     (progn
   
7.       (repeat (setq n (sslength ss))
   
8.   (setq e (ssname ss (setq n(1- n))))
   
9.   (setq en (entget e))
   
10.   (setq text (assoc 1 en))
    
11.   (setq en (subst (cons 1 (strcase (cdr text))) text en));(strcase "AA" T)大写转小写
    
12.   (entmod en)
    
13.   )
    
14.       )
    
15.     )
    
16.   )

;;小写转大写<br /> (alert "小写转大写命令TT")<br /> (defun c:tt (/ E EN N SS TEXT)<br />   (setq ss (ssget "x" '((0 . "TEXT"))))<br />   (if ss<br />     (progn<br />       (repeat (setq n (sslength ss))<br />   (setq e (ssname ss (setq n(1- n))))<br />   (setq en (entget e))<br />   (setq text (assoc 1 en))<br />   (setq en (subst (cons 1 (strcase (cdr text))) text en));(strcase "AA" T)大写转小写<br />   (entmod en)<br />   )<br />       )<br />     )<br />   )

树櫴希德

没有人顶，测绘人顶一个

jkop

全小写转为大写，测试ok，收藏！

chenbh2

下载，备用！

zhangrunze

感谢分享~学习了。正常运行。
代码可以首字母改为大写吗？