清风明月名字 发表于 2013-11-25 20:15:51

将框选所有图元中的文字小写改为大写

;命令将框选所有图元中的文字小写改为大写.lsp
(defun c:TT( / n textn textnlst textss)
; (command "-style" "方正细等线体" "FZXDXJW.TTF" "1.0" "1.0" "0" "N" "N")
(setq textss (ssget '((0 . "*text"))))
(setq n 0)
(repeat (sslength textss)
    (setq textn (ssname textss n))
    (setq textnlst (entget textn))
    (setq textnlst (subst (cons1(strcase (CDR(assoc 1 textnlst)) ))(assoc 1 textnlst) textnlst))
    (entmod textnlst)                                                        `
    (setq n (1+ n))
)
(princ)
)

jkop 发表于 2023-10-31 16:21:13

测试ok，收藏！
页: [1]
查看完整版本: 将框选所有图元中的文字小写改为大写