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