004 发表于 2014-5-11 02:08

[源码]简易小写转大写

本帖最后由 004 于 2014-5-11 02:37 编辑

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

树櫴希德 发表于 2014-5-12 14:28

没有人顶，测绘人顶一个

jkop 发表于 2023-10-31 16:18

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

chenbh2 发表于 2024-4-6 08:23

下载，备用！

zhangrunze 发表于 2024-4-28 13:35

感谢分享~学习了。正常运行。
代码可以首字母改为大写吗？
页: [1]
查看完整版本: [源码]简易小写转大写