SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 请教各位:如何将Solidworks工程图中仿宋体长宽比改成国标 [打印本页]

作者: uqljennces 时间: 2004-11-16 17:25
标题: 请教各位:如何将Solidworks工程图中仿宋体长宽比改成国标
公司标准化做,正常比例的仿宋体字不行,请教各位如何改成国标要求的0.7的比例.谢谢啦..

作者: ljw61300532 时间: 2004-11-16 17:26
我也在寻找设置的方法

作者: gfdhj 时间: 2004-11-16 17:30
为什么要搞成国标，那么死板！不影响交流就可以了嘛！

作者: czqdl 时间: 2004-11-16 17:35
SolidWorks工程图助手(GBDrawing)

http://www.mcadtools.net/show.asp?id=256

作者: zjxlsj 时间: 2004-11-16 17:38
根本不用那么麻烦，直接在api帮助里找到 increase width of text 实例教程下的代码，然后在SolidWorks中新建一个宏，然后把代码贴进去，就OK了。方便的话自己建个按钮，并指定宏。其中字体的长宽比可自己修改宏代码中的值。具体代码如下：
使用时选中要修改的字体，然后运行宏即可。
Sub main()
Dim swApp                      As SldWorks.SldWorks
Dim swModel                   As SldWorks.modelDoc
Dim swSelMgr                   As SldWorks.SelectionMgr
Dim swAnnObj                   As Object
Dim swAnnotation             As SldWorks.Annotation
Dim swTextFormat             As SldWorks.textFormat
Dim dWidth                   As Double
Dim bRet                      As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swAnnObj = swSelMgr.GetSelectedObject5(1)
Set swAnnotation = swAnnObj.GetAnnotation
Set swTextFormat = swAnnotation.GetTextFormat(0)
dWidth = swTextFormat.WidthFactor
Debug.Print "Old width = " & dWidth
swTextFormat.WidthFactor = 2# * dWidth
bRet = swAnnotation.SetTextFormat(0, False, swTextFormat)
dWidth = swTextFormat.WidthFactor
Debug.Print "New width = " & dWidth
End Sub

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)