PLM-forum.ru

Здравствуйте, помогите решить возникшую проблемку.
На чертеже имеется Dual Dimension необходимо через макрос задавать Tolerance второго значения.
Для Main Dimention получается тут проблем не возникло. Любые мысли приветствуются.

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument
Dim mySel As Selection
Set mySel = CATIA.ActiveDocument.Selection
Dim myDim As DrawingDimension
Set myDim = mySel.Item(1).Value
Dim oTolType As Long
Dim oDisplayMode As Long
Dim oTolName As String
Dim oUpTolS As String
Dim oLowTolS As String
Dim oUpTolD As Double
Dim oLowTolD As Double
myDim.GetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode

oTolName = "DIN_NUM2"
oUpTolD = 0.1
oLowTolD = -0.1

myDim.SetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode

End Sub