Working in a CATPart in a CATProduct VBA

[LucasC]

I want my macro to create geometry in the active catpart that's inside a product. I don't want to have to open the catpart in a separate window.

I was thinking the below but I'm drawing a blank here...

Dim Documents1 As Documents
Set Documents1 = CATIA.Documents

Dim PartDocument1 As PartDocument
Set PartDocument1 = Documents1.Item("")

Dim Part1 As Part
Set Part1 = PartDocument1.Part

 

[LucasC]

Any ideas on this?

 

[tesak]

Hi,
find the product (part) in the tree you would like to work with and call ReferenceProduct.Parent to get the part document.

Tesak

https://scripts4all.eu/play-tetris-in-catia-v5-drawing-vba/

- Play Tetris in CATIA V5 drawing

 

[ferdo]

Check also this

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[kantoku]

Isn't it the ”blue problem“ written here?
Link

I thought about the code to get the partDocument of the blue position by using plane search.

Sub CATMain()

    Dim doc As PartDocument
    Set doc = GetBluePosionPartDoc()
    
    Dim msg As String
    If doc Is Nothing Then
        msg = "There is no blue position PartDocument."
    Else
        msg = "The blue position PartDocument is " & doc.Name & " ."
    End If
    
    MsgBox msg

End Sub

Private Function GetBluePosionPartDoc() As PartDocument
    
    Set GetBluePosionPartDoc = Nothing
    
    Dim sel As selection
    Set sel = CATIA.ActiveDocument.selection
    
    CATIA.HSOSynchronized = False
    
    With sel
        .Clear
        .Search "CATPrtSearch.Plane,in"
        
        If .Count2 < 1 Then GoTo fin
        
        Set GetBluePosionPartDoc = .Item2(1).Value.Parent.Parent
        .Clear
    End With
    
fin:
    CATIA.HSOSynchronized = True
    
End Function