---

Tag Leute,

Ich möchte um eine Bohrunge zu erstellen einen Punkt aus einer Skizze auswählen. Jedoch ist das mit dem Filter "Point" nicht möglich.

Was für einen Filter muss ich angeben oder wie muss ich das Ganze umgestalten?

Gruß Martin

Mein Makro:

Sub SelektionP()
' Benutzeringabe des Punkts für die Bohrung

Dim Was(0)
Was(0) = "Point"

'Selektion definieren und leeren
Dim UserSel As Object
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

'Selektion durchführen
Dim E As String
E = UserSel.SelectElement2(Was, "Bohrungspunkt angeben", False)
If E = "Normal" Then
'MsgBox (UserSel.Item(1).Value.Name)

Set Punkt = UserSel.Item(1).Value

Else
MsgBox "Makro Ende", vbOKOnly + vbInformation, "Vakuumbohrungen"
I = 1
End If

'Selektion freigeben
UserSel.Clear

End Sub

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

---

Servus
Einfach mal einen 2D-Kunkt selektieren und den Type ausgeben lassen

Code:

---

MsgBox oSelection.item2(i).Type

---

liefert dir ZeroDimFeatVertexOrWireBoundaryMonoDimFeatVertex allerdings kannst du dann auch Vertex-Punkte an Drahtgeometrien selektieren.

Gruß
Bernd

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

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

---

Vielen Dank. Es hat funktioniert.

Werde es dann das nächste mal über die MsgBox testen.

Gruß Martin

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