关于一段SolidWorks中定义长仿宋体的宏程序调试！

zaqzaq

   经典图书

Dim swApp As Object
Dim Part As Object
Dim textFormat As Object
Dim typeFaceName As String
Private Sub btnCancel_Click()
unload Me
End Sub
Private Sub btnOK_Click()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set textFormat = Part.GetUserPreferenceTextFormat(swDetailingNoteTextFormat)
textFormat.typeFaceName = txtFormat.Text
textFormat.WidthFactor = Val(txtFactor.Text)
textFormat.CharHeight = Val(txtHeight) / 1000
Part.SetUserPreferenceTextFormat swDetailingNoteTextFormat, textFormat
Part.EditRebuild3
unload Me
End Sub
Private Sub UserForm_Click()
End Sub
因为SolidWorks字库中没有GB出图用的长仿宋体所以要写了一段程序
但是总是调不通
求高手帮忙调试一下啊

吕思恩

这里有现成的长仿宋体，不用去编宏程序了
SolidWorks机械工程师论坛

正在卸载中゛

   经典图书

这个字体好是好就是转换成PDF以后自己就全乱了