Dim instance As IDrawingDoc
Dim P0 As Object
Dim P1 As Object
Dim P2 As Object
Dim P3 As Object
Dim P4 As Object
Dim Val As Double
Dim PrimPrec As Integer
Dim Text As String
Dim TextPoint As Object
Dim Angle As Double
Dim TextHeight As Double
Dim Prefix As String
Dim Suffix As String
Dim Callout1 As String
Dim Callout2 As String
Dim TolType As Integer
Dim TolMin As String
Dim TolMax As String
Dim TolPrec As Integer
Dim ArrowSize As Double
Dim ArrowStyle As Integer
Dim ArrowDir As Integer
Dim WitnessGap As Double
Dim WitnessOvershoot As Double
Dim DualDisplay As Boolean
Dim DualPrec As Integer
Dim value As Object
value = instance.CreateLinearDim3(P0, P1, P2, P3, P4, Val, PrimPrec, Text, TextPoint, Angle, TextHeight, Prefix, Suffix, Callout1, Callout2, TolType, TolMin, TolMax, TolPrec, ArrowSize, ArrowStyle, ArrowDir, WitnessGap, WitnessOvershoot, DualDisplay, DualPrec)
|