Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set TextFormat = Part.GetUserPreferenceTextFormat(7)
htWidthFactor = TextFormat.WidthFactor
On Error Resume Next
TextFormat.WidthFactor = InputBox("表格文字的高宽比例", "随意编写的冬冬", htWidthFactor)
If Err Then MsgBox "输入错误,无效操作"
Part.SetUserPreferenceTextFormat 7, TextFormat
End Sub