Catia Macro: Get Parent of drawing view object

[man2007]

I have created a drawing view of an assembly. In that view, I select an edge or point-Is it possible to get the name of its parent part. Or is it possible to get the point's actual 3D coordinates.

 

[AlexLozoya]

Quick code using the view...

    Sub Draw()
    

    
    Dim oDrawing As DrawingDocument
    Set oDrawing = CATIA.ActiveDocument
    
  
    Dim oSheets As DrawingSheets
    Set oSheets = oDrawing.Sheets
    


    Dim oSheet As DrawingSheet
    Set oSheet = oSheets.Item(1)
    
    Dim oView As DrawingView
    Set oView = oSheet.Views.Item(3)
    oView.Activate



  Set ProductName = oView.GenerativeBehavior.Document.Parent 
  MsgBox ProductName.Name
    End Sub

______

Alex ,

 

[itsmyjob]

if views are link with sub element of product:

Sub Draw()
    
    Dim oDrawing As DrawingDocument
    Set oDrawing = CATIA.ActiveDocument
    
    Dim oSheets As DrawingSheets
    Set oSheets = oDrawing.Sheets
    
    Dim oSheet As DrawingSheet
    Set oSheet = oSheets.Item(1)
    
    Dim oView As DrawingView
    Dim genLinks As Collection
    
    
    For i = 1 To oSheet.Views.Count - 2  'not checking background and main view
    
        Set oView = oSheet.Views.Item(i + 2)
        
        Set genLinks = ViewGenerativeLinks(oView)
        
        If genLinks.Count = 0 Then
           
            MsgBox (oView.Name & ": Isolated view")
            
        Else
            For U = 1 To genLinks.Count
                MsgBox (oView.Name & " link " & U & ": " & genLinks.Item(U).Name)
            Next U
        End If
    
    Next i

End Sub


Function ViewGenerativeLinks(oDrawingView As DrawingView) As Collection

    Dim result As New Collection
    
    On Error Resume Next
    
    Set oLink = oDrawingView.GenerativeLinks.FirstLink
    
    If Err.Number = 0 Then
        result.Add oLink
    End If
    
    While Err.Number = 0
        Set oLink = oDrawingView.GenerativeLinks.NextLink
        If Err.Number = 0 Then
            result.Add oLink
        End If
        
    Wend
    
    If result Is Not Empty Then
        Set ViewGenerativeLinks = result
    Else: Set ViewGenerativeLinks = Empty
    End If
    
End Function

Eric N.
indocti discant et ament meminisse periti ​

 

[AlexLozoya]

I've been searching fot this issue

In that view, I select an edge or point-Is it possible to get the name of its parent part.

.Restriction Explanation
Generative geometry object (genItem) is not
exposed by automation API, that's why it is not
possible to select it.
.
.By-Pass
Generative Geometry is only accessible by CAA
C++ interface

Please correct me if i am wrong.

______

Alex ,

 

[man2007]

Thanks AlexLozoya and itsmyjob for your replies.

Yes, I was looking for "genItem", so that I can get the parent of the "genItem", which I feel, is not available in VBA library.