---

hallo zusammen,

ich möchte offene Körper in einem Part erzeugen, welches ich zuvor in einer Produktstruktur erzeugt habe. Wie kann ich diesen Part ansprechen, bzw. aktiv bekommen???

Ich hoffe jemand kann mir helfen

mfg  hanni

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

---

Hallo,

soweit mir bekannt musst du weiterhin über die CATPart-Bezeichnung auf das Part zugreifen, auch wenn es in einem Product steckt.

Also z.B. folgender Code, um den OpenBody "#OpenBody" als Zeiger zu erhalten:

Dim MyDocuments As Documents
Set MyDocuments = CATIA.Documents

Dim MyPartDocument As PartDocument
Set MyPartDocument = MyDocuments.Item("Bauteil.CATPart")

Dim MyPart As Part
Set MyPart = MyPartDocument.Part

Dim MyHybridBodies1 As HybridBodies
Set MyHybridBodies1 = MyPart.HybridBodies

Dim MyHybridBody1 As HybridBody
Set MyHybridBody1 = MyHybridBodies1.Item("#OpenBody")

Weitere Methoden hierfür findest du in folgendem HelpFile im Catia-Verzeichnis:
C:\...\DassaultSystemes\Catia\B14\intel_a\code\bin\V5Automation.chm

Gruss
achulio

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

---

hallo!

zum einfügen eines openbody muss dass erstellte part ausgewählt sein.
das part erzeugen und openbody einfügen könnte so aussehen:

Sub CATMain()
    Dim productDocument1 As ProductDocument
    Set productDocument1 = CATIA.ActiveDocument   
    Dim product1 As Product
    Set product1 = productDocument1.Product   
    Dim products1 As Products
    Set products1 = product1.Products   
    Dim product2 As Product   
    Set product2 = products1.AddNewComponent("Part", "Neuerzeugtes_Part")   
    Set documents1 = CATIA.Documents   
    part_name = "Neuerzeugtes_Part" & ".CATPart"   
    Set partDocument1 = documents1.Item(part_name)   
    Set part1 = partDocument1.Part  
    Set selection1 = CATIA.ActiveDocument.Selection   
    Set HB = partDocument1.Part.HybridBodies   
    Set NeuerHB = HB.Add
    NeuerHB.Name = "Neuer_OpenBody"
    part1.Update
End Sub

vielleicht hilfts!
Ciao
Max

<edit> da war wohl jemand a bissl schneller  </edit>

[Diese Nachricht wurde von MaxZ am 12. Jul. 2005 editiert.]

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