---

Hallo,

ich habe in meinem Makro zwei Subs, eine soll ein GeoSet setzen, die andere darin Punkte erzeugen.

Ich dachte ich übergebe einfach das gesetzte GeoSet als Object, aber das geht nicht, wie kann ich das lösen?

Die Sub SelItem wird mit dem Ergebnis einer Selection beliefert "objSelection.Item(1).Value"
In der DoPoint kriege ich die Koordinaten für den Punkt, aber ich kann hier nicht das Set mitgeben, da ich es mit einer Selection festlege, oder?!

Code:

---

Option Explicit
Private DestinationGeoSet As HybridBody

Sub SelItem(objHybridBody As HybridBody)
    DestinationGeoSet = objHybridBody
    MsgBox "Success"
End Sub
Sub DoPoint(objInput As Object)
    Dim objCoords(2)
    objInput.GetCoordinates (objCoords)
End Sub

---

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

---

Servus
Irgendwie verstehe ich deine Frage nicht (wo erstellst du einen Punkt).
Der Ort an dem das Element erzeugt wird wird bei PartDesign-Features über "InWorkObject" festgelegt. Bei Flächen/Wireframe-Features wird das Features erst erzeugt und dann über "AppendHybridShape" einem Hybridbody zugeordnet.
(sieht man auch schön bei der Makroaufzeichnung)

Gruß
Bernd

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

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

---

Der Pukt soll in der Sub Dopoint erstellt werden, da sieht man nur noch nichts. Das soll irgendwie in diese Richtung funktionieren:

Code:

---

Option Explicit
Private DestinationGeoSet As HybridBody

Sub SelItem(objHybridBody As HybridBody)
    DestinationGeoSet = objHybridBody
    MsgBox "Success"
End Sub
Sub DoPoint(objInput As Object)
    Dim objCoords(2)
    objInput.GetCoordinates (objCoords)
   
    Dim documents1 As Documents
    Set documents1 = CATIA.Documents

    Dim partDocument1 As PartDocument
    Set partDocument1 = documents1.Item("Part1.CATPart")

    Dim part1 As Part
    Set part1 = partDocument1.Part

    Dim hybridShapeFactory1 As HybridShapeFactory
    Set hybridShapeFactory1 = part1.HybridShapeFactory

    Dim hybridShapePointCoord1 As HybridShapePointCoord
    Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(objCoords(0), objCoords(1), objCoords(2))
   
DestinationGeoSet.AppendHybridShape hybridShapePointCoord1

    part1.InWorkObject = hybridShapePointCoord1

    part1.Update
End Sub

---

Nur will ich in der DoPoint eben keine Referenz auf ein part drin haben, sondern er soll das geoset (und entsprechende part) nehmen, dass mit SelItem gesetzt wird...

Vielen Dank udn viele Grüße

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

---

Servus
Du könntest über eine Schleife dich per .Parent vom "DestinationGeoSet" bis zum Part hochhangeln.

Gruß
Bernd

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

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

---

Hi,

eigentlich funktioniert es so, ich hatte nur einen Fehler ganz am Anfang

Code:

---

Option Explicit
Private DestinationGeoSet As HybridBody
Sub SelItem(objHybridBody As HybridBody)
    Set DestinationGeoSet = objHybridBody
    MsgBox "Success"
End Sub

---

Das Set hat gefehlt, mit dem Set funktioniert es. Das Part Frage ich ab, wie du vorgeschlagen hast und übergebe es auch an eine private variable.

Vielen DAnk und viele Grüße

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