---

Hallo alle zusammen!
Ich bin neu in diesem Forum.
Ich versuche mein SolidWorks2011 mit Excel 2010 zu automatisieren.
Im Moment habe ich das Problem, dass ich die Bemassung nicht automatisch anordnen kann.
Ich habe einen Tasterturbefehl angelegt (Strg A)und mit Sendkeys versucht den Befehl
auszuführen. Leider scheitert es schon beim Befehl Appactivate (Laufzeitfehler 5).
Eine andere Alternative mit RunCommand den Befehl auszuführen scheitert an der richtigen
swCommands_e Enumeration.

Für Hilfe wäre ich sehr dankbar.

Gruss Willi

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

---

Hallo Solid Willi,

und herzlich willkommen im SolidWorks Brett auf CAD.de  

Zitat:

---

Original erstellt von Solid Willi:
Eine andere Alternative mit RunCommand den Befehl auszuführen scheitert an der richtigen
swCommands_e Enumeration.

---

Wonach hast du denn gesucht? Ich hab mir die mal durchgeschaut (nach allem, was irgendwie Auto hieß) und nach kurzer Suche wohl die passende gefunden, bei mir klappt dieses Makro:

Code:

---

Dim swApp As Object
Dim swModel As Object
Dim swModelDocExt As Object

Public Const swCommands_AutoArrangeDimension = 2976

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension

    swModelDocExt.RunCommand swCommands_AutoArrangeDimension, ""

End Sub

---

Reicht hoffentlich für dich als Beispiel, um es in dein Makro mit einzubauen.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

---

Hallo Stefan 

danke für die schnelle und nützliche Antwort.

Ich habe es genau wie du gemacht und nach auto gesucht, aber wohl diesen Eintrag übersehen.

Gruss Willi

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