Dimension change to reference
Dimension change to reference
(OP)
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.
Thank you.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Dimension change to reference
|
RE: Dimension change to reference
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
RE: Dimension change to reference