Newsgroup: it.discussioni.geometri
Titolo: Linbretti Pregeo---->AutoCad

Per inserire i libretti pregeo stampati dal Catasto (quelli con punti
coordin. N e E), si dovrebbe importarli sotto forma di tabulato o
altro, per poter avere poi il disegno in AutoCaD?
Voi come fate?

 ha scritto:

Perchè vuoi importarli dalle coordinate elaborate?
Io personalmente preferisco sempre reimportare un rilievo dal libretto 
delle misure, la cosa diventa indispensabile se ti serve per una 
riconfinazione.
Comunque puoi utilizzare il programma VIGEO per convertire un libretto 
in CAD (passando dal pregeo).
Ciao geoNick
 
-- 
Per scrivermi clic qui:
http://www.mynewsgate.net/mp.php?u=4348
 
 

 > Voi come fate?
 
Tornando alla tua domanda, potrebbero esserci dei Lisp, mi pare ne fosse 
stato parlato proprio qui sul newsgroup.
Altrimenti puoi cercarti Leica Win Driver dove, coordinata per 
coordinata, inserisci tutti i punti, poi esporti in dxf.


alive01 ha pensato forte :

vedi un po' qui, se fa per te:
 
http://www.jefferypsanders.com/autolisp_IMPORTXYZ.html
 
 
-- 
-.-. .. .- ---
 
"non c'e' piu' il futuro di una volta" (cit)
 
 

 ha scritto nel messaggio
news:3b01f390-f7ea-49f5...@j10g2000vbe.googlegroups.com
 

scannerizzi le coordinate e le trasformi in file txt separato da virgola o 
punto e virgola basta che modifichi la variabile sep
Attenzione Autocad va aperto senza un DWT
 
Grazie a Maci
**********************************************************
;;; 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 
 
 

 ha scritto nel 
messaggionews:3b01f390-f7ea-49f5...@j10g2000vbe.googlegroups.com
 

Sarebbe il lisp questo?  Come lo metto dentro AutoCAD?

 ha scritto nel messaggio
news:f88fd8d8-c9ae-4e35...@n6g2000vbg.googlegroups.com
 

Lo copi-incolli in acad.lsp o come si chiama il tuo.
 
-- 
Ciao 
 
 

 Lo copi-incolli in acad.lsp o come si chiama il tuo.
 
Grazie. Da geni, fare un lisp apposito!

 Grazie. Da geni, fare un lisp apposito!
 
Ti funziona?
 
-- 
Ciao 
 
 

 Ciao
 
Fine settimana ci provo.

 ha scritto:

Io al posto di un lisp mi creo uno script (più facile da decifrare)
Una volta ottenuto il file con l'elenco delle coordinate, lo importo in
excell in cui mi aiuta ad inserire la sequenza dei comandi da far eseguire
all'interno di autoCAD.
 
Il risultato che ottengo sono una serie di righe come queste:
 
 
_Insert	point	1465254.3517,4515549.3706,211.7516	.5 .5 0	P1
_Insert	point	1465258.4957,4515544.8069,213.0218	.5 .5 0	P2
_Insert	point	1465255.1064,4515541.7713,212.853	.5 .5 0	P3
 
In cui utilizzo il comando  _insert  per l inserimento di un blocco
precedentemente realizzato chiamato appunto  point  alle coordinate x,y,z
con fattore di scala per x e y rispettivamente .5 e .5 e angolo di
rotazione 0. Infine poiché il blocco contiene un attributo editabile, a
questo viene assegnato l identificativo del punto "Px".
 
L unico limite di questa procedura è che non è possibile inserire blocchi
con più di un attributo (o almeno non sono riuscito a trovare un rimedio).