Dimension change to reference

[jackley]

Is there an easy way to change a dimension to reference? Or, do you have to go into the properties after it's created then add the ()?

Thank you.

 

[rickyt]

Here is a macro that I found online,not sure where or who I got it from.
Select your dimensions, then run the macro.
It works well for me!


Sub CATMain()

Dim MySel As Selection
Set MySel = CATIA.ActiveDocument.Selection

Dim MyDim As DrawingDimension
Dim Array1 As String
Dim Array2 As String
Dim Array3 As String
Dim Array4 As String
For i = 1 To MySel.Count
If TypeName(MySel.Item(i).Value) = "DrawingDimension" Then
Set MyDim = MySel.Item(i).Value
MyDim.GetValue.GetBaultText 1,Array1,Array2,Array3,Array4
MyDim.GetValue.SetBaultText 1, "(", ")",Array3,Array4
End If
Next

End Sub

 

[jackley]

Thank you, I will give it a try.