---

Hallo,

hoffe ihr könnt mir nocheinmal helfen, da ich nicht weiter komme.

Ich habe ein Feature erstellt (Oberflächen-Ausformung) und möchte es nun mit Hilfe eines Makros bearbeiten. Deshalb gehe ich wie folgt vor:

Code:

---

boolstatus = Part.Extension.SelectByID2("Oberfläche-Ausformung1", "REFSURFACE", 0, 0, 0, False, 0, Nothing, 0)

Part.FeatEditDef  'Hiermit öffne ich das Feature Oberflächen Ausformung 1

Part.ClearSelection2 True  'Wähle alle vorherigen Skizzen ab

boolstatus = Part.Extension.SelectByID2("Skizze", "SKETCH", 0, 0, 0, True, 1, Nothing, 0)
       
    .... Weitere Auswahl .....

---

Jetzt tritt mein Problem auf, da ich bis jetzt noch keine Funktion gefunden hat, die mein bearbeitetes Feature wieder schließt.

Habe mit SendKeys (Enter) probiert, jedoch läuft mein restliches Makro dann nicht mehr durch.

Hoffe ihr könnt mir weiterhelfen.

Vielen Dank im Voraus

Johannes

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

---

Hallo Johannes

Das Bearbeiten eines Features oder Skizze beenden macht man mit der InsertSketch Method.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo,

danke für die schnelle Antwort.

Leider habe ich es immer noch nicht hinbekommen mein Feature damit zu schließen. Habe nun folgendes hinzugefügt:

Code:

---

Part.SketchManager.InsertSketch True

---

Hoffe ihr könnt mir nocheinmal weiterhelfen.

Vielen Dank im Voraus

Johannes

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

---

Ich würde das so machen:

Dim swApp As Object
    Dim Part As Object
    Dim boolstatus As Boolean
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("Skizze1", "SKETCH", -0.08630774182736, 0.05781985638312, 0, False, 1, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("Skizze2", "SKETCH", 0, -0.03477297912912, -0.08426968495553, True, 1, Nothing, 0)
    Part.InsertLoftRefSurface2 False, True, False, 1, 0, 0
End Sub

Zur Not eine schon existierende Fläche, wenn sie geändert werden soll, vorher löschen.

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

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

---

Hallo,

danke für die Antwort. Ich habe mir auch schon überlegt, dass dies die einfachste Möglichkeit ist. Werde dies dann so lösen.

Vielen Dank!

Johannes

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

---

022344_Test_Makro.zip

Hallo Johannes

Komisch das der Befehl bei Oberflachenfeatures nicht geht.

Aber dieser geht

Code:

---

Part.Extension.RunCommand swCommands_PmOK, ""

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.
   

[Diese Nachricht wurde von HenryV am 09. Jun. 2011 editiert.]

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