| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Dialogbox im ._-plot-Befel unterdrücken (1134 mal gelesen)
|
Stechi Mitglied Informatiker
Beiträge: 75 Registriert: 17.01.2008
|
erstellt am: 18. Jun. 2008 16:25 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte aus dem VBA heraus eine dwg-Datei plotten. Dafür muß ich einige Vorbereitungen erledigen. Über den ThisDrawing.SendCommand löse ich den ._-plot-Befehl aus. Irgendwann komme ich an die Stelle, wo er mir ein Dialogfenster aufmacht, wo ich dann aufgefordert werde, den Bestimmungsort für die plt-Datei einzugeben. Das möchte ich aber nicht. Er soll das Fenster aber unterdrücken und als plt-Datei diesen Pfad C:\Temp\oce9800out.plt immer nehmen. Mein bisherigen Code: Code: AUSGABEDATEI = "C:\Temp\oceout.plt" AUSGABEGERÄT = "OCE9800.pc3" PAPIERFORMAT = "EKK_A0_Rolle_7000" PLOTVERSATZ = cboX.text & "," & cboY.text ' Ausführen der Plotausgabe ThisDrawing.SendCommand ("._-plot" & vbCr & "_yes" & vbCr & "Model" & vbCr & AUSGABEGERÄT & vbCr & PAPIERFORMAT & vbCr & "_m" & vbCr & "_L" & vbCr & KOPFDRUCK & vbCr & "_ext" & vbCr & VERHAELTNIS & vbCr & PLOTVERSATZ & vbCr & "_yes" & vbCr & PLOTTERDATEI & vbCr & "_yes" & vbCr & "W" & vbCr & "_yes" & vbCr & AUSGABEDATEI & vbCr & "_no" & vbCr & "_yes" & vbCr)
Was mache ich falsch bzw wi muss ich da vorgehen? Für jegliche Antwort wäre ich dankbar! Gruß Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 18. Jun. 2008 16:31 <-- editieren / zitieren --> Unities abgeben: Nur für Stechi
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 18. Jun. 2008 16:32 <-- editieren / zitieren --> Unities abgeben: Nur für Stechi
|
Stechi Mitglied Informatiker
Beiträge: 75 Registriert: 17.01.2008
|
erstellt am: 19. Jun. 2008 10:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Anton, Danke für Antwort. Ich habe es ausprobiert! Die Datei wird erstellt. Ich habe jetzt folgenden Code: Code: Dim result As Boolean AUSGABEDATEI = "C:\Temp\oceout.plt" AUSGABEGERÄT = "OCE9800.pc3" result = ThisDrawing.Plot.PlotToFile("c:\temp\oceout.plt", AUSGABEGERÄT)
Irggendwie fehlen doch noch einige Paramaeter (siehe erstes Posting von mir), wie z.B. das Papierformat (hier: EKK_A0_Rolle_700) oder den Maßstab für die Zeichnung, oder? Konkret: Wie bekomme ich die benötigten Parameter (s.o.) in den Befehl unter? Gruß Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1357 Registriert: 24.07.2002 AutoCAD ACA 2018 Solidworks 2016 Sp5 Enterprise PDM 2016 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Samsung S24C650 Dell M4800
|
erstellt am: 19. Jun. 2008 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für Stechi
Hi Markus, Schau dir in der Hilfe mal das Layout object an. Da findest du auch was über canonical media name (Papiergröße) usw. . Hab gerade kein AutoCAD zu Hand, aber da solltest du dann mit weiter kommen. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |