---

Hallo Leute,
habe mir ein Makro geschrieben der nur Überprüft welches von zwei geladenen Parts im Vordergund ist und ggf. den anderen dann nach vorne lädt

Sub main2()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
 
  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc

  If swModel.GetPathName = "E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü2\Teil1.sldprt" Then
     MsgBox "Teil1.sldprt ist geladen --> Aktiviere Teil2.sldprt"
     swApp.ActivateDoc2 "E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü2\Teil2.sldprt", True, 0
     'MsgBox "Teil2.sldprt geladen"
 
  Else
     MsgBox "Teil2.sldprt ist geladen --> Aktiviere Teil1.sldprt"
     swApp.ActivateDoc2 "E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü2\Teil1.sldprt", True, 0
     'MsgBox "Teil1.sldprt geladen"
 
  End If
 
  MsgBox "Main2 fertig"
 
End Sub

Allerdings springt das makro beim Durchlauf immer sofort in den Else zweig.
Kann es sein das VB diesen Pfadnamen nicht verarbeiten kann?

[Diese Nachricht wurde von Windpirat am 29. Apr. 2009 editiert.]

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

---

Hallo Windpirat,

du musst die Extension in SLDPRT ändern, dann müsste es gehen.
Wenn du dir den Ausdruck swModel.GetPathName mal im Überwachungsfenster anschaust,
dann wirst du erkennen, dass du die Extension so zurückbekommst. Und der
Vergleich von *.sldprt ist nun mal nicht identisch mit *.SLDPRT   

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

---

nochmal ein anderes Problem.
Kann mir jemand sagen warum folgender Makro nicht funzt?
Neues teil soll erstellt werden und dann nach eingabe eines neuen names gespeichert werden!

Sub main4()

  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim datName As String
   
  Set swApp = Application.SldWorks
  Set swModel = swApp.NewDocument("E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü Home\Ü2_2\meineDatei.SLDPRT", 0, 0, 0)
  datName = InputBox("Bitte Dateiname eingeben: ")
  If datName <> "" Then
    'Debug.Print swModel.GetPathName
    Debug.Print datName
    swModel.SaveAsSilent "E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü Home\Ü2_2\" & datName, False
    'Debug.Print Datname
  End If
 
End Sub

Fehler schein in der zeile swModel.SaveAsSilent ... zu sein

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

---

Hallo Windpirat,

was gibst du denn für datName ein??? Du müsstest "Teil xyz.SLDPRT" eingeben,
da du keine Extension in deinem zusammengesetzten String hast.

Gruß
Andreas

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

---

Danke für die schnelle Antwort.
Leider kommt immernoch an der stelle ein Fehler auch wenn ich xyz.SLDPRT in das eingabefeld eingebe.
Oder habe ich deine Antwort falsch verstanden @ad_man?!

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

---

Hallo Windpirat,

was bekommst du denn für eine Fehlermeldung?

Gruß
Andreas

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

---

Also bei mir läuft es..
Lösch mal den Pfad bei deinem SaveAs und gib ihn neu ein..

Welche Fehlermeldung bekommst du denn?

Code:

---

Dim swApp As Object
Sub main()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim datName As String
 
  Set swApp = Application.SldWorks
  Set swModel = swApp.NewDocument("C:\SWX-PDM-Work\Testteil.SLDPRT", 0, 0, 0)
  datName = InputBox("Bitte Dateiname eingeben: ")
  If datName <> "" Then
    'Debug.Print swModel.GetPathName
    Debug.Print datName
    swModel.SaveAsSilent "C:\SWX-PDM-Work\" & datName, False
    'Debug.Print Datname
  End If
Set swApp = Application.SldWorks
End Sub

---

Allerdings solltest du der besseren Bedienbarkeit, die Dateinamenserweiterung in deiner SaveAs Zeile hinzufügen.
------------------
Dirk

[Diese Nachricht wurde von Dirk Wollborn am 11. Mai. 2009 editiert.]

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

---

