---

Hallo Zusammen,

Ich habe alle andere Beiträge darüber gesucht. Obwohl es ein übliches Thema ist, irgendwie finde ich das passende Beitrag nicht. Vieleicht suche ich es auch nicht mit dem richtig Thema im Suchfeld.

Ich möchte ein Makros erstellen, da ein Geo Set mit noch ein änhliches  ersetzt und jetzt jede fehlende Referenz mit Update Funktion verkünpft zu den jeweiligen Elementen. Bisher habe ich den Code für das Ersetzens geschrieben.

Normal ohne Makros, hatte ich den 'Update All'Symbol benutzt und jede Referenz manuel ausgewälht. jetzt möchte ich diese Teil automatisieren. Ich habe auch den Code mit den Screenrecording Funktion versucht zu lösen aber hab nicht weitergekommen.

Screenrecording Code Abschnitt:

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

part1.Update

part1.Update

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Output Fahrgeometrie")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeInverse1 As HybridShape
Set hybridShapeInverse1 = hybridShapes1.Item("Schnittebene Hinterrad (inversed)")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeInverse1)

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim hybridShapeLineExplicit1 As Parameter
Set hybridShapeLineExplicit1 = parameters1.Item("Hinterac")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeLineExplicit1)

Dim hybridShapeIntersection1 As HybridShapeIntersection
Set hybridShapeIntersection1 = hybridShapeFactory1.AddNewIntersection(reference1, reference2)

hybridShapeIntersection1.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection1

part1.InWorkObject = hybridShapeIntersection1

part1.Update

End Sub

Kann mir jemand helfen wenn möglich mit ein änhliche Code Abschnitt, damit ich ein grobe Verständnis kriegen kann?

Vielen Dank im Voraus.

 

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

---

Servus

AFAIK gibt es per Makro kein Replace-Funktion.
Falls du weißt wo die Elemente aus dem neuen GeoSet verwendet werden, könnte es vermutlich klappen diese in den entsprechenden Features zu ändern.

Gruß
Bernd

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

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

---

Fahr2.png

Danke nochmal für dein immer schnelle Antworten.

Die Ersetzen habe ich schon gemacht. Jetzt muss ich nur die einzelne Elemente zussamen verknüpfen. Bisher läuft mein Code ohne Fehlern, aber es macht kein Referenez zu den Elementen.

Hier ist mein ganzes Code nochmal:

Sub CATMain()

Dim oSourceDoc As PartDocument
Dim oTartgetDoc As PartDocument
Dim oSelSource As Selection
Dim oSelTarget As Selection
Dim oSourcePart As Object
Dim oTartgetPart As Part
Dim sPathToFile as String

'Upload IGS File
msgbox" Upload IGS File from Autodesk Inventor"
strFilePath = CATIA.FileSelectionBox("Select .IGS Vermessung File", "*.igs", 0)
'Set objProd = objCATIA.Documents.Open("strFilePath")

'öffnen
CATIA.Documents.Open(strFilePath)
Set oSourceDoc = CATIA.ActiveDocument
Set oSelSource = oSourceDoc.Selection
Set oSourcePart = oSourceDoc.Part

'kopieren
oSelSource.Clear
oSelSource.Add oSourcePart.HybridBodies.Item(1)
oSelSource.Copy

'Geoset in Hauptfile löschen
msgbox" Upload Gabel CATIA Part File"
sPathToFile = CATIA.FileSelectionBox("Select Gabel Vermessungen File CATIA Part", "*.CATPart", 0)
CATIA.Documents.Open(sPathToFile)
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Input Vermessung")
Set hybridBody2 = hybridBodies1.Item("Output Fahrgeometrie")

'Adding copied File from IGS File
Dim selection2 As Selection
Set selection2 = partDocument1.Selection
Set objSel2 = CATIA.ActiveDocument.Selection
Set objPart2 = CATIA.ActiveDocument.Part
selection2.Clear
objSel2.clear
objSel2.Add hybridBodies1
objSel2.Paste
'Renaming
hybridBodies1.Item(hybridBodies1.count).Name = "Input Vermessung"

