Stampa multifoglio per sistemi a Layer

Questa funzione collaudata su Autocad 2002 e adatta soprattutto agli schemi elettrici costruiti su di un sistema a "Layer" tipo Cadelet/Idea, permette di eseguire la stampa di tutti o dei fogli selezionati.

 

Inizio col spiegare su che sistema a layer è costruito l'esempio. Per chi conosce questo tipo di lavorazione sa che ad ogni layer corrisponde un foglio del disegno e più precisamente nel mio caso prendo spunto da un sistema che ha 3 Layer per foglio. Abbiamo un layer con prefisso "D_" dove solitamente vengono inseriti i blocchi o altro che può comporre lo schema, un layer "F_" dove vengono disegnati i collegamenti veri e propri (fili) ed infine un layer "T_" riservato per i testi (non obbligatorio).

L'utilità non fa altro che scongelare e congelare i layer relativi ai fogli selezionati e mandare le stampe sulla stampante selezionata; l'elenco delle stampanti che vi verrà proposte sono semplicemente quelle che riconosce Autocad.

 

Figura 1.

Nell' unica finestra presentata si può vedere il numero del foglio e la descrizione del foglio la quale viene visualizzata solo se il disegno è già stato salvato.

Questi due dati vengono ricavati da 2 attributi del cartiglio: il primo è (nel mio caso) un attributo "FOG" con scritto il numero del foglio ed il secondo un attributo "TITOLO" contenente la descrizione o titolo del foglio.

 

Selezionando "Stampa tutti i fogli" come dice la parola stessa, vengono stampati tutti i fogli con lo stesso ordine dell' elenco presentato, altrimenti si seleziona col mouse quelli desiderati. Come potrete notare una soluzione esclude l'altra.

 

Per quanto riguarda il numero di copie da stampare vengono stampate fascicolate.

Figura 2

Come si può immaginare selezionando l'opzione "Estensione" i fogli vengono stampati con l'area di stampa in estensione.

 

All'interno della funzione vado a caricare anche il formato della carta "A4" e uno stile di stampa.

Ovviamente si può fare in modo di visualizzare l'elenco disponibili in CAD dei file "ctb".

Figura 3.

 Con l'ultimo segno di spunta, che nel mio caso è "Carica fogli (schemi non Sima), vado ad analizzare quei cartigli che non sono personalizzati come nella mia azienda.

 

In poche parole questa opzione analizza sempre lo stesso sistema di layer e quindi 3 layer per foglio, ma solamente il numero del layer e più precisamente il prefisso "D_0" ed il numero scritto alla fine. Facciamo un esempio:

Foglio 13 corrisponde ai layer "D_000013","F_000013" e "T_000013"

Io analizzo il prefisso "D_0" e poi le ultime 4 cifre che compongono il foglio che sono "0013", che poi trasformo in 13 e nell' elenco comparirà solamente il numero del foglio.

Quindi non sono legato agli attributi del cartiglio, ma al sistema di layer.
Per chi ha una discreta conoscenza di VBA adattare l'utilità alle proprie esigenze non dovrebbe essere difficile, mentre per chi non sa nulla, ma fa comodo una funzione del genere rimango a disposizione per eventuale adattamenti mandandomi una e-mail oppure tramite il forum e per chi ha fantasia può recuperare questa funzione per altre cose.