---

Hallo Zusammen,
ich bin mitten in der Automatisierung von einem Konstruktionsablauf. Bisher habe ich verschiedene Parts/Products/Parameter/Beziehungen und Formeln automatisch erstellt. Der "Strukturbaum" ist quasi gefüllt und bereit mit Geometrie gefüllt zu werden.

Das alles über VB.Net mit Visual Studio.

Ich habe folgendes Problem. Ich erstelle ein GeoSet und möchte in diesem einen Punkt erzeugen mit folgendem Ablauf:

Verbindung zu CATIA:

Code:

---

  Dim CATIA As Object
        CATIA = GetObject(, "CATIA.Application")

        '->Steuerparterstellung

        Dim documents1
        documents1 = CATIA.Documents

        Dim partDocument1
        partDocument1 = documents1.Item("P0000_00000_001_FWZ_Steuerpart.CATPart")

        Dim part1
        part1 = partDocument1.Part

---

Punkterstellung:

Code:

---

  Dim hybridShapeFactory1
        hybridShapeFactory1 = part1.HybridShapeFactory

        Dim hybridShapePointCoord1
        hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(1500.0#, 0#, 0#)

        Dim axisSystems1
        axisSystems1 = part1.AxisSystems

        Dim axisSystem1
        axisSystem1 = axisSystems1.Item("Absolutes Achsensystem")

        Dim reference1
        reference1 = part1.CreateReferenceFromObject(axisSystem1)

        hybridShapePointCoord1.RefAxisSystem = reference1

        hybridBody1.AppendHybridShape(hybridShapePointCoord1)

        part1.InWorkObject = hybridShapePointCoord1

        part1.Update

---

So in der viertletzten Zeile wird mir ein Fehler angezeigt.
-> unbekannter Member

Habe ewig recherchiert. Bisher nur die Info erhalten, ich solle die CATIA Verweise überprüfen.
Eingebunden sind:
-DraftingInterface
-InfInterfaces
-KnowledgeInterfaces
-MecModInterfaces
-ProductStructureInterfaces

Anbei: Der Code funktioniert mit VBA Catia-intern einwandfrei. Aber VBA steht nicht zur Debatte.

Kann womöglich jemand helfen?

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

---

Servus

ggf fehlt noch ein Verweis zur GSD-Bibliothek ( CATIA V5 GSMInterfaces Object Library??)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Du benötigst die CATIA V5 CATGSMIDLItf Object Library

Code:

---

Dim hShapeFactory As HybridShapeFactory = dActivePart.HybridShapeFactory
Dim hPoint1 As HybridShapePointCoord = hShapeFactory.AddNewPointCoord(X, Y, Z) 'Koordinaten
hPoint1.Name = sPoint1 'Name des Punktes

hPoint1.RefAxisSystem = raAxis

hChildGeo.AppendHybridShape(hPoint1) '"sichtbar machen"
dActivePart.InWorkObject = hPoint1
dActivePart.Update()

---

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

---

Der Code wird leider nicht so akzeptiert. Es entsteht zwar nun keine Fehlermeldung mehr, allerdings wird der Punkt trotzdem nicht erstellt.

[Diese Nachricht wurde von Sm1leX am 18. Sep. 2018 editiert.]

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

---

WindowsApp6.zip

Hallo,

ich habe mal ein Projekt mit Visual Studio 2017 Pro erstellt.
Funktion: ein CATPart muss geöffnet sein. Der Button erstellt
ein Geo-Set mit einem Punkt im Ursprung des Parts.

Gruß
Peter

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

---

Danke ! Klappt wunderbar !

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