---

Hallo,

ich habe da ein Problem wenn ich CATIA per VB Anwendung starte
'Datei die vorhanden ist mit Ebenen
Part_Name = "C:\temp\xxx.catpart"
    On Error Resume Next
    Set CATIA = GetObject(, "CATIA.Application")
    If Err.Number <> 0 Then
      Set CATIA = CreateObject("CATIA.Application")
      CATIA.Visible = True
    End If

    Set documents1 = CATIA.Documents
    Set Part_Document = documents1.Open(Part_Name)
   
    Set My_Part = Part_Document.Part
    Set part1 = My_Part
    Set Body1 = part1.MainBody
    Set MY_Shapes = Body1.HybridShapes
my_shape ist nicht verfügbar. Der Body1 hat keine HybridShapes!!

Starte ich CATIA vorher normal dann ist alles ok

Hat jemand eine Idee oder Lösung?

Danke
crash

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP