[共享]：改所有样式为同一字体！

Dallas_whu

我想将所有文字样式的字体改为"tssdeng,hztxt"，我对VLA不熟悉，请各位大侠指点。

已经更新！谢谢2楼大侠指点！

[PHP]
;;;将所有文字样式的字体改为"TSSDENG,HZTXT"
(defun c:RST (/ doc sty stylst textsty lstr)
  (vl-load-com)             
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (vlax-for sty        (vla-get-textstyles doc)
    (if        (not (member (vla-get-name sty) stylst))
      (setq stylst (cons (vla-get-name sty) stylst))
    )
  )
  (foreach textsty stylst
    (command "_.style" textsty "tssdeng,hztxt" 0 0.8 0 "n" "n" "n")
  )
  (setq lstr (vl-princ-to-string (reverse stylst)))
  (princ (strcat "\n已经更改了文字样式 "
                 lstr
                 " 的字体改为\"TSSDENG,HZTXT\"!"
         )
  )
  (princ)
)
[/PHP]

lidejun_55

这个函数用来获取当前所有的文字样式：
(defun VxGetTextStyles ( / StyLst)
(or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
(or Gb:AcD (setq Gb:AcD (vla-get-ActiveDocument Gb:AcO)))
(vlax-for Sty (vla-get-TextStyles Gb:AcD)
  (setq StyLst (cons
                (cons
                 (vla-get-Name Sty)
                 (vla-get-FontFile Sty)
                )
                StyLst
               )
  )
)
(reverse StyLst)
)

Dallas_whu

谢谢！我已经知道了。

jane123456

可惜没有破解，安装后只是演示版，功能受限

lidejun_55

最初由 jane123456 发布
[B]可惜没有破解，安装后只是演示版，功能受限 [/B]

简直牛头不对马嘴

83778069

那里有这个lisp程序？能否共享。

and2008

Dallas_whu ,lidejun_55
两位高人，能不能综合一个发出来呀，期待中......
顺便问一句你指的所有字体包括尺寸标注字体么？
还有就是替换字体不会更改字体大小把？！
期待答复......

Dallas_whu

一楼的代码已经更新；更改所有样式，不改其字高！

and2008

挺不错的，很好，感谢......

enid

好象都有道理哈

tjtghtghtgh

我把1楼的代码加载了，显示
; 错误: no function definition: VLAX-GET-ACAD-OBJECT
请问怎么办，我用得是2004

lidejun_55

2. 
   
3.   [FONT=courier new]
   
4. 加上句
   
5. ;;;将所有文字样式的字体改为"TSSDENG,HZTXT"
   
6. (defun c:RST (/ doc sty stylst textsty lstr)         
   
7.   (vl-load-com)
   
8.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
9.   (vlax-for sty    (vla-get-textstyles doc)
   
10.     (if    (not (member (vla-get-name sty) stylst))
    
11.       (setq stylst (cons (vla-get-name sty) stylst))
    
12.     )
    
13.   )
    
14.   (foreach textsty stylst
    
15.     (command "_.style" textsty "tssdeng,hztxt" 0 0.8 0 "n" "n" "n")
    
16.   )
    
17.   (setq lstr (vl-princ-to-string (reverse stylst)))
    
18.   (princ (strcat "\n已经更改了文字样式 "
    
19.          lstr
    
20.          " 的字体改为"TSSDENG,HZTXT"!"
    
21.      )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> 加上句<br /> ;;;将所有文字样式的字体改为"TSSDENG,HZTXT" <br /> (defun c:RST (/ doc sty stylst textsty lstr)          <br />   (vl-load-com)<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) <br />   (vlax-for sty    (vla-get-textstyles doc) <br />     (if    (not (member (vla-get-name sty) stylst)) <br />       (setq stylst (cons (vla-get-name sty) stylst)) <br />     ) <br />   ) <br />   (foreach textsty stylst <br />     (command "_.style" textsty "tssdeng,hztxt" 0 0.8 0 "n" "n" "n") <br />   ) <br />   (setq lstr (vl-princ-to-string (reverse stylst))) <br />   (princ (strcat "\n已经更改了文字样式 " <br />          lstr <br />          " 的字体改为"TSSDENG,HZTXT"!" <br />      ) <br />   ) <br />   (princ) <br /> )<br /> <br />   [/FONT]<br />

tjtghtghtgh

感谢12楼的及时回复，要是想全部改成仿宋GB-2312,常规，好像不好使呢

lidejun_55

最初由 tjtghtghtgh 发布
[B]感谢12楼的及时回复，要是想全部改成仿宋GB-2312,常规，好像不好使呢 [/B]

源码已经有了，为什么还不会改字体？

2. 
   
3.   [FONT=courier new]
   
4. (defun c:RST (/ doc sty stylst textsty lstr)         
   
5.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.   (vlax-for sty    (vla-get-textstyles doc)
   
7.     (if    (not (member (vla-get-name sty) stylst))
   
8.       (setq stylst (cons (vla-get-name sty) stylst))
   
9.     )
   
10.   )
    
11.   (foreach textsty stylst
    
12.     (command "_.style" textsty "SIMFANG.TTF" 0 0.8 0 "n" "n" "n")
    
13.   )
    
14.   (setq lstr (vl-princ-to-string (reverse stylst)))
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:RST (/ doc sty stylst textsty lstr)          <br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) <br />   (vlax-for sty    (vla-get-textstyles doc) <br />     (if    (not (member (vla-get-name sty) stylst)) <br />       (setq stylst (cons (vla-get-name sty) stylst)) <br />     ) <br />   ) <br />   (foreach textsty stylst <br />     (command "_.style" textsty "SIMFANG.TTF" 0 0.8 0 "n" "n" "n") <br />   ) <br />   (setq lstr (vl-princ-to-string (reverse stylst))) <br /> )<br />   [/FONT]<br />

tjtghtghtgh

谢谢，我主要是对汉字体的描述写法不对
"SIMFANG.TTF"表示仿宋，其他的汉字体又是如何表示，从哪里可以查到？
顺便问一下，lidejun，是不是TSDI的？