请教各位:如何将Solidworks工程图中仿宋体长宽比改成国标

uqljennces · 发表于 2004-11-16 17:25:16

经典图书

公司标准化做,正常比例的仿宋体字不行,请教各位如何改成国标要求的0.7的比例.谢谢啦..

ljw61300532 · 发表于 2004-11-16 17:26:07

我也在寻找设置的方法

gfdhj · 发表于 2004-11-16 17:30:29

经典图书

为什么要搞成国标，那么死板！不影响交流就可以了嘛！

czqdl · 发表于 2004-11-16 17:35:40

SolidWorks工程图助手(GBDrawing)

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

zjxlsj · 发表于 2004-11-16 17:38:15

经典案例图书

根本不用那么麻烦，直接在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工程图中仿宋体长宽比改成国标

相关帖子