Newsgroup: it.comp.software.cad
Titolo: importare punti

buon giorno e buona domenica
chiedo lumi agli esperti
lavoro con autocad 14
ho le corrdinate  x y  di molti punti  (in un file  formato txt) che vorrei
importare in un nuovo file dwg  (che successivamente verrà esportato in
dxf),
esiste un programma o un file che mi permette di importare questi punti e
renderli visibili sul disegno su cui andrò a tracciare delle linee.
rigrazie
ciao a tutti
icio

 wrote in message
news:8wCxe.26981$
h5.12...@news3.tin.it

Esistono sicuramente programmi e utility in lisp che consentono di 
ottenere questo risultato.
Per quello che conosco, ad esempio, il programma TOPOWIN consente di
importare le coordinate memorizzate in un file txt in qualsiasi ordine
e formato siano e crea il file dxf; assegna inoltre un numero a ciascun
punto e, se i dati sono disposti nell'ordine in cui devono poi essere
tracciate le linee, permette di unire i punti semplicemente indicando il
numero iniziale ed il numero finale dei punti che definiscono ciascuna
polilinea.
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:8wCxe.26981$h5.12...@news3.tin.it...


come si fa ad impostare la precisione della scritta quote invece che a 2 
cifre a tre??
Hito
(defun c:txt-punti ()
  (if (not scala-txt)(setq scala-txt(getreal "\n Altezza delle scritte: ")))
  (setq tipo(getint "\n Punti 2D o 3D <2/3>: "))
  (setvar "cmdecho" 0)
  (setq nomefile(getfiled "Selezionare il nome del File di punti" "" "txt" 
4))
  (setq Separatore ";")
  (setq nome-f(open nomefile "r"))
  (setq conta 1)
  (setq riga(read-line nome-f))
  (while riga
 (setq lriga(strlen riga))
 (setq i 0)
     (setq Valore "")
 (setq n "" x "" y "" z "")
 (repeat lriga
    (lett-car)
     (if (/= lett-chr Separatore)
    (setq Valore(strcat Valore lett-chr))
      (cond
      ((= n "")(setq n Valore Valore ""))
      ((= x "")(setq x Valore Valore ""))
      ((= y "")(setq y Valore Valore ""))
      ((= z "")(setq z Valore Valore ""))
    )
  )
      (princ "\r Attendere... inserimento punto n. ")(princ n)
 )
 (cond
 ((= n "")(setq n Valore Valore ""))
 ((= x "")(setq x Valore Valore ""))
 ((= y "")(setq y Valore Valore ""))
 ((= z "")(setq z Valore Valore ""))
 )
 (setq punto(list (atof x) (atof y) (atof z)))
 (setq puntoxy(list (atof x) (atof y) 0.0))
 (command "_layer" "_m" "PUNTI" \R)
 (if (= tipo 3)(command "_point" punto \r)(command "_point" puntoxy \r))
 (setq xy(polar puntoxy 0 (/ scala-txt 2)))
 (setq xygiu(polar xy (* pi 1.5) (* scala-txt 1.3)))
 (setq xysu(polar xy  (* pi 0.5) (* scala-txt 0.3)))
 (command "_layer" "_m" "CODICI" \R)
 (command "_text" "_c" xysu
      (rtos scala-txt 2 2)
      "0"
      n
      \r)
 (command "_layer" "_m" "QUOTE" \R)
 (command "_text" "_c" xygiu
      (rtos scala-txt 2 2)
      "0"
      (rtos (atof z) 2 2)
      \r)
 (setq conta(+ conta 1))
 (setq riga(read-line nome-f))
 (if (= riga "")(setq riga(read-line nome-f)))
    )
  (close nome-f)
  (princ)
  )
(defun lett-car ()
  (setq i(+ i 1))
  (setq lett-chr(substr riga i 1))
  )
(setq tipo nil)
(setq scala-txt nil)
(princ "\n  Software per l'inserimento nel disegno di punti")
(princ "\n  2D o 3D. Le coordinate vengono lette da un file .txt")
(princ "\n  avente un punto su ogni riga.")
(princ "\n  Formato della riga: CODICE;X;Y;Z separati da un punto e 
virgola.")
(princ "\n <copyright: ing. Claudio Granuzzo> ")
(princ "\n  Digitare TXT-PUNTI per lanciare il programma!")
(princ) 

 ha scritto nel messaggio
news:42ce4069$0$319$5fc...@news.tiscali.it...


Grazie 1000
e per cambiare la posizione del testo della quota??
Hito
"SePrAm.com" <in...@sepramNOSPAM.com> ha scritto nel messaggio 
news:Mzrze.132005$75.56...@news4.tin.it...


 ha scritto nel messaggio
news:42ce4bcc$0$337$5fc...@news.tiscali.it...


 
Usi un programma che importi tutti i dati, li memorizza in un database
e ti consente di gestire il tutto a tuo piacere:
- posizione e dimensione dei testi
- decimali di precisione delle quote
- scala o rotazione
- quota delle scritte per disegni tridimensionali
- selezione per codice
- suddivisione in layer differenti per codice o per gruppi di numeri
- qualsiasi altra cosa che ti venga in mente


ci provo...
un'altra cosa, posso dire di inserire le scritte codice punto e quota
alla stessa zeta del punto, come???
Hito
"SePrAm.com" <in...@sepramNOSPAM.com> ha scritto nel messaggio 
news:QWuze.133430$75.57...@news4.tin.it...


 ha scritto nel messaggio
news:42ce84dc$0$331$5fc...@news.tiscali.it...


Mitico!!!!
Funziona......
"SePrAm.com" <in...@sepramNOSPAM.com> ha scritto nel messaggio 
news:QIvze.133724$75.57...@news4.tin.it...


 ha scritto nel messaggio 
news:42ce8a1a$0$325$5fc...@news.tiscali.it...


 
Non ti è mai venuto il dubbio che l'uso di un software dedicato ti
permetta di risolvere tanti problemi e ti consenta di risparmiare tanto
tempo senza utilizzare tante utility da adattare alle necessità del 
momento?


 ha scritto nel messaggio 
news:318da1295c6617bc5f6...@mygate.mailgate.org...


 
Se la soluzione che hai trovato è questa, non hai auto l'occasione di
di provare un buon software. Mi dispiace.
Non aresti avuto questi problemi ed altri con cui ti trovi sicuramente
a convivere.
Mi rendo conto che non è comunque facile provare diversi software,
imparare ad usarli e dopo scegliere quale utilizzare.
Alessandro.
