|
liber
Utente Master
1278 Messaggi |
 Inserito il - 17 gennaio 2015 : 10:08:50
|
quanto si ha un immagine senza file di correlazione, cioè tiff+tfw, jpg+jpw etc etc, solo alcuni software dedicati sono capaci di creare il file di correlazione, il lisp in esame di autofre sconosciuto, trovato in una delle mie antiche librerie, crea appunto il file di correlazione ovviamente BISOGNA AVERE LE CORNICI DELLE IMMAGINI ATTIVE.
;TFW.LSP per creare la georeferenziazione di un Immagine
;creazione del".TFW" GB
;specchio in Y dei parametri autocad
(command "_imageframe" "_on")
(defun c:tfw ()
(setq index "")
(setq ent (entget (CAR(ENTSEL "Selezionare l'Immagine"))))
(setq ent340 (cdr (assoc 1 (entget (cdr (assoc 340 ent))))))
(setq ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ".TFW"))
(setq ftfw (open ef "w"))
(setq X10 (car (cdr (assoc 10 ent))) )
(setq Y10 (cadr (cdr (assoc 10 ent))) )
(setq X11 (car (cdr (assoc 11 ent))) )
(setq Y11 (cadr (cdr (assoc 11 ent))) )
(setq X12 (car (cdr (assoc 12 ent))) )
(setq Y12 (cadr (cdr (assoc 12 ent))) )
(setq X13 (car (cdr (assoc 13 ent))) )
(setq Y13 (cadr (cdr (assoc 13 ent))) )
(setq line1 (rtos X11 2 9))
(write-line line1 ftfw)
(setq line2 (rtos Y11 2 9))
(write-line line2 ftfw)
(setq line3 (rtos (* -1 X12) 2 9))
(write-line line3 ftfw)
(setq line4 (rtos (* -1 Y12) 2 9))
(write-line line4 ftfw)
(setq line5 (rtos (+ X10 (* X12 Y13)) 2 9))
(write-line line5 ftfw)
(setq line6 (rtos (+ Y10 (* Y12 Y13)) 2 9))
(write-line line6 ftfw)
(close ftfw)
)
la riga in rosso con autocad 2015 da problemi, ma la si può cancellare tranquillamente visto che giova ad attivare in automatico le cornici che voi invece attivate manualmente.
il lisp in questione non funziona solo con i TIFF ma con tutte le immagini, quindi anche con un JPG, anche se il risultato finale darà un TFW che voi dovrete rinominare in JPW, oppure allungare sia il listato come altri Comandi per quanti sono i file immagini che trattate oppure troviamo un volenteroso che faccia riconoscere il tipo di file che andiamo ad inserire.
questo è il listato per un file immagine JPG
(defun c:JPw ()
(setq index "")
(setq ent (entget (CAR(ENTSEL "Selezionare l'Immagine"))))
(setq ent340 (cdr (assoc 1 (entget (cdr (assoc 340 ent))))))
(setq ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ".JPW"))
(setq fjpw (open ef "w"))
(setq X10 (car (cdr (assoc 10 ent))) )
(setq Y10 (cadr (cdr (assoc 10 ent))) )
(setq X11 (car (cdr (assoc 11 ent))) )
(setq Y11 (cadr (cdr (assoc 11 ent))) )
(setq X12 (car (cdr (assoc 12 ent))) )
(setq Y12 (cadr (cdr (assoc 12 ent))) )
(setq X13 (car (cdr (assoc 13 ent))) )
(setq Y13 (cadr (cdr (assoc 13 ent))) )
(setq line1 (rtos X11 2 9))
(write-line line1 fjpw)
(setq line2 (rtos Y11 2 9))
(write-line line2 fjpw)
(setq line3 (rtos (* -1 X12) 2 9))
(write-line line3 fjpw)
(setq line4 (rtos (* -1 Y12) 2 9))
(write-line line4 fjpw)
(setq line5 (rtos (+ X10 (* X12 Y13)) 2 9))
(write-line line5 fjpw)
(setq line6 (rtos (+ Y10 (* Y12 Y13)) 2 9))
(write-line line6 fjpw)
(close fjpw)
)
OVVIO con il software GEOREFIMG sono un accoppiata funzionale se non si hanno applicazioni free o a pagamento come RASTERDESIGN
http://www.cadstudio.cz/en/download.asp?file=GeoRefImg
|
Modificato da - liber in Data 17 gennaio 2015 10:09:12
|
|
georeferenziare immagini
