szx025 发表于 2017-8-8 10:12:02

统一文字

当前有n个文字样式，如何把除了其中一个文字样式（比如axis样式）的所有文字样式的字体文件都改为相同的型文件 比如都改为TXT.SHX ,GBCBIG.SHX

xyp1964 发表于 2017-8-9 13:15:50

;; tt(字型统一)
(defun c:tt ()
(foreach st (xyp-TblNext "style")
    (command "-style" st "TXT,hzdx" "" "0.7" "" "" "" "")
)
(VLA-PurgeAll (vla-get-ActiveDocument (vlax-get-acad-object)))
(princ)
)

fan_zh 发表于 2017-8-9 09:24:40

1. 格式刷
2. 改样式定义
3. 刷新

qq1254582201 发表于 2017-9-18 19:58:20

xyp1964 发表于 2017-8-9 13:15
;; tt(字型统一)
(defun c:tt ()
(foreach st (xyp-TblNext "style")


很简洁，很迅速
页: [1]
查看完整版本: 统一文字