---

Servus,

im Moment läuft nichts. Ich hab den Code eigentlich nur aus nem anderem Makro von mir raus kopiert. Hier vereinfacht. Ich will zwei Punkt suchen, die Koordinaten des ersten messen und dann dem ersten als Referenz den zweiten zuweisen.

Die Punkte bestehen schon. Ich selektiere sie per Suche, was auch funktioniert. Wenn ich mir den name ausgeben lasse (selout1.value.name) kommt selection1 als Antwort. Wie bekomme ich KonPunkt_1?

Die Messung funktioniert nicht und die Zuweisung der Reference auch nicht.

Danke euch schonmal im Vorraus für die Hilfe!

Code:

---

Sub CATMain()

On Error Resume Next
Set MessungKP = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set part1 = CATIA.ActiveDocument.Part

'----Auswahl der beiden Punkte
Dim SelOut1 As Selection
    Set SelOut1 = CATIA.ActiveDocument.Selection
    SelOut1.Clear
    SelOut1.Search ".Point.name=KonPunkt_1;Alle"
   
    Dim SelOut2 As Selection
    Set SelOut2 = CATIA.ActiveDocument.Selection
    SelOut2.Clear
    SelOut2.Search ".Point.name=KonPunkt_2;Alle"

'----Messung der Koordinaten
Dim ocoorKon As HybridShapePointCoord
Set ocoorKon = MessungKP.GetMeasurable(SelOut1)
     
Dim KonCoordinates(2) As Double
ocoorKon.GetPoint KonCoordinates
       
MsgBox ("Der erste Punkt hat die Koordinaten:    " & ocoorKon)

'----Zuweisung des zweiten Punktes als Referenz für den ersten Punkt

Dim referenceKP As Reference
Set referenceKP = part1.CreateReferenceFromObject(SelOut2)

Set referenceKP = SelOut1.PtRef

SelOut1.Clear
SelOut2.Clear
End Sub

---

------------------
Hihihi, lol, hihihi 

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

---

mit SelOut1.Item(1).Value

------------------
- Robert

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

---

Ich behaupte man kann garkeine zwei Selections in einem Dokument haben. 

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Na Servus,

danke ja. Habs eben auch gesehen. Geht nicht. Ich dachte die Selektion ist wie ein Kontainer. Naja, aber ich kann ja den inhalt der Selektion in nen Array speichern.

Wenn man ausgibt:

MsgBox (SelOut1.Item(1).Value.Name & "  sa  " & SelOut2.Item(1).Value.Name)

Dann liest man zwei mal KonPunkt_2 

------------------
Hihihi, lol, hihihi 

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