| V I S U A L I Z Z A D I S C U S S I O N E |
| arri |
Inserito il - 13 novembre 2012 : 13:00:20
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)
) |
| 2 U L T I M E R I S P O S T E (in alto le più recenti) |
| arri |
Inserito il - 16 gennaio 2013 : 13:40:54
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.") |
| Terminator |
Inserito il - 13 novembre 2012 : 16:18:32
La funzione (layoutlist) esclude già "Model", quindi basta scrivere:
foreach layoutname (layoutlist) ecc... |
