Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  PDF Makro

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   PDF Makro (436 mal gelesen)
Alex3D
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Alex3D an!   Senden Sie eine Private Message an Alex3D  Schreiben Sie einen Gästebucheintrag für Alex3D

Beiträge: 28
Registriert: 16.08.2017

SolidWorks 2019 SP5,
I7-9700, 32 GB Ram, SSD, RTX4000,
Windows 10

erstellt am: 19. Mrz. 2020 14:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Servus Leute,

ich benutze das Makro von Andi (http://solidworks.cad.de/mm_boerse02.htm) um einfach PDF's zu erstellen. Weiß jemand, wie ich das VB Skript dementsprechend anpasse, dass es nur das aktuelle Blatt ausgibt?
LG Alex

------------------
MfG

Alex

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von bk.sc an!   Senden Sie eine Private Message an bk.sc  Schreiben Sie einen Gästebucheintrag für bk.sc

Beiträge: 2370
Registriert: 18.07.2012

-Solid Works 2019 SP3
-Pro Engineer WF 3

erstellt am: 20. Mrz. 2020 13:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alex3D 10 Unities + Antwort hilfreich

Hallo Alex,

schau dir mal das Beispiel "Save File as PDF Example (VBA)" + die Methode "GetCurrentSheet Method (IDrawingDoc)" + die Methode "GetName Method (ISheet)". Damit solltest du alles haben um das Macro anzupassen.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

Alex3D
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Alex3D an!   Senden Sie eine Private Message an Alex3D  Schreiben Sie einen Gästebucheintrag für Alex3D

Beiträge: 28
Registriert: 16.08.2017

SolidWorks 2019 SP5,
I7-9700, 32 GB Ram, SSD, RTX4000,
Windows 10

erstellt am: 26. Mrz. 2020 13:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,

leider kann ich mit deinen Angaben nicht viel anfangen, kenn mich mit VBA nicht aus :-)

LG Alex

------------------
MfG

Alex

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von bk.sc an!   Senden Sie eine Private Message an bk.sc  Schreiben Sie einen Gästebucheintrag für bk.sc

Beiträge: 2370
Registriert: 18.07.2012

-Solid Works 2019 SP3
-Pro Engineer WF 3

erstellt am: 27. Mrz. 2020 11:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alex3D 10 Unities + Antwort hilfreich

Hallo Alex,

hab dir mal auf die schnelle ein Macro zusammengestöpselt das nur das aktive Blatt als PDF exportiert.

Code:
Option Explicit

Dim swApp              As SldWorks.SldWorks
Dim swModelDoc          As SldWorks.ModelDoc2
Dim swModelDocExt      As SldWorks.ModelDocExtension
Dim swDrawingDoc        As SldWorks.DrawingDoc
Dim swExportPDFData    As SldWorks.ExportPdfData

Dim boolstatus          As Boolean
Dim filename            As String
Dim lErrors            As Long
Dim lWarnings          As Long
Dim strSheetName        As String

Sub main()
   
    'SolidWorks initialisieren
    Set swApp = Application.SldWorks

    ' Dokument Objekt holen
    Set swModelDoc = swApp.ActiveDoc
    Set swModelDocExt = swModelDoc.Extension
    Set swExportPDFData = swApp.GetExportFileData(1)
   
    'Überprüfen ob Dokument eine Zeichnung ist
    If swModelDoc.GetType <> swDocDRAWING Then
        MsgBox "Bitte öffnen Sie eine Zeichnung", vbOKOnly + vbInformation
        Exit Sub
    End If
   
    'Abfrage ob Dokument bereits gespeichert wurde
    If swModelDoc.GetPathName = "" Then
        MsgBox "Bitte zuerst Zeichnung speichern!", vbOKOnly + vbInformation
        Exit Sub
    End If
   
    'Dokument festlegen als Zeichnungsdokumet
    Set swDrawingDoc = swModelDoc
       
    ' Dateipfad für PDF festlegen = Dateipfad des Zeichnungsdokumentes
    filename = swModelDoc.GetPathName
    filename = Replace(filename, ".SLDDRW", ".PDF")

    ' Einstellung für PDF-Export festlegen das nur aktuelles Blatt exportiert wird
    boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swDrawingDoc.GetCurrentSheet)
   
    'PDF erstellen
    boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportPDFData, lErrors, lWarnings)

End Sub


Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

MWN
Mitglied
Dipl.-Ing. (BA) Holztechnik & NLP Practitioner


Sehen Sie sich das Profil von MWN an!   Senden Sie eine Private Message an MWN  Schreiben Sie einen Gästebucheintrag für MWN

Beiträge: 482
Registriert: 14.02.2007

erstellt am: 30. Mrz. 2020 09:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alex3D 10 Unities + Antwort hilfreich


SpeichernUnter_PDF.swp.txt


SpeichernUnter_PDF_Druck.swp.txt

 
Moin Alex,

ich hab mal meine Macro-Sammlung durchforstet und dir zwei Macros angehangen. Eines, was nur die PDF speichert und das zweite, was die PDF auch gleich druckt.
Du brauchst die Dateien nur herunterzuladen und das ".txt" am Ende zu entfernen.
Leider habe ich im Moment kein SWX zur Hand, um sie mit deiner Version zu testen.
Probier es aus und viel Erfolg.

Tobias

------------------
"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz