---

Vorweg gesagt, dieser SWX-TaskManager ist ja nicht schlecht, mich stört aber, dass der SWX immer wieder öffnet und schließt ....

Zum Problem,

Ich möchte ein Makro schreiben, welches alle aktuell geöffneten Dokumente (Zeichnungen) durchläuft und jede Zeichnung jeweils druckt als PDF.

Stelle mir das so vor:

- erst mal Count der geöffneten Dokumente (Absicherung ob nur drw ist egal)
- Schleife von 1 bis endecount, dann mittels swModel.SaveAs2 ein PDF erzeugen (das geht schon bisher auf Knopfdruck)
- Sprung zum nächsten

- das Sahnehäuble wäre noch, das Dokument nach drucken zu schließen.

P.S.: Gibt es analog zu swModel.GetPathName (speicherpfad) auch was für NUR Dateiname !??!

Wäre toll, wenn jemand den Durchblick behält.

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Hallo Teddibaer,
ob es eine API-Methode für nur den Dateinamen gibt weiß ich nicht, aber so gehts auch.

Code:

---

Dim swApp As Object
Dim swDoc As Object

Sub main()

  Dim sFileName As String

  Set swApp = Application.SldWorks
  Set swDoc = swApp.ActiveDoc

  If swDoc.GetPathName <> "" Then
    sFileName = Mid(swDoc.GetPathName, InStrRev(swDoc.GetPathName, "\") + 1)
    MsgBox sFileName
  End If

End Sub

---

Auf der Seite http://files.solidworks.com/API/Examples/00000/0200s/0281/Example.htm gibt es ein Beispiel was dem sehr nahe kommt was Du vorhast.
Das müßte man nur ein bißchen "umbauen".

Gruß Jörn

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

---

warum das Fahrrad nochmal erfinden ?
http://swtools.cad.de/de_prog_pac.htm

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

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

---

Den Dateinamen kannst Du mit "ModelDoc.GetTitle" holen. Aber aufgepasst! Er wird so ausgelesen, wie er in der Titelleiste des entsprechenden Fensters angezeigt wird! Je nach Windows-Einstellung wird er mit oder ohne Extension gelesen. Diesen Fall musst du im Programm abchecken!

------------------
Gruss
Andreas

A+E Müller AG

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

---

@Andreas
An ModelDoc.GetTitle() hatte ich auch erst gedacht, aber bei Zeichnungs-Dokumenten hängt hinter dem Dateiname noch ein " - Blatt?"
Da müßte man dann auch den String splitten um nur an den Dateinamen zu kommen.

Gruß Jörn

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

---

Zitat:

---

Original erstellt von u.clemens:
warum das Fahrrad nochmal erfinden ?

---

WARUM? Die in der Menschheitsgeschichte wahrscheinlich am häufigsten gestelle Frage!

Habe mir das Programm angeschaut, echt gut und teste auch schon, ABER: Dem Alkoholiker kannst Du auch nur mit Hardware beruhigen, ein Foto von einem Bierchen reicht da nicht aus ... Ne ernsthaft, das tüfteln macht halt Laune, auch wenn da die Freizeit drunter leided.

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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