Dim instance As IModelDoc2
Dim TolType As Integer
Dim TolMax As Double
Dim TolMin As Double
Dim TolMaxFit As String
Dim TolMinFit As String
Dim UseDocPrec As Boolean
Dim Precision As Integer
Dim ArrowsIn As Integer
Dim UseDocArrows As Boolean
Dim Arrow1 As Integer
Dim Arrow2 As Integer
Dim PrefixText As String
Dim SuffixText As String
Dim ShowValue As Boolean
Dim CalloutText1 As String
Dim CalloutText2 As String
Dim CenterText As Boolean
Dim ConfigOption As Integer
Dim Count As Integer
Dim ConfigNames As String
Dim value As Boolean
value = instance.IEditDimensionProperties3(TolType, TolMax, TolMin, TolMaxFit, TolMinFit, UseDocPrec, Precision, ArrowsIn, UseDocArrows, Arrow1, Arrow2, PrefixText, SuffixText, ShowValue, CalloutText1, CalloutText2, CenterText, ConfigOption, Count, ConfigNames)
|