---

Hallo zusammen,

ich habe noch keine Erfahrungen mit Makros.
Würde aber gerne folgendes machen wollen.

Ich möchte eine bestimmte Skizze auf Ebene2 bzw. Ebene Oben setzen.

also normal nix wildes, weis nur nicht wie man das in einem Makro darstellt.

Danke schonmal im vorraus

[Diese Nachricht wurde von wadim.m am 02. Feb. 2023 editiert.]

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

---

Hallo,
schau dir mal mein Makro Bildschirmschoner an.
Da wird unter anderem auch eine Skizze erstellt.

ww3.cad.de/foren/ubb/Forum2/HTML/030534.shtml#000000

Nimm die aktuellste Version und lese evtl. auch den ganzen Beitrag.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo Andi,

Danke für deinen Hinweis.
Aber wie gesagt ich kenne mich 0 mit Makros aus :P
Wie genau muss ich das jetzt abändern das ich nur eine Skizze auf eine Ebene schmeißen.

Dankeschön

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

---

Zitat:

---

Original erstellt von wadim.m:
Aber wie gesagt ich kenne mich 0 mit Makros aus :P

---

Wer aufhört besser zu werden, hat aufgehört gut zu sein!

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

---

Ach ja und er sollte natürlich die skizze nicht in einem neuen Teil Öffnen sondern in der geöffneten Datei eine vorhandene Skizze auf Ebene Oben legen

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

---

Zitat:

---

Original erstellt von wadim.m:
...
Aber wie gesagt ich kenne mich 0 mit Makros aus :P
Wie genau ...

---

SolidWorks starten, oben das Fragezeichen aufsuchen und "Lehrbücher" anklicken.
dann auf "Alle SolidWorks Lehrbücher" und da sind 2 Stück zu "SolidWorks API"
Das erste davon hat 45 Minuten zu VBA - Macro Aufzeichnung und Abänderung.
Danach hast du schon mal nicht mehr 0 Ahnung.

Gruß, Christian

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

---

Zitat:

---

Original erstellt von wadim.m:

Aber wie gesagt ich kenne mich 0 mit Makros aus :P

---

Hallo,
wer Fremdsprachen lernen möchte, sollte Vokabeln büffeln. 

Ich kann dir wärmstens diese Lehrvideos empfehlen.
Viel Spaß damit.

www.youtube.com/channel/UCIHl3el5Ie3PJNSne53fbtA

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Skizze_Bogenmas_auf_Ebene_Oben.zip

Hallo zusammen,

Danke schonmal für diese Lehrreichen Videos und Anleitungen.

Habe jetzt mal was gebastelt, aber ich kriege es nicht hin das er mir die Skizze Auflöst...

Er nimmt den Block aus der Bibliothek aber löst ihn dann nach dem Einfügen nicht auf um die Referenzen zu setzen.

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

---

Moin,

ich bin gerade dabei, frei Zeitscheiben mit dem API Lernpfad auf my.SOLIDWORKS zu füllen:

https://my.solidworks.com/training/elearning/68/api-fundamentals

Ist allerdings auf Englisch - da lernt man gleich zwei Sprachen gleichzeitig 

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

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

---

Zitat:

---

Original erstellt von Heiko Soehnholz:
Moin,

ich bin gerade dabei, frei Zeitscheiben mit dem API Lernpfad auf my.SOLIDWORKS zu füllen:

https://my.solidworks.com/training/elearning/68/api-fundamentals

Ist allerdings auf Englisch - da lernt man gleich zwei Sprachen gleichzeitig  

---

Danke, aber dafür braucht man Professional sonst kann ich die Videos nicht sehen.

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

---

Zitat:

---

Original erstellt von wadim.m:
Habe jetzt mal was gebastelt, aber ich kriege es nicht hin das er mir die Skizze Auflöst...

---

Hallo,