'Cut Paste Output Fahrgeometrie
Set objSel3 = CATIA.ActiveDocument.Selection
Set objPart3 = CATIA.ActiveDocument.Part
objSel3.clear
objSel3.Add hybridBody2
objSel3.cut
objSel2.Add hybridBodies1
objSel2.Paste

'Deleting Geo Set Input Vermessungen
Set objSel = CATIA.ActiveDocument.Selection
Set objPart = CATIA.ActiveDocument.Part
objSel.clear
objSel.Add hybridBody1
objSel.delete

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Hier Fängt die Referenz Code Abschnitt an

'Refernce/Update
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Output Fahrgeometrie")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeInverse1 As HybridShape
Set hybridShapeInverse1 = hybridShapes1.Item("Schnittebene Hinterrad (inversed)")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeInverse1)

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim hybridShapeLineExplicit1 As Parameter
Set hybridShapeLineExplicit1 = parameters1.Item("  HA/Ln")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeLineExplicit1)

Dim hybridShapeIntersection1 As HybridShapeIntersection
Set hybridShapeIntersection1 = hybridShapeFactory1.AddNewIntersection(reference1, reference2)

hybridShapeIntersection1.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection1

part1.InWorkObject = hybridShapeIntersection1

Dim hybridShapePlaneBetween1 As HybridShape
Set hybridShapePlaneBetween1 = hybridShapes1.Item("Schnittebene Vorderrad Rechtseinschlag")

Dim hybridShapeInverse2 As HybridShape
Set hybridShapeInverse2 = hybridShapes1.Item("Schnittebene Vorderrad Rechtseinschlag (inversed)")

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeInverse2)

Dim parameters2 As Parameters
Set parameters2 = part1.Parameters

Dim hybridShapeLineExplicit2 As Parameter
Set hybridShapeLineExplicit2 = parameters2.Item("VA/Ls/Ln")

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapeLineExplicit2)

Dim hybridShapeIntersection2 As HybridShapeIntersection
Set hybridShapeIntersection2 = hybridShapeFactory1.AddNewIntersection(reference3, reference4)

hybridShapeIntersection2.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection2

part1.InWorkObject = hybridShapeIntersection2

Dim hybridShapeInverse3 As HybridShape
Set hybridShapeInverse3 = hybridShapes1.Item("Schnittebene Vorderrad Linkseinschlag")

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hybridShapeInverse3)

Dim parameters3 As Parameters
Set parameters3 = part1.Parameters

Dim hybridShapeLineExplicit3 As Parameter
Set hybridShapeLineExplicit3 = parameters3.Item("VR/Ls/Ln")

Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(hybridShapeLineExplicit3)

Dim hybridShapeIntersection3 As HybridShapeIntersection
Set hybridShapeIntersection3 = hybridShapeFactory1.AddNewIntersection(reference5, reference6)

hybridShapeIntersection3.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection3

part1.InWorkObject = hybridShapeIntersection3

Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromObject(hybridShapeLineExplicit3)

Dim reference8 As Reference
Set reference8 = part1.CreateReferenceFromObject(hybridShapeLineExplicit2)

Dim hybridShapePlane2Lines1 As HybridShapePlane2Lines
Set hybridShapePlane2Lines1 = hybridShapeFactory1.AddNewPlane2Lines(reference7, reference8)

hybridBody1.AppendHybridShape hybridShapePlane2Lines1

part1.InWorkObject = hybridShapePlane2Lines1

Dim parameters4 As Parameters
Set parameters4 = part1.Parameters

Dim hybridShapeLineExplicit4 As Parameter
Set hybridShapeLineExplicit4 = parameters4.Item("  SgA/Ln")

Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromObject(hybridShapeLineExplicit4)

Dim hybridShapePointOnCurve1 As HybridShape
Set hybridShapePointOnCurve1 = hybridShapes1.Item("gemessener Lenkkopfmittelpunkt")

