---

Liebe Kollegen,

bei der x-ten Iteration einer Sondermaschine sind die Einzelteile/Zeichnungen mittlerweile in vielen Ordnern verteilt. Das Drucken und PDFen der zugehörigen Zeichnungen gestaltet sich zunehmend aufwendig bzw. ist Handarbeit.
Jetzt habe ich mir PAC4SWX angesehen, aber das scheint automatisch nur alle Zeichnungen eines Ordners, nicht aber automatisch alle verbauten Zeichnungen verarbeiten zu können.
Gibts eine andere Lösung?
Kann eine Zeichnungsdatenbank das evtl.? Welche?
Normalerweise haben wir das Teilewiederverwendungsthema nicht so oft, da wir andere Sondermaschinen nicht x-fach weiterentwickeln.
Fragen über Fragen am Samstag..

------------------
Gruß Manuel
http://www.kb-ohnemus.de

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

---

Hallo Manuel,
na dann schau doch mal hier vorbei.
http://ww3.cad.de/foren/ubb/Forum2/HTML/022358-2.shtml

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Super, genau das was ich gesucht habe.
Hatte nur etwas gedauert bis ich eine mit 2013 laufende Version ausgekuckt hatte (die 1.3.2 läuft damit).
Ich habe das jetzt mal mit dem FreePDF-Drucker probiert und bekomme alle PDFs in ein Verzeichnis.

Vielen Dank dafür.

------------------
Gruß Manuel
http://www.kb-ohnemus.de

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

---

Hallo Manuel,
is ja Prima.

Du könntest auch nach dem Öffnen der Zeichnung noch einen Speichervorgang als PDF-Dokument im Makro einbauen, dann müsstest du nicht über Free-PDF gehen.
Dabei evtl. einen festen Pfad vorsehen und schon verwendest du SW Speicherfunktionen.
Nichts dramatisches.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Sowas hatte ich mir schon gedacht, leider fehlt mir komplett die VBA-Ahnung. Mal reinkucken.

Jetzt hatte ich vorhin meine Systeminfo aktualisiert und jetzt fehlt sie komplett?

Edit: Und wieder da. Komisch.

------------------
Gruß Manuel
http://www.kb-ohnemus.de

[Diese Nachricht wurde von kaehner am 11. Apr. 2015 editiert.]

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

---

Hallo Manuel,
dann füge mal in der Routine Sub Auswerten () unter der grünen Überschrift 'öffnen folgenden Code ein.

If MerkerDrucken = True Then                                                            'wenn gedruckt werden soll, dann Zeichnung öffnen
    Set myDwgDoc = swApp.OpenDoc6(DwgPath, swDocDRAWING, swOpenDocOptions_Silent, "", CloseErrors, CloseWarnings) 'Zeichnung wird geöffnet
    Set ModelAct = swApp.ActivateDoc(DwgPath)                                          'falls die Zeichnung bereits geöffnet war, wird sie hervorgeholt
  '---------------------
    If Not myDwgDoc Is Nothing Then
        If myDwgDoc.EditRebuild3() Then
            'MsgBox "Neuaufbau erfolgreich"
        Else
            MsgBox "Dieses Model hat Wiederaufbaufehler"
        End If
    End If
  '------------------------
    Dim SldPathExt As String
    Dim Model As Object
    Set Model = swApp.ActiveDoc
    If (Model.GetType() = swDocDRAWING) Then                                            ' ob aktuelles Dokument eine Zeichnung ist
        SldPathExt = "C:\PDF-Dokumente\" + referencedDoc(i).Name + ".pdf"
        Model.SaveAs2 SldPathExt, 0, True, False                                        'der Speichervorgang als pdf
    End If
  '----------------------------------
End If

Ich hab jetzt mal einen festen Speicherort C:\PDF-Dokumente voreingestellt.
Wenn du einen anderen Pfad haben möchtest, passe ihn entsprechend an.
Der Ordner muss bereits existieren, bevor du das Makro benützt.
Ich habe auch noch einen zusätzlichen Code bzgl. Neuaufbau eingefügt.
Beobachte dazu auch meinen neuen Beitrag hier.
http://ww3.cad.de/foren/ubb/Forum2/HTML/028255.shtml

Grüße und viel Erfolg, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo,

es passt vielleicht nicht ganz dazu aber ich frage trotzdem mal hier und zwar:
ich habe da ein Macro welches die Zeichnung in step dft pdf speichert.
Beim pdf speichern, speichert es immer alle Blätter und ich hätte es gerne so wie in Solid Works dass ich mir aussuchen kann welches Blatt gespeichert werden soll oder zumindest nur das aktive
Ich habe leider nicht sehr viel/keine Ahnung von VBA und weiß net so recht wie ich dieses Problem angehen soll...

------------------
Maschinenschlossermeister
Ingeniuer Wirtschaftsingeniuerwesen
FH-MEWI Student

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

---

Hallo koksi,

wenn du nur einzelne Seiten als PDF haben willst mußt du auf die "GetExportFileData Method" bzw. das "ExportPdfData Interface" zurückgreifen dort kannst du dann bestimmt Seiten/Blätter zur PDF-Erstellung ausgewällen.

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