【原创】更改标注字体

Allate

有感于系统原生的零件和装配体中，标注的字体有点小，有时难以分清数字的大小，于是就有了本宏。
P.S. 此宏适合处理已经做好的模型，如果在模板中设置好字体即可不使用此宏。

' ******************************************************************************
' 更改标注字体.swp - By Allate, 2022-05-14
' ******************************************************************************
'说明：
'1. 本宏为常驻宏，保存文档时生效；
'2. 本宏更改文档属性中，注解和尺寸中的字体——把字体更改为【新宋体】，字高更改为5mm；
'3. 只针对零件和装配体，工程图部分已经注释掉，如有需要可以解除注释。

宏文件：
更改标注字体_2022-05-21.zip (16.19 KB, 下载次数: 146, 售价: 8 金币)

2022-5-21 09:51 上传

点击文件名下载附件
售价: 8 金币  [记录]
下载积分: 金币 -1

'2022-05-21更新，消除编辑工程图时切换模型引起的BUG。

lxr8833661

谢谢您，支持支持

yni621

感谢楼主分享，很不错！

jyzas001

谢谢分享

longtang731

   经典案例图书

很不错，找到组织了！

fan03488

感谢楼主分享，很不错！

hdgd501

   经典案例图书

楼主太有才了，膜拜中……

hhh001

谢谢楼主分享，学习学习！！

wwwerzhou

楼主太有才了，膜拜中……

peng188

感谢楼主分享，很不错！

fend7788

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. Dim swTextFormat As SldWorks.TextFormat
   
6. Dim TextFormatObj As Object
   
7. Dim ModelDocExtension As ModelDocExtension
   
8. 
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set Part = swApp.ActiveDoc
    
12. Set ModelDocExtension = Part.Extension
    
13. Set TextFormatObj = ModelDocExtension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, o)
    
14. Set swTextFormat = TextFormatObj
    
15. swTextFormat.CharHeight = 0.005
    
16. boolstatus = ModelDocExtension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, 0, swTextFormat)
    
17. End Sub
    

复制代码

单改字体高度可以使用这段代码

看不见的妳

确实用的上，有时候6 8 9都看着分不清

看不见的妳

版主大大，测试了一下，我这出现了一种情况，宏启动后，模型里的标注字体还是汉仪长仿宋，汉仪长仿宋是我模板里的字体跟总绘图标准里的字体。这是第一种现象，另一个现象就是，工程图那块是注释掉的，但是当我编辑了模型的草图再退出草图，即使没改动任何地方，返回工程图保存时，工程图的字体还是跟着变成新宋体了。

Allate

看不见的妳 发表于 2022-5-20 17:13
版主大大，测试了一下，我这出现了一种情况，宏启动后，模型里的标注字体还是汉仪长仿宋，汉仪长仿宋是我模 ...

之前没考虑到会像你这样改工程图的，就写少了一段，现在补上了，你重新下载再试一下吧。

另外，你说没变化，那是因为没有保存啊，这个宏是保存了才会触发的。

看不见的妳

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2022-5-21 10:08
之前没考虑到会像你这样改工程图的，就写少了一段，现在补上了，你重新下载再试一下吧。

另外，你说没 ...

上个评论里可能没有表达清楚。对于说明里的第三条，'3. 只针对零件和装配体，工程图部分已经注释掉，如有需要可以解除注释。我的理解是：不解除注释，宏只对零件和装配体的字体起作用，比如将汉仪长仿宋改为新宋体，而不对与零件或装配体相对应的工程图起作用。
现在实际测试的时候，是会对工程图起作用的。这就导致打开别人公司发来的文件时，非要把自己公司的文件全部关掉，然后开启更改字体这个宏，改完了再重启sw，然后打开自己公司的文件，才能避免自己公司的文档不受影响，我自己公司的三维模型的尺寸标注变成新宋体也无所谓，但是工程图的标题栏里的字就乱了。所以我不想这个宏对工程图起作用。工程图里的尺寸字体默认是使用文档字体，三维模型文档的字体变成新宋体了，工程图里字体就随着变成新宋体了。
还是说制作工程图模板的时候，有什么位置可以把使用文档字体给取消勾选？不管三维模型是什么字体，我工程图永远是模板里设置的字体（比如汉仪长仿宋）

Allate

   经典案例图书

看不见的妳 发表于 2022-5-21 11:17
上个评论里可能没有表达清楚。对于说明里的第三条，'3. 只针对零件和装配体，工程图部分已经注释掉，如有 ...

已经了解到你的意思了，你重新下载宏文件，再测试一下吧。

潇湘夜夕雨

加入QQ群
参与讨论和学习

或扫描二维码加入

过来学习下知识

wwwerzhou

   经典案例图书

楼主太有才了，膜拜中……

xiaofly888

很不错，顶一下！

hhh001

谢谢分享！很不错！