mhh läuft imernoch nicht.
Fehlermeldung ist: Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt.

Was meinst du mit Pfad löschen? Einfach die Zeile im Quellcode löschen und neu schreiben?
Und warum setzt du die swApp = Application.SldWorks neu?

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

---

Hallo Windpirat,

es sieht so aus, als wenn dein Modell "E:/..."meineDatei.SLDPRT" wohl nicht
existiert und damit kein neues Teil geöffnet wird.
Ich habe dein Makro mit an meine Verhältnisse angepassten Pfaden ohne
Probleme zum laufen bekommen.
Setz doch mal einen Haltepunkt in die erste Zeile und lasse den Code mit F8
durchlaufen. Nach dem Öffnen der Vorlage muss diese im SWX-Fenster erscheinen, sonst ist was faul.

Gruß
Andreas

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

---

eigentlich soll der Makro ein neues Teil erstellen und dann unter dem namen den ich eingebe speichern.
zumindest dachte ich das newdocument ein neues Teil erzeugt.
also vor dem swAPP.newdocument exestiert das teil auch nicht.

Im Objektkatalog steht zu newdocument:
Creates a new document based on the template name

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

---

Guten Morgen Windpirat,

ist ja auch richtig, was du sagst. swApp.NewDocument sollte eigentlich ein neues Dokument erzeugen,
das auf einer Vorlage basiert. Das kann ein Teil, eine BG oder eine Zeichnung sein.
Wenn jetzt beim schrittweisen Debuggen deines Codes erfolgreich eine Vorlage geöffnet wird,
können wir diese Zeile als richtig abhaken.
Dann muss der Fehler in der Zeile mit dem SaveSilent liegen 

Gruß
Andreas

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

---

Zitat:

---

Original erstellt von Windpirat:
Im Objektkatalog steht zu newdocument:
Creates a new document based on the template name

---

...eben !
und Templates haben eben die Endung *.prtdot

Die Pfad-/Dateiangabe bei NewDocument muß etwa "C:\Program Files\SolidWorks\data\templates\part.prtdot" lauten - oder wie auch immer dein Vorlagenpfad und deine Vorlagendatei heißt ...

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

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

---

Hallo Windpirat,

vielleicht helfen dir auch diese Beispiele:
Neues Bauteil öffnen
Dokument speichern
Es handelt sich zwar um vb.net Beispiele, aber ich denke die Verwendung der SolidWorks API wird hier deutlich.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

[Diese Nachricht wurde von tbd am 12. Mai. 2009 editiert.]

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

---

Zitat:

---

Original erstellt von u.clemens:
...eben !
und Templates haben eben die Endung [b]*.prtdot

[/B]

---

Hallo uc,

es funktioniert auch, wenn es ein Teil ist. Hatte auch die Idee gehabt,
dass es ein Template sein muss, aber es geht auch eine Teiledatei.
Und wahrscheinkich auch 'ne BG oder Zeichnung 

Gruß
Andreas

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

---

Hallo Leute, danke für eure Hilfe.
Hab das Problem jetzt gelöst.
Das Problem war das in der newdocument Zeile nicht der Pfad stand wo die Vorlage liegt. So wie hier

Set swModel = swApp.NewDocument("E:\Datein\Studium\5sem - Xsem\Sem. 8\CAD_Appl - Prof_Stelzer\Ü Home\Ü2_2\meineDatei.SLDPRT", 0, 0, 0)

tat sich dannach im SWX-Fenster gar nichts.
Deshalb konnte ja auch nichts gespeichert werden.
Jetzt ist die Datei auch unter dem Namen Physisch in dem Ordner vorhanden.
Werde jetzt nochmal versuchen das Problem mit den Endungen zu lösen.

Bei Fragen komme ich bestimmt wieder auf euch zurück

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

---

Zitat:

---

Und warum setzt du die swApp = Application.SldWorks neu?[/B]

---

Nur schnell und schmutzig ins Makro kopiert, und nicht weiter aufgepasst.
Ist nur ein Versehen gewesen.

------------------
Dirk

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