---

Hallo Leute,

habe ein exe-File, welches ich in SolidWorks über ein Button aufrufen will. Dazu brauche ich jetzt ein kleines VB-Programm, welches dieses EXE in SolidWorks aufruft.

Kann mir da jemand ein Tip geben. Bin völliger VB-Unwissender.

Gruss
Rapti

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

---

Tach Rapti
Hab für dich einmal die Suche benutzt.

Kuck du hier

Gruss Andreas

------------------
Mach es idiotensicher und irgendjemand erfindet einen verbesserten Idioten...

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

---

Sub main()
Dim pfad As String
  pfad = CurDir
  ChDrive "C:"
  ChDir "C:\Programme\SolidWorks\Tools\"
  MyAppID = Shell("C:\Programme\SolidWorks\Tools\Demo.exe", 1)
  ChDir pfad
End Sub

------------------
mfg uc

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

---

Sub main()
  MyAppID = Shell("C:\makros\programm.exe", 1)
End Sub

sollte Dir Dein Programm starten!

------------------
Lutz Federbusch
Mein Gästebuch

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

---

Hallo zusammen,

Danke für die Antworten und sorry für das nicht suchen !

Gruss
Rapti

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

---

Hallo Leute, ich nochmal.

Was ich jetzt noch brauche ist ein dynamischer Pfad, in dem er das exe sucht. Er sollte immer den Pfad dort eintragen, der in den SolidWorks-Dateipositionen unter Macros angegeben ist (dort ist das exe zu suchen). Es ist bei jedem PC nicht zwangsmässig das gleiche Verzeichnis !

Geht das ?

Gruss
Rapti

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

---

Dazu müßtest Du die Registry auslesen. Kannst Du das nicht z.B. mit einem Netzwerklaufwerk umgehen?

------------------
Lutz Federbusch
Mein Gästebuch

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

---

Hi,

also der einfachste Weg der mir einfällt:

1. Erzeuge deine swp Datei mit folgendem Code

Dim swApp As SldWorks.SldWorks
Dim myAppID As Variant
Sub main()
    Set swApp = CreateObject("SldWorks.Application")
    Dim mPath As String
    Dim rPos As Long
    rPos = InStrRev(swApp.GetCurrentMacroPathName, "\", , vbTextCompare)
    mPath = Left$(swApp.GetCurrentMacroPathName, rPos)
    myAppID = Shell(mPath & "meine.exe", 1)
    ''Call AppActivate(myAppID)
End Sub

2. Klicke in SWX auf Extras, Anpassen, Tabreiter Befehle , Kategorie Marko und ziehe das Männchen auf deine lieblings Toolbar.
Diesem kannst du nun eine swp Datei zuweisen (siehe oben).

3. Fertig

- Du musst auf jeden PC den Button erzeugen.
- Solange du die swp und die exe in einem Verz liegen hast funzt das..

Gruß
Micha

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo allerseits,

Ich habe erfolglos versucht das Makro einzubinden. Ich finde nichteinmal 'myAppID' in der API-Hilfe.
SolidWorks 2011 x64 SP1.0

Gibt es noch einen anderen Weg?
Oder hat sich in der 2011er Version etwas geändert?

Gruß
Ronny

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

---

Hallo zusammen,

Ich habe bisher erfolglos versucht das Makro einzubinden. Bedauerlicherweise finde ich 'MyAppID' auch nicht in der API-Hilfe.
Fehlermeldung: 'Fehler beim Kompilieren. Projekt oder Bibliothek nicht gefunden.'
SolidWorks 2011 x64 SP1.0

Gibt es noch einen anderen Weg?
Oder liegt es daran, daß ich auf ein Netzlaufwerk verweisen will?

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

---

Hallo Zusammen,

Bisher habe ich es noch nicht geschafft dieses Makro einzubinden. Bedauerlicherweise gibt mir meine API-Hilfe auch keine weiteren Auskünfte über 'myAppID'
Fehlermeldung des Compilers:
'Projekt oder Bibliothek nicht gefunden.'

Version:
Solid Works 2011 x64 SP1.0

Liegt es an der neuen Version oder evtl. daran, daß ich versuche auf ein Netzlaufwerk zu verweisen?

Der Code:
Sub main()
  MyAppID = Shell("H:\Versuche\1\SWFinish_64.exe", 1)
End Sub

Danke schonmal
Gruß
Ronny

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