Linbretti Pregeo---->AutoCad

[alive01]

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?

[GeoNick]

alive01 <ali...@libero.it> 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

[GeoNick]

> alive01 <ali...@libero.it> ha scritto:
>
> > 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?

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.

[fabio.it]

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)

[Il grande fardello]

"alive01" <ali...@libero.it> 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

[alive01]

On 5 Dic, 10:03, "Il grande fardello"
<nontelod...@virgilio.it.invalid> wrote:
> "alive01" <aliv...@libero.it> ha scritto nel messaggionews:3b01f390-f7ea-49f5...@j10g2000vbe.googlegroups.com

Sarebbe il lisp questo? Come lo metto dentro AutoCAD?

[Il grande fardello]

"alive01" <ali...@libero.it> ha scritto nel messaggio

news:f88fd8d8-c9ae-4e35...@n6g2000vbg.googlegroups.com

Lo copi-incolli in acad.lsp o come si chiama il tuo.

--
Ciao

[alive01]

> > Sarebbe il lisp questo?  Come lo metto dentro AutoCAD?
>
> Lo copi-incolli in acad.lsp o come si chiama il tuo.

Grazie. Da geni, fare un lisp apposito!

[Il grande fardello]

"alive01" <ali...@libero.it> ha scritto nel messaggio

news:72bced9b-04a1-41ca...@i8g2000vbh.googlegroups.com

>>> Sarebbe il lisp questo? Come lo metto dentro AutoCAD?
>>
>> Lo copi-incolli in acad.lsp o come si chiama il tuo.
>
> Grazie. Da geni, fare un lisp apposito!

Ti funziona?

--
Ciao

[alive01]

On 6 Dic, 19:18, "Il grande fardello"
<nontelod...@virgilio.it.invalid> wrote:
> "alive01" <aliv...@libero.it> ha scritto nel messaggionews:72bced9b-04a1-41ca...@i8g2000vbh.googlegroups.com

>
> >>> Sarebbe il lisp questo? Come lo metto dentro AutoCAD?
>
> >> Lo copi-incolli in acad.lsp o come si chiama il tuo.
>
> > Grazie. Da geni, fare un lisp apposito!
>
> Ti funziona?
>
> --
> Ciao

Fine settimana ci provo.

[MaxAugusto]

alive01 <ali...@libero.it> 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).