Dim reference10 As Reference
Set reference10 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePlaneNormal1 As HybridShapePlaneNormal
Set hybridShapePlaneNormal1 = hybridShapeFactory1.AddNewPlaneNormal(reference9, reference10)

hybridBody1.AppendHybridShape hybridShapePlaneNormal1

part1.InWorkObject = hybridShapePlaneNormal1

Dim reference11 As Reference
Set reference11 = part1.CreateReferenceFromObject(hybridShapeLineExplicit4)

Dim reference12 As Reference
Set reference12 = part1.CreateReferenceFromObject(hybridShapePlaneNormal1)

Dim hybridShapeIntersection4 As HybridShapeIntersection
Set hybridShapeIntersection4 = hybridShapeFactory1.AddNewIntersection(reference11, reference12)

hybridShapeIntersection4.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection4

part1.InWorkObject = hybridShapeIntersection4

Dim reference13 As Reference
Set reference13 = part1.CreateReferenceFromObject(hybridShapeLineExplicit4)

Dim reference14 As Reference
Set reference14 = part1.CreateReferenceFromObject(hybridShapeIntersection4)

Dim hybridShapePlaneNormal2 As HybridShapePlaneNormal
Set hybridShapePlaneNormal2 = hybridShapeFactory1.AddNewPlaneNormal(reference13, reference14)

hybridBody1.AppendHybridShape hybridShapePlaneNormal2

part1.InWorkObject = hybridShapePlaneNormal2

Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Fahrbahn")

sketch1.CloseEdition

Dim reference15 As Reference
Set reference15 = part1.CreateReferenceFromObject(hybridShapePlaneNormal2)

Dim reference16 As Reference
Set reference16 = part1.CreateReferenceFromObject(hybridShapeLineExplicit1)

Dim hybridShapeIntersection5 As HybridShapeIntersection
Set hybridShapeIntersection5 = hybridShapeFactory1.AddNewIntersection(reference15, reference16)

hybridShapeIntersection5.PointType = 0

hybridBody1.AppendHybridShape hybridShapeIntersection5

part1.InWorkObject = hybridShapeIntersection5

End Sub

Im Anhang findet man das Screenshot von die manuelle Referenz Schritte

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

---

Servus

Bitte Code in entsprechenden Tags posten.
Was meinst du mit aber es macht kein Referenz zu den Elementen? Was verstehst du unter Referenz? (ggf verstehe ich was anderes darunter)
Was soll dein Code bezwecken? (der Teil in dem du HybridShapes erzeugst)

Gruß
Bernd

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

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

---

Hallo Bernd,
was meinst du mit 'entsprechende Tags posten'?

Beim Referenz meine ich das es automatisch ein Update machst statt ich jedes mal manuele verknüpfen muss. Leider bin ich ein echte Noob mit Catia und ich verstehe das Konzept aber ich kenne das passendes Begriff nicht.

Ich kann schritt für schritt erklaren wie ich es normalerweise manuele mache.

- 'Update all' Symbol einklicken
- in Update Diagnosis Dialog Box, Feature - Schnittebene editieren
- in Plane Definition zwei Elemente 'Ebene 1' und 'Ebene 2' von Part auswählen
- jetzt wird das Feature resolviert

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

---

Servus

Also willst du ein bestehende Intersection (HybridShapeIntersection) abändern?
Also auf die bestehende Intersection zugreifen und per .Element1 und .Element2 die neuen Referencen angeben.
Dein Code erzeugt ja neue Features.

Gruß
Bernd

PS: Tags für Code nutzen wie hier beschrieben

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

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

---

Servus

Ja genau,

Zitat:

---

Also auf die bestehende Intersection zugreifen und per .Element1 und .Element2 die neuen Referencen angeben.

---

Leider war mein Code von der Hilfe von Screenrecord Funktion erzeugt. Sorry dafür!

Ich hoffe, jetzt benutze ich den Tags funktion richtig.

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

---

Servus

Hier ein kleines Beispiel wie man das 2. Element eines Intersects ändert:

Code:

---

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set oPart = partDocument1.Part
Set hybridBodies1 = oPart.HybridBodies

'auf Intersect zugreifen
Set oHybridbody = hybridBodies1.Item("GeoSet3")
Set hybridShapeIntersection1 = oHybridbody.HybridShapes.Item("Verschneiden.3")

'Auf neue Ebene zugreifen
Set oNewHybridBody = hybridBodies1.Item("GeoSet2")
Set oNewPlane = oNewHybridBody.HybridShapes.Item("EbeneB")

'Referenz austauschen
Set oRefNewPlane = oPart.CreateReferenceFromObject(oNewPlane)
hybridShapeIntersection1.Element2 = oRefNewPlane

oPart.Update

End Sub

---

Gruß
Bernd

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

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

---

Servus Bernd,
Danke für dein Beispiel.

Jetzt ist das Problem mit der Fläche. 

Das Intersect greift an zwei flächen als Referenz zu.

Kann man auch nur bestimmte Flächen auswählen? Die Fläche HR/E/Li haben änhliche  Namen wie andere Linie und Punkte. Deswegen möchte ich wissen ob es ein bestimmte Funktion nur für den Aufruf von Flächen gibt!

Code Abschnitt:

Sub CATMain()

Set oHybridbody = hybridBodies1.Item("Output Fahrgeometrie")
Set hybridShapeIntersection1 = oHybridbody.HybridShapes.Item("Schnittebene Hinterrad")

'Auf neue Fläche 1 zugreifen
Set oNewHybridBody1 = hybridBodies1.Item("Input Vermessung")
Set oNewPlane1 = oNewHybridBody1.HybridShapes.Item("HR/E/Re") 'Hier zeigt es ein Fehler mit dem funktion Hybridshapes "Method Item Failed"

'Auf neue Fläche 2 zugreifen
Set oNewHybridBody2 = hybridBodies1.Item("Input Vermessung")
Set oNewPlane2 = oNewHybridBody2.HybridShapes.Item("HR/E/Li")

'Referenz austauschen
Set oRefNewPlane1 = oPart.CreateReferenceFromObject(oNewPlane1)
hybridShapeIntersection1.Element2 = oRefNewPlane1

Set oRefNewPlane2 = oPart.CreateReferenceFromObject(oNewPlane2)
hybridShapeIntersection1.Element2 = oRefNewPlane2

oPart.Update

End Sub

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

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

---

Servus

Zu der HybridShapes-Collection gehören alle Flächen, Linien, Punkte usw (siehe auch Doku)
Ich hab folgende Ideen dazu:

• per Userselektion die Fläche selektieren lassen
  
• über die Suche im GeoSet nach der Fläche suchen (lässt sich mit Makrorekorder aufzeichnen
  
• per Schleife die HybridShapes-Collection abarbeiten und per Namen und TypeName deine Fläche bestimmen

Gruß
Bernd

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

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

---

Hallo Bernd,
Hast du ein Beispiel Code für den oben gennante Vorschläge? Ich habe ein paar möglichkeiten versucht zum Einsetzen aber ich habe nicht ganz weitergekommen!
Es wäre hilfreich wenn du ein Link hinfügen kannst damit ich verstehe in welche Richtung du anfängst.
Vielen Dank im Voraus.

Gruß,
Esho

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

---

Servus Esho

Zu 1):
Siehe SelectElement2 in Doku, Schulungsunterlagen und Forensuche

Zu 2):
Makroaufzeichnung, Doku und zB hier

Zu 3):
etwa so (ungetestet, suche nach einer Intersection):

Code:

---

Set oMySearchedShape = Nothing

for each oHybridShape in oHybridBody.HybridShapes
  if oHybridShape.Name = sSearchedName and TypeName(oHybridShape) = "HybridShapeIntersection" then
    set oMySearchedShape = oHybridShape
    Exit for
  end if
next

---

Gruß
Bernd

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

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