Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Dimension change to reference

Status
Not open for further replies.

jackley

Automotive
Joined
Sep 2, 2004
Messages
263
Location
US
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.
 
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
 
Thank you, I will give it a try.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top