TuttoCAD Forum

TuttoCAD Forum
[ Home | Registrati | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Album Fotografico | Download | | Cerca | FAQ ]
Nome Utente:
 Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 1 - TuttoCAD Software
 AutoLISP
 Stampare (o eliminare) tutti i layout		  Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Autore Discussione Precedente Discussione Discussione Successiva  

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 13 novembre 2012 : 13:00:20  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
senza usare il comando _Publish

(defun c:Tab ( / )
(foreach layoutname (vl-remove "Model" (layoutlist))
(command "._layout" "set" layoutname)
(command "-plot"
"yes"
layoutname
"TFC-ENGXER6204.pc3"
"Arch C (18x24 in.)"
"Inches"
"LANDSCAPE"
"NO" ;PLOT UPSIDE DOWN
"LAYOUT"
"1:1"
"0.00,0.00"
"YES" ;PLOT WITH PLOTSYTLES
"MONOCHROME.CTB"
"NO" ;PLOT WITH LINEWEIGHTS
"NO" ;SCALE LINEWEIGHTS WITH PLOT SCALE
"YES" ;PLOT PAPER SPACE LAST
"NO" ;REMOVE HIDDEN LINES
"NO" ;WRITE THE PLOT TO A FILE
"NO" ;SAVE CHANGES TO LAYOUT
"YES");PROCEED WITH PLOT
)
(princ)
)
Modificato da - arri in Data 16 gennaio 2013 13:39:54

Terminator
Utente Master



725 Messaggi
Inserito il - 13 novembre 2012 : 16:18:32  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
La funzione (layoutlist) esclude già "Model", quindi basta scrivere:

foreach layoutname (layoutlist) ecc...
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 16 gennaio 2013 : 13:40:54  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
eliminare tutti layout

(defun c:deltab ()
(setq *doc (cond (*doc)
((vla-get-ActiveDocument
(vlax-get-acad-object)))))
(vlax-for lay (vla-get-layouts *doc)
(if (not (eq "MODEL" (strcase (vla-get-Name lay))))
(vla-delete lay)))
(print "All Tabs Deleted, Layout1 Tab is restored by default")
(princ
))
(princ "\nDELTAB Loaded. Type DELTAB to Start.")
Torna all'inizio della Pagina
  Discussione Precedente Discussione Discussione Successiva  
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
Vai a:
TuttoCAD Forum © 2001-2010 CADLandia Torna all'inizio della Pagina
Pagina generata in 5,1 secondi.