简单的批量修改文字图层和转换文字属性
从明经学到了很多东西，并应用到了自己的工作当中简单的批量修改文字图层和转换文字属性
发给大家
希望新人能有所帮助(defun c:xx()
;;; (setq ss (ssget "x" '((0 . "MTEXT"))));all
(setq ss (ssget '((0 . "MTEXT"))))；select
(setq n 0)
(setq m 0)
(repeat (sslength ss);number
(setq en (ssname ss n))
(setq en_date (entget en))
(setq en_type (cdr(assoc 8 en_date)))
(if (= en_type "moji")
(progn
(setq n (+ 1 n))
)
(progn
(command "EXPLODE" en "" )
(setq en_l(entlast))
(vl-cmdf "change" en_l "" "p" "la" "moji" "c" "bylayer" "" "")
(vl-cmdf "txt2mtxt" en_l"")
(setq n (+ 1 n))
(setq m (+ 1 m))
)
)
)
(princ (strcat m ))
) 学习下，谢谢 多谢分享，辛苦
页:
[1]