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

清风明月名字

;命令将框选所有图元中的文字小写改为大写.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 (cons  1  (strcase (CDR(assoc 1 textnlst)) ))(assoc 1 textnlst) textnlst))
    (entmod textnlst)                                                        `
    (setq n (1+ n))
  )
(princ)
)

jkop

测试ok，收藏！