Newsgroup: it.discussioni.geometri
Titolo: Come fate a tracciare dei fabbricati

Come da oggetto come fate a tracciare fabbricati e confini, che software
usate


...... alla domanda "come fate" di solito di risponde COME fare non cosa
usare.
Se bastasse avere il mezzo giusto per saperlo utilizzare comprerei una
racchetta da tennis, magari la migiore del mondo e poi andrei a vincere
Wimbledon e sarei miliardario.
Bah.
ciao.


Inserisco le coordinate cartesiane nel mio Geotronic 406 e vado a tracciare.
Precisione: 1 mm.
Ciao
--
Giacomo

 Precisione: 1 mm.
Che programma usi per caricare i dati sulla stazione totale noi in studio
abbiamo un Trimble5600DR+ che č un Geotronic
Grazie Ciao


Un programma in Lisp, fatto in casa, che seleziona i punti dal cad (2d e 3d)
e crea un file .are, .rec o come vuoi tu, da caricare sullo strumento con il
software Geotool della Specra precision che mi č stato dato dal rivenditore.
Ciao.
Se ti interessa fammi sapere.
 --
Giacomo

 Se ti interessa fammi sapere.
Mi interessa moltisimo è proprio quello che cerco se mi allunghi il lisp mi
fai un gran  favore io come software in dotazione ho LeoWin

 wrote in message
news:9sNRc.118604$
5D1.5...@news4.tin.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:9sNRc.118604$5D1.5...@news4.tin.it...

Ma anche Leowin esporta le coordinate cartesiane sullo strumento senza
passare per Autocad.
Non avete mai provato?
Comunque eccovi i Lisp.
Se non funzionano adattateli alle vostre configurazioni Autocad.
 --
Giacomo
;***************************************************************************
*
;          TRASFERISCE PUNTI 2d dal CAD A FILE
;***************************************************************************
*
(defun c:cadgeo2d (/ pt1 pt2 Y X Z YY XX ZZ nomep nomep1 nomestr nometot
cartella file fh b c e datid d datib datic datie are logo tipo data gior
datitipo datilogo datidata file)
(setvar "blipmode" 1) (setvar "AUNITS" 2) (setvar "ANGDIR" 1) (setvar
"ANGBASE" ( * pi 0.5)) (setvar "AUPREC" 4)
 (setvar "LUNITS" 2) (setvar "LUPREC" 3) (setvar "PDMODE" 3) (setvar
"PDSIZE" -2.0000)
(if (= nomefile nil) (setq nomefile " "))
 (if (= nomedir nil) (setq nomedir " "))
(princ "\nInserire cartella di destinazione ") (princ "<") (princ nomedir)
(princ ">:")
 (setq cartella (getstring))
(if (= cartella "") (setq cartella nomedir))
  (setq nomedir cartella)
  (princ "\nInserire nome del file da trasferire ") (princ "<") (princ
nomefile) (princ ">:")
 (setq file (getstring))
(if (= file "") (setq file nomefile))
(setq nomefile file)
  (setq nometot (strcat nomedir nomefile))
(setq fh (open nometot "a"))
(setq are (substr (getstring "\nLogon del file: ") 1 16))
(if (= are "") (setq are " "))
(setq gior (getstring "\nData gg-mm-aaaa: "))
(if (= gior "") (setq gior " "))
(setq tipo "15=")
(setq logo "0=")
(setq data "51=")
(setq datitipo (strcat tipo nomefile))
(setq datilogo (strcat logo are))
(setq datidata (strcat data gior))
(princ datitipo fh) (princ "\n" fh)
(princ datilogo fh) (princ "\n" fh)
(princ datidata fh) (princ "\n" fh)
(setq b "5=")
(setq c "37=")
(setq d "38=")
(setq nomep "0")
(repeat 500
(setq nomep1 nomep)
(setq nomep (itoa (+ 1 (atoi nomep))))
(princ "\nNome del punto:<") (princ nomep) (princ ">")
(setq nomestr (getstring ))
(if (= nomestr "") (setq nomestr nomep))
(setq nomep nomestr)
(setq pt2 (getpoint "\nSelezionare punto dettaglio: "))
(while (= pt2 nil)
  (close fh) ;
(setq nomep "1")(graphscr)
(^c)  )
(setq YY (car pt2))
(setq XX (cadr pt2))
(setq Y (rtos YY))
(setq X (rtos XX))
(setq datib (strcat b nomep))
(setq datic (strcat c X))
(setq datid (strcat d Y))
(princ datib fh)
(princ "\n" fh)
(princ datic fh)
(princ "\n" fh)
(princ datid fh)
(princ "\n" fh)
        (setq stringa (atoi nomestr))
          (if (= stringa 0) (setq nomep nomep1))
)
(princ)
)
;***************************************************************************
*
;          TRASFERISCE PUNTI 3d dal CAD A FILE
;***************************************************************************
*
(defun c:cadgeo3d (/ pt2 Y X Z YY XX ZZ nomep nomep1 nomestr nomedir nometot
cartella fh b c e datid d datib datic datie are logo tipo data gior datitipo
datilogo datidata file)
(setvar "blipmode" 1) (setvar "AUNITS" 2) (setvar "ANGDIR" 1)(setvar
"ANGBASE" ( * pi 0.5)) (setvar "AUPREC" 4)
 (setvar "LUNITS" 2) (setvar "LUPREC" 3) (setvar "PDMODE" 3) (setvar
"PDSIZE" -2.0000)
  (setvar "flatland" 0)
(if (= nomefile nil) (setq nomefile " "))
 (if (= nomedir nil) (setq nomedir " "))
(princ "\nInserire cartella di destinazione ") (princ "<") (princ nomedir)
(princ ">:")
 (setq cartella (getstring))
(if (= cartella "") (setq cartella nomedir))
  (setq nomedir cartella)
  (princ "\nInserire nome del file da trasferire ") (princ "<") (princ
nomefile) (princ ">:")
 (setq file (getstring))
(if (= file "") (setq file nomefile))
(setq nomefile file)
  (setq nometot (strcat nomedir nomefile))
(setq fh (open nometot "a"))
(setq are (substr (getstring "\nLogon del file: ") 1 16))
(if (= are "") (setq are " "))
(setq gior (getstring "\nData gg-mm-aaaa: "))
(if (= gior "") (setq gior " "))
(setq tipo "15=")
(setq logo "0=")
(setq data "51=")
(setq datitipo (strcat tipo nomefile))
(setq datilogo (strcat logo are))
(setq datidata (strcat data gior))
(princ datitipo fh) (princ "\n" fh)
(princ datilogo fh) (princ "\n" fh)
(princ datidata fh) (princ "\n" fh)
(setq b "5=")
(setq c "37=")
(setq d "38=")
(setq e "39=")
  (setq nomep "0")
(repeat 500
 (setq nomep1 nomep)
(setq nomep (itoa (+ 1 (atoi nomep))))
(princ "\nNome del punto:<") (princ nomep) (princ ">")
(setq nomestr (getstring ))
(if (= nomestr "") (setq nomestr nomep))
(setq nomep nomestr)
(setq pt2 (getpoint "\nSelezionare punto dettaglio: "))
(while (= pt2 nil)
  (close fh) ;
(setq nomep "1")(graphscr)
(^c)  )
(setq YY (car pt2))
(setq XX (cadr pt2))
(setq ZZ (CADDR pt2))
(setq Y (rtos YY))
(setq X (rtos XX))
(SETQ Z (rtos ZZ))
(setq datib (strcat b nomep))
(setq datic (strcat c X))
(setq datid (strcat d Y))
(SETQ DATIE (STRCAT e Z))
(princ datib fh)
(princ "\n" fh)
(princ datic fh)
(princ "\n" fh)
(princ datid fh)
(princ "\n" fh)
(PRINC DATIE FH)
(PRINC "\n" FH)
         (setq stringa (atoi nomestr))
          (if (= stringa 0) (setq nomep nomep1))
)
(princ)
)

grazie, sono interessato anche io al list!!
Come posso usarlo? Non potresti mandarmi il file?
"Il grande fardello >" <Giakomi.@tin.it.INVALID> ha scritto nel messaggio
news:E4ZRc.120586$5D1.6...@news4.tin.it...
