Newsgroup: it.comp.software.cad
Titolo: Per MS ( Aiuto:Arcview)

Scusa se abuso della tua pazienza,
 volevo chiederti se per caso c'era il modo di cambiare il colore bianco in
trasparente in una sola volta per tutti i temi aperti (sono sempre i tif,
ricordi? ), infatti ho composto quasi mezza regione, purtroppo attivando e
modificando i 'color map' di ogni singolo tema alla volta ci ho messo quasi
una mattinata ( in totale sarebbero più di 500!).
Per stampare in scala una sola parte della regione così composta cosa mi
consigli? Ho trovato delle difficoltà sia per definire la scala sia per
stampare (manca una preview di stampa che indichi cosa si stampa rispetto al
supporto di stampa, per es. A3 ).
Inoltre, per provare a risolvere rapidamente il problema,  ho tentato di
esportare il tutto in un formato leggibile da Autocad2000 ( dove speravo di
controllare meglio il processo di stampa individuando solo la parte che
m'interessava stampare) ma gia con mezza regione il file risultante diventa
troppo grande.
Spero che Tu possa aiutarmi (altrimenti dovro rassegnarmi a perdere un'altra
mattinata cliccando come un automa !).
Ciao e grazie anticipatamente ,Montag.

una mattinata ( in totale sarebbero piů di 500!).
l'unico modo č creare un catalogo di immagini e caricarlo come tema...
di seguito ti riporto lo script che mi sono creata per la creazione di
questo catalogo;
il catologo č un file .dbf composto da 5 campi: Image (percorso assoluto del
file tif); Xmin, Ymin, Xmax, Ymax...
codice dello script:
nome_tabella=MsgBox.Input ("Inserire il nome del catalogo img da creare ",
"Nome Catalogo Img", "")
directory="c:/temp//" 'directory dove va a mettere il catalogo che sto
creando
stringa=directory+nome_tabella
nome_file=stringa.AsFileName
TheVTab=VTab.MakeNew(nome_file,dbase)
tabella_ctr=Table.Make(TheVTab)
tabella_ctr.SetName(nome_tabella)
cpo_image=Field.Make("Image",#FIELD_CHAR,70,0)
cpo_xmin=Field.Make("Xmin",#FIELD_CHAR,13,0)
cpo_ymin=Field.Make("Ymin",#FIELD_CHAR,13,0)
cpo_xmax=Field.Make("Xmax",#FIELD_CHAR,13,0)
cpo_ymax=Field.Make("Ymax",#FIELD_CHAR,13,0)
TheVTab.StartEditingWithRecovery
TheVTab.AddFields({cpo_image,cpo_xmin,cpo_ymin,cpo_xmax,cpo_ymax})
TheVTab.StopEditingWithRecovery(true)
percorso="C:\Progetto\tiff\"  (inserire il percorso dove si trovare
fisicamente i tiff)
tabella1=av.GetProject.FindDoc(nome_tabella)
choiceList = vista.GetThemes
'prendi tutti i temi della vista
theVtab.StartEditingWithRecovery
index = 0
for each c in choiceList
'aggiunge alla lista solo i featureThemes non visibili
   arect=c.ReturnExtent
   xmin=arect.GetLeft
   ymin=arect.GetBottom
   xmax=arect.GetRight
   ymax=arect.Gettop
   percorso=percorso+c.asstring
   newrec=thevtab.AddRecord
   theVtab.SetValue(cpo_image,newrec,percorso)
   theVtab.SetValue(cpo_xmin,newrec,xmin.asstring)
   theVtab.SetValue(cpo_ymin,newrec,ymin.asstring)
   theVtab.SetValue(cpo_xmax,newrec,xmax.asstring)
   theVtab.SetValue(cpo_ymax,newrec,ymax.asstring)
    percorso="C:\Progetto\Tiff\"
end
theVtab.StopEditingWithRecovery(true)
esegui lo script in modo da creare il catologo .dbf, una volta fatto ciň
inserisci
come tema questo dbf e vai cambiare una sola volta il colore bianco in
trasparente...
spero di esserti stato d'aiuto
fammi sapere
katia

Ok, grazie per l'informazione.
Dato che sei molto esperta, volevo chiederti se per caso sai come si possono
importare i tif in AutoCad2000, mantenendo la georeferenziazione.
Infatti adesso dovrei stampare le parti di CTR che mi servono, e vorrei
portare il tutto a plottare presso un service (dove non credo che abbiano
ArcView installato ...).
Ciao e grazie ancora.