die Makro Aufzeichnung ist etwas gewöhnungsbedürftig. Wenn man es sich scharf anschaut, stellt man oft fest, dass man 80% nicht braucht, weil es zwischendurch Ansicht drehen und zoomen ist, oder erstmal was falsches gewählt und wieder abgewählt ... und wenn dann noch etwas Pech hinzukommt, ist der entscheidende Befehl nicht mit aufgezeichnet ... :( ... aber - ist halt so ...

Code:

---

Part.SketchManager.ExplodeSketchBlockInstance Nothing

---

Laut Hilfe braucht die Funktion als Objekt eine "Sketchblockinstance", du gibst ihm aber "nothing".

Beim Aufzeichnen wird meist über den Namen selektiert (die Zeile da drüber) - das klappt aber im Makro meist nicht so zuverlässig.
"MakeSketchBlockFromFile" liefert die Blockdefinition, ich fürchte von der aus musst du über myBlockDefinition.GetInstances dich zu der Blockinstanz hangeln.
Und die sollte dann an Explode gereicht werden ...

Wer noch einen Blick drauf werfen mag - die IMHO relevanten Zeilen:

Code:

---

boolstatus = Part.Extension.SelectByID2("Ebene2", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Skizze6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim myBlockDefinition As Object
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "C:\ProgramData\SolidWorks\SOLIDWORKS 2022\Design Library\Bogenmaß Ebene Oben.sldblk", False, 1, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Block-Bogenmaß Ebene Oben-1@Skizze6", "SUBSKETCHINST", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.ExplodeSketchBlockInstance Nothing
boolstatus = Part.Extension.SelectByID2("Skizze6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch

---

Gruß, Christian

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

---

Zitat:

---

Original erstellt von Christian_W:

Hallo,

die Makro Aufzeichnung ist etwas gewöhnungsbedürftig. Wenn man es sich scharf anschaut, stellt man oft fest, dass man 80% nicht braucht, weil es zwischendurch Ansicht drehen und zoomen ist, oder erstmal was falsches gewählt und wieder abgewählt ... und wenn dann noch etwas Pech hinzukommt, ist der entscheidende Befehl nicht mit aufgezeichnet ... :( ... aber - ist halt so ...

Code:

---

Part.SketchManager.ExplodeSketchBlockInstance Nothing

---

Laut Hilfe braucht die Funktion als Objekt eine "Sketchblockinstance", du gibst ihm aber "nothing".

Beim Aufzeichnen wird meist über den Namen selektiert (die Zeile da drüber) - das klappt aber im Makro meist nicht so zuverlässig.
"MakeSketchBlockFromFile" liefert die Blockdefinition, ich fürchte von der aus musst du über myBlockDefinition.GetInstances dich zu der Blockinstanz hangeln.
Und die sollte dann an Explode gereicht werden ...

Wer noch einen Blick drauf werfen mag - die IMHO relevanten Zeilen:

Code:

---

boolstatus = Part.Extension.SelectByID2("Ebene2", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Skizze6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim myBlockDefinition As Object
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "C:\ProgramData\SolidWorks\SOLIDWORKS 2022\Design Library\Bogenmaß Ebene Oben.sldblk", False, 1, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Block-Bogenmaß Ebene Oben-1@Skizze6", "SUBSKETCHINST", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.ExplodeSketchBlockInstance Nothing
boolstatus = Part.Extension.SelectByID2("Skizze6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch

---

Gruß, Christian

---

Danke für diese ausführliche Beschreibung. Doch leider bekomme ich es einfach nicht hin :/
verstehe nicht genau was du mit "ich fürchte von der aus musst du über myBlockDefinition.GetInstances dich zu der Blockinstanz hangeln.
Und die sollte dann an Explode gereicht werden ..." meinst

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

---

Zitat:

---

... über myBlockDefinition.GetInstances dich zu der Blockinstanz hangeln.
Und die sollte dann an Explode gereicht werden ..."

---

getinstances liefert array von Blockinstanzen
da brauchst du ein variant für - ungefähr sowas:

Code:

---

dim vBlockInstances as variant
vBlockInstances = myBlockDefinition.getinstances
Part.SketchManager.ExplodeSketchBlockInstance vBlockInstances(0)

---

so ganz ins Grobe geschrieben und ohne Test ...

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