---

Hi Leute,

Habe folgendes Problem möchte auf einer Kante die ich "Scharnierkante" benannt habe 2 Punkte auf der Kante erzeugen und danach eine Ebene senkrecht durch die Punkte und parallel zu einer Fläche erstellen.

Das erzeugen der Punkte klappt problemlos nur wenn ich dann die Ebene erzeugen will macht er nur eine der beiden Ebenen.
Hier mein Code:

Code:

---

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager

'Prüft ob Part geöffnet ist. Wählt anschließend die Kante aus
If swModel Is Nothing Then Exit Sub
swModel.ClearSelection2 True
Set entx = swModel.GetEntityByName("Scharnierkante", 1)
If Not entx Is Nothing Then
entx.Select2 False, 0
End If

'Erstellt zuerst Punkte auf der Kante und danach jeweils eine Ebene
'durch die Punkte. Diese Ebenen werden so erzeugt, dass sie Senkrecht
'auf der Fläche und 90° zur Kante orientiert sind.
swModel.FeatureManager.InsertReferencePoint 2, 2, 0, 2

Boolstatus = swModel.Extension.SelectByID2("Ebene rechts", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Boolstatus = swModel.Extension.SelectByID2("Punkt1", "DATUMPOINT", 0, 0, 0, True, 0, Nothing, 0)
swModel.CreatePlaneThruPtParallelToPlane True
swModel.ClearSelection2 True

Boolstatus = swModel.Extension.SelectByID2("Ebene rechts", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Boolstatus = swModel.Extension.SelectByID2("Punkt2", "DATUMPOINT", 0, 0, 0, True, 0, Nothing, 0)
swModel.CreatePlaneThruPtParallelToPlane True

---

Es wird immer nur die Ebene durch Punkt 1 erzeugt die andere macht er nie.
Komisch wie ich finde da beide Zeilen ja 100%gleich sind, es wurde nur aus Punkt1 Punkt 2.

Jemand eine Idee?

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

---

gibt es denn den punkt2?

du fügst zumindestens nur einmal einen punkt ein.
"swModel.FeatureManager.InsertReferencePoint 2, 2, 0, 2"

gruß

------------------
Software nach Maß für Ihr CAD-System
www.ib-knepper.de

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

---

Wenn Du den Boolstatus der Auswahl von Punkt2 prüfst, weißt Du, ob die Auswahl geklappt hat.
Wenn nicht, kann so auch keine Ebene erzeugt werden.

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

War alles sehr mysteriös.
Also den Punkt 2 gab es. Nur halt die Ebene nicht.
Habe daraufhin einfach mal die Zeile wo er Punkt 1 auswählt kopiert und da wo er Punkt 2 auswählt eingefügt und dann die 1 in 2 geändert.
Keine Ahnung warum das jetzt klappt.
Hatte die erste Zeile ja auch kopiert und da ist ja auch kein Unterschied zu erkennen gewesen.

Danke trozdem für die Mühen

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