MACRO zu Druckzeichnungen

[tracciatura.net]

Guten Morgen.
auf Anfrage von cad3d (Administrator) stellen Sie ein Makro gefunden im Internet, dass ich an meine Bedürfnisse angepasst, d.h. diejenigen, um viele Designs zu drucken.
Sie müssen nur alle Zeichnungen öffnen, die Sie drucken möchten, dann und in Makro einfügen Einsatzmodell.pc3 e) Einfügen von Muster.ctbund starten Sie das Makro.
an dieser Stelle werden die Drucke in Abständen von jeweils etwa 35 Sekunden gestartet (wenn es Fehler gibt Zeichnung ist Setup für benannte Plot-Stile. Wartezeiten erhöhen warten (35) 'aspetta x secondi )
Nach dem Drucken werden die Zeichnungen geschlossen, ohne gespeichert zu werden.
offensichtlich wird das aktuell aktive Layout gedruckt, das Modell oder Papier ist und der Druckbereich Erweiterung ist (layout.plottype = acextents)
und die Skala ist skaliert (Grundstücksfläche = acscaletofit)
wenn du Hilfe brauchst.

(Schritt) (Schritt) (Schritt)
Alle offenen Zeichnungen drucken
(Schritt) (Schritt) (Schritt)
Subprintall verfügbar()
dim doc als acaddocument
Dim Format als String
dim styleprint als string
dim Rotation als acplotrotation
dim Grundstücksgröße als acplotscale
dim stamp_pc3 als String
dim ndoc als ganze Zahl

„gegen wie viele Dokumente offen sind
ndoc = anwendung.documents.count
debug.print "documents.count->" & ndoc
für jeden Doc in Anwendung. Dokumente
debug.print c & "of" & ndoc & " -> " & doc.name

doc.activate
(Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft [Schläft] (Schläft) [schlafen] [schlafen] (Schläft) [Schläft] [Schläft [Schläft] (Schläft) (Schläft) (schlafen) (schlafen) (schlafen) (schlafen) (schlafen) (schlafen) (schlafen) (schlafen) (schlafen) (Schläft) [schlafen]
form_pc3 = "Insert model.pc3"
(Schläft) [schlafen] [schlafen] (Schläft) [schlafen [schlafen] (Schläft) [schlafen [schlafen] (Schläft) [schlafen] [schlafen] [schlafen [schlafen] (Schläft) [Schläft] [Schläft] [Schläft [Schläft] (Schläft) [Schläft [schlafen] (Schläft) [schlafen] [schlafen] (Schläft) [schlafen] [schlafen] [schlafen] [schlafen] (Schläft) [schlafen [schlafen] (Schläft) (Schläft) [schlafen]
Styleprint = "Insert model.ctb"
(Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep)) (Bleep) (Bleep)) (Bleep) (Bleep)) (Bleep))
Format = "a3"
(Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] [schlafen] [schlafen] [schlafen] [schlafen] (Schläft) [Schläft] [
Grundstücksfläche = acscaletofit
(Schläft) [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] (Schläft) [Schläft] [Schläft] [Schläft] (Schläft) (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] (Schläft) (Schläft) [Schläft] [Schläft] [Schläft] [Schläft] (Schläft) [schlafen [schlafen] [schlafen] [schlafen] [schlafen] [schlafen]
Rotation = ac90degrees
' Setupandplo
call setupandplot(stamp_pc3, Styleprint, Format, acscaletofit, Rotation)
Diese Zeichnung.plot.plottodevice
Diese Zeichnung. nahe (false)
warten (35)
Nächste

Ende

und die Funktion, die ausführt

****************************************************************************************************************************************************************************************************************************************************************
'lancia stampa'
****************************************************************************************************************************************************************************************************************************************************************
private Sub-Setupandplot(byref-Plotter als String, ctb als String, Größe als String, pscale als String, rot als String)
dim layout als acadlayout

auf fehler goto err_control
set layout = thisdrawing.activelayout
Layout.refreshplotdeviceinfo
layout.configname = lotter ' callplotter
layout.plottype = acextents
layout.plotrotation = rot
layout.stylesheet = ctb ' call ctb Datei
layout.plotwithplotstyles = true
layout.plotviewportborders = falsch
layout.plotviewportsfirst = true
layout.canonicalmedianame = Größe ' Rufgröße
layout.paperunits = acmillimeter
Layout.Standards = pscale 'call pscale
layout.showplotstyles = falsch
Diese Zeichnung.plot.numberofcopies = 1

layout.centerplot = true
Diese Zeichnung. Regenerationsberichte
Zoomextents
Layout eingestellt = nichts


Ausfahrt_hier:
Ausgang Sub

Err_control:
Wählen Sie den Fall err.number
Fall "-2145320861"
msgbox "unfähig, Zeichnung zu speichern" & err.description
Fall "-2145386493"
msgbox "Zeichnung ist Setup für benannte Plot-Stile." & (chr(13)) & (chr(13))) & "Run Convertpstyles Befehl", vbkritische, "Wechsel-Plot-Stil"
Fall
msgbox "unbekannter Fehler " & err.number
Ende wählen

Endteil


****************************************************************************************************************************************************************************************************************************************************************
'aspetta n secondi
****************************************************************************************************************************************************************************************************************************************************************
Private Sub-Warte(Sekunden als ganze Zahl)
dim Wartezeit als ganze Zahl
dim start als Single

Wartezeit = Sekunden
Start = Timer
während Timer < Start + Wartezeit
Doevents
wir
Endteil