Thema Datum  Von Nutzer Rating
Antwort
30.01.2019 08:39:15 Jan
NotSolved
30.01.2019 08:42:47 Gast6564
NotSolved
30.01.2019 09:07:36 Jan
NotSolved
Blau Inventor 19/ PDF aus 2D-CAD-Zeichnung erstellen/ Diese PDF soll überschreiben
30.01.2019 18:11:14 Gast36789
NotSolved
03.02.2019 03:58:53 Gast56714
NotSolved

Ansicht des Beitrags:
Von:
Gast36789		 Datum:
30.01.2019 18:11:14		 Views:
421		 Rating:
     
Antwort:
  Ja
Thema:
Inventor 19/ PDF aus 2D-CAD-Zeichnung erstellen/ Diese PDF soll überschreiben

Ich möchte eine 2D Zeichnung im CAD als PDF speichern
und die bestehende PDF (welche manuell Jahre vorher erstellt wurden und in einem Pfad incl. Unterordner gespeichert wurde) überschreiben.

Die PDF habe ich mittleiweile einwandfrei erstellen können-
leider speichere ich die PDF im selben Ordner wie die idw.(Inventor- Zeichnungsdatei)  Datei.
Diese möchte ich aber in U:\PDF-Dateien\#AutoCAD und allen 19 Unterordnern im Überordner #AutoCAD speichern.
D.h. die zuüberschreibende Datei befindet sich in einem der 19 Unterordner.

(Hier müsste also erstmal der Ordner festgestellt werden indem die Datei ist)

Anbei der Code der funktioniert:

Sub drawing()

Dim oapp As Inventor.Application
Set oapp = ThisApplication
Dim odoc As Inventor.DrawingDocument
Dim osource As String
Dim odest As String

If oapp.ActiveDocument Is Nothing Then
    Exit Sub
End If

If oapp.ActiveDocumentType <> kDrawingDocumentObject Then
    Exit Sub
End If

Set odoc = oapp.ActiveDocument
osource = odoc.FullFileName
odest = Left(osource, Len(osource) - 4)


Dim osheet As Inventor.Sheet
Dim counter As String
Dim zaehler As String

zaehler = 0
counter = 1

For Each osheet In odoc.Sheets
osheet.Activate
zaehler = zaehler + 1
Next

If zaehler = 1 Then
    Call odoc.SaveAs(odest & ".pdf", True)
Exit Sub
End If

For Each osheet In odoc.Sheets
osheet.Activate
Call odoc.SaveAs(odest & "Blatt" & counter & ".pdf", True)
counter = counter + 1
Next

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.01.2019 08:39:15 Jan
NotSolved
30.01.2019 08:42:47 Gast6564
NotSolved
30.01.2019 09:07:36 Jan
NotSolved
Blau Inventor 19/ PDF aus 2D-CAD-Zeichnung erstellen/ Diese PDF soll überschreiben
30.01.2019 18:11:14 Gast36789
NotSolved
03.02.2019 03:58:53 Gast56714
NotSolved