Post by axlsilPost by grPost by alive01Post by il grande fardelloVai al Catasto e ti fai dare il libretto elaborato e cioè con le
coordinate. Poi con il cad te le trascrivi ed il gioco è fatto
Oppure lo elabori tu, inserendo i dati in vers. GPS e le coordinate
salteranno fuori lo stesso
la via più economica, fai un pregeo, inserendo a mano, i dati del
libretto che ti è stato dato, lo elabori e poi con vigeo,
programmino gratis, hai il cad di tutti i punti e le linee.
Pregeo 10.1.4 - Approvato - 2008/........
Tipo introdotto in cartografia automaticamente.
COORDINATE DEI PUNTI RILEVATI
------------------------------
Punti fiduciali nord est
PF09/0160/E313 5039427.661 1487715.347
.... E ALTRI 10 PF....
Punti osservati
1001 5039820.501 1487055.043
....seguono altri 250 punti osservati................
Basta inserire in cad queste coordinate?
comunque disegni allegati non ce ne sono e io non sono in grado di
dire quali siano i 2 (..... solo 2....) punti che mi servono per
individuare la linea di frazionamento che taglia il mio terreno....
se devo inserirle tutte a mano divento vecchio.....
grazie
Silvano
Io faccio così:
Scansione della pagina e trasferimento su OCR.
Successivamente la trasformo tramite excel in un file .csv e txt con dati
separati da virgola.
Con il seguente lisp li carico in autocad. (Aprire autocad senza modello)
**********************************************************
;;; Restituisci un rilievo da un elenco di punti di un file TXT
************************************************************
; variabili generali di default
(setq ril:dx 0.15 ;offset X posizione testo
ril:dy 0.05 ;offset Y posizione testo
ril:ht 0.40 ;altezza testo
ril:sep "," ;separatore valori nel file
ril:rot 0.0 ;rotazione del testo
ril:lap "punti" ;layer su cui disegnare i punti
ril:lat "nomi" ;layer su cui scrivere i testi
)
(defun c:rest_ril ()
(if (null (tblsearch "layer" ril:lap)) (command ".-layer" "_n"
ril:lap ""))
(if (null (tblsearch "layer" ril:lat)) (command ".-layer" "_n"
ril:lat ""))
(setq ril:htt (cdr (assoc 40 (tblsearch "style" (getvar "TEXTSTYLE")))))
(setq ril:htt (if (= 0.0 ril:htt) T nil))
(if (null ril:htt) (command "_.style" "" "" ril:ht "" "" "" "" ""))
(setq ril:file (getfiled "Scegli file coordinate" "" "txt" 4))
(setq ril:desc (open ril:file "r"))
(setq ril:riga t)
(setq ril:con 0)
(while ril:riga
(setq ril:riga (read-line ril:desc))
(if ril:riga
(progn
(setq ril:pos 0
ril:lung (strlen ril:riga)
ril:pt (ril:val)
ril:N (atof (ril:val))
ril:E (atof (ril:val))
ril:con (1+ ril:con)
)
(setvar "CLAYER" ril:lap)
(command "_.point" "_non" (list ril:E ril:N))
(setvar "CLAYER" ril:lat)
(command "_.text" "_non" (list (+ ril:E ril:dx) (+ ril:N ril:dy)))
(if ril:htt (command ril:ht))
(command ril:rot ril:pt)
)
)
)
(alert (strcat "\nSono stati importati correttamente " (itoa ril:con)
" punti."))
(princ)
)
(defun ril:val ()
(setq ril:chr "")
(while (/= ril:chr ril:sep)
(setq ril:pos (1+ ril:pos)
ril:chr (substr ril:riga ril:pos 1)
)
(if (> ril:pos ril:lung)
(setq ril:chr ril:sep)
)
)
(setq ril:ret (substr ril:riga 1 (1- ril:pos ))
ril:riga (substr ril:riga (1+ ril:pos) ril:lung)
ril:pos 0
)
(eval ril:ret)
)
;(princ "\nUtility per ricostruire un rilievo da un elenco di coordinate
;caricata.\nby Maci 24.01.09\nDigita 'rest_ril' per avviare il comando")
(princ)
--
Ciao