| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Inventor 2020 - Drucker VBA (1377 / mal gelesen)
|
Starbuzz Mitglied
Beiträge: 63 Registriert: 14.11.2014
|
erstellt am: 07. Jan. 2020 08:38 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin on Inventor 2016 auf 2020 umgestiegen. leider gibt es Probleme bei meinem Drucker Tool. Die Zeichnung wird soweit ausgedruckt. Leider erkennt man auf dem Ausdruck nur die Ansichten des Modells. Schriftfeld, Bemaßung, Textfelder, Schweißnahtsymbole usw. werden nicht dargestellt! Weiß einer, ob es bei Inventor 2020 Probelem mit den VBA's gibt und was ich bei meinem Drucker VBA machen kann?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 07. Jan. 2020 12:21 <-- editieren / zitieren --> Unities abgeben: Nur für Starbuzz
Hallo Das hört sich eher so an, als fehlt die entsprechende Konfiguration. Dein Inventor druckt mit der Option "nur Modellgeometrie" würde ich sagen. Gibt es eine Konfigurationsdatei( .ini, .xml) die das steuert? EDIT: Kannst du den Code posten? ------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Starbuzz Mitglied
Beiträge: 63 Registriert: 14.11.2014
|
erstellt am: 07. Jan. 2020 13:01 <-- editieren / zitieren --> Unities abgeben:
Beispielsweise mein SchwarzweißDruck Public Sub SWDruck() If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then Dim oDrgDoc As DrawingDocument Set oDrgDoc = ThisApplication.ActiveDocument Dim oDrgPrintMgr As DrawingPrintManager Set oDrgPrintMgr = oDrgDoc.PrintManager 'Drucker festlegen oDrgPrintMgr.Printer = "DRUCKER XYZ" oDrgPrintMgr.PrintRange = kPrintAllSheets 'Blattgröße definieren On Error Resume Next Select Case oDrgDoc.ActiveSheet.Size Case kA4DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA4 oDrgPrintMgr.ScaleMode = kPrintCustomScale oDrgPrintMgr.AllColorsAsBlack = True oDrgPrintMgr.[Scale] = 1 Case kA3DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA3 oDrgPrintMgr.ScaleMode = kPrintCustomScale oDrgPrintMgr.AllColorsAsBlack = True oDrgPrintMgr.[Scale] = 1 End Select 'Orientierung der Zeichnung definieren On Error Resume Next Select Case oDrgDoc.ActiveSheet.Orientation Case kLandscapePageOrientation oDrgPrintMgr.Orientation = kLandscapeOrientation Case kPortraitPageOrientation oDrgPrintMgr.Orientation = kPortraitOrientation Case Else 'Andere Werte. Debug.Print "ungültige Orientierung" End Select oDrgPrintMgr.SubmitPrint 'Zeichnung wird gedruckt End If End Sub [Diese Nachricht wurde von Starbuzz am 07. Jan. 2020 editiert.]
edit*
Von einer ini wüsste ich nichts Wo finde ich das? [Diese Nachricht wurde von Starbuzz am 07. Jan. 2020 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 07. Jan. 2020 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für Starbuzz
Hallo Sorry, jetzt war ich auf dem Holzweg. Die Option nur Modellgeometrie gibt's in den Translatoren, nicht im Druck. Mir ist kein derartiges Verhalten als neues "Feature" für 2020 bekannt. Kann leider selbst nicht testen derzeit. Kommentiere bitte mal die "On Error resume next", ob es eine brauchbare Fehlermeldung gibt.
------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meierjo Mitglied
Beiträge: 416 Registriert: 20.08.2003 Windows 10 Prof 64 Bit Inventor Prof 2021 Vault Basic 2021
|
erstellt am: 08. Jan. 2020 06:55 <-- editieren / zitieren --> Unities abgeben: Nur für Starbuzz
Guten morgen Habe dein Makro mal durchlaufen lassen. Bei mir wird alles korrekt ausgedruckt, inklusive Rand, Bemassung, etc (Makro steuert ja auch nichts anderes). Was passiert, wenn du über den normalen Druckdialog vom Inventor druckst? Was für einen Drucker hast du? Hast du die Möglichkeit, auf einen anderen Drucker zu drucken? Wenn ja, wie ist dort das Ergebnis? Tritt der Fehler bei allen Formaten (A3 / A4 / Hochformat / Querformat) auf? Gruss Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bkrüger Mitglied Konstrukteur
Beiträge: 51 Registriert: 14.09.2014 Win10 IV2018 Vault2018-WG
|
erstellt am: 07. Feb. 2020 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Starbuzz
Hallo, könnte es daran liegen, dass Layer vom Plotten disabled wurden? Zu finden unter Stil- und Normeneditor/Layer - dort einen beliebigen Layer anklicken, dann siehst du die Layertabelle und in der sollte unter "Plot" kein durchgestrichenes Icon zu sehen sein. Hinweis: So ist das jedenfalls im Inventor2018 - im 2020er könnte es genau so sein... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bkrüger Mitglied Konstrukteur
Beiträge: 51 Registriert: 14.09.2014 Win10 IV2018 Vault2018-WG
|
erstellt am: 07. Feb. 2020 12:06 <-- editieren / zitieren --> Unities abgeben: Nur für Starbuzz
Alle Layer für das Plotten freischalten: Code:
Sub SetAllLayersOn() Dim ix As Long Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument For ix = 1 To oDoc.StylesManager.Layers.Count oDoc.StylesManager.Layers(ix).Plot = True Next End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |