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

 
          Ciao,
mi servirebbe trovare il comando per esportare dei punti da autocad in un
file di testo o in file csv.
Qualcuno può darmi una mano?
Grazie
Tiziano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 --------------------------------
Io utilizzo un programma di topografia che può importare punti, linee,
polilinee e 3DFACE, oltre a blocchi, e che, avendo questi punti a 
disposizione può creare un file ASCII di qualsiasi formato.
Se si tratta di un lavoro occasionale posso darti una mano senza
problemi.
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Scarica la funzione autolisp acad-entity-export.lsp
da
http://xoomer.virgilio.it/lwcon/gimp/scripts/acad-entity-import/acad-entity-
import.scm
salva i dati su file di testo che puoi importare anche in excel.

 Qualcuno puň darmi una mano?



 
Ciao grazie per i suggerimenti anche io alla fine ho trovato un programma a
questo indirizzo:
http://www.guthcad.com.au/freestuff.htm
mi chiedevo se c'erano dei sistemi per portare fuori oltre ai valori delle
coordinate anche i nomi dei layer ovvero:
nome layer pippo questo contiene 10 punti tirare fuori 10 record con in una
colonna il nome del layer e nelle colonne x,y,x i valori dei punti...
Grazie
Tiz


Modificando il lisp così:
;-------------------------------------------
(defun c:Puntitxt ()
(setvar "cmdecho" 0)
(if (setq nomefile(getfiled "Selezionare il nome File .txt" "" "txt"
1))(progn
(setq nome-f(open nomefile "w"))
(setq g1 (ssget "X" (list (cons 0 "POINT"))))
(setq i 0)
(repeat (sslength g1)
(setq eee(entget (ssname g1 i)))
(princ "\r Esportazione del punto ")(princ (1+ i))(princ " di ")(princ
(sslength g1))
(write-line
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; la seguente è la riga inserita:
   (strcat (cdr(assoc 8 eee)) ";"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; fine modifica
(rtos (cadr (assoc 10 eee)) 2 2)
";"
(rtos (caddr (assoc 10 eee)) 2 2)
";"
(rtos (cadddr (assoc 10 eee)) 2 2)) nome-f)
(setq i(1+ i))
)
(close nome-f)
))
 (princ)
)
;---------------------------------------------------------------------------
------------------
(princ "\n <copyright: ing. Claudio Granuzzo> Digitare PUNTITXT per lanciare
il programma")
(princ)
;;;----------------------------------------------------



          ciao grazie funziona benissimo
tiz


Qualcuno può darmi una mano?
;----------------------------------------------------------------------
;(Crea un file testo (formato CSV) con la lista dei punti nel disegno)
; Il formato CSV è facilmente importabile da Microsoft Excel
;            Copyright (C) 2002 CADLandia, Tutti i diritti riservati
;                      Website: 
www.cadlandia.com
;----------------------------------------------------------------------
; DISCLAIMER: CADLandia non si assume nessuna responsabilità sui danni
; possibili dall'utilizzo proprio od improprio di questa routine.
; CADLandia non da nessuna garanzia, ne implicita ne esplicita, dello
; utilizzo di questa routine in scopi particolari. Tutto il materiale
; è da considerare "così com'è", e l'uso di questo software è da
; considerare a PROPRIO PERSONALE RISCHIO.
;----------------------------------------------------------------------
(defun C:PUNTI-CSV
          (/ fname fn sel1 n index
          )
  (setq fname (getstring "\nInserisci il nome del file: "))
  ;ottiene il nome del file
  (setq fn (open fname "w"))
  ;lo apre in scrittura
  (princ "Numero Punto;X;Y;Z" fn)
  (princ "\n" fn)
  ;mette l'header del testo
  (setq f 1)
  ;imposta il flag ad 1
  (setq sel1 (ssget "x" '((0 . "POINT"))))
  (setq n (sslength sel1))
  (setq index 0)
  (repeat n
    (setq b1 (entget (ssname sel1 index)))
    (setq index (+ index 1))
    (setq coords (cdr (assoc 10 b1)))
    (setq coordx (nth 0 coords))
    (setq coordy (nth 1 coords))
    (setq coordz (nth 2 coords))
    (princ index fn)
    (princ ";" fn)
    (princ coordx fn)
    (princ ";" fn)
    (princ coordy fn)
    (princ ";" fn)
    (princ coordz fn)
    (princ "\n" fn)
  );fine repeat
  (close fn)
  ;chiude il file
  (alert (strcat "Esportati i punti nel file: \n"
         (strcase fname))
  );fine alert
  (princ)
  ;informa l'utente
);fine defun
 
(princ "\nPUNTI-CSV.LSP caricato. Digita PUNTI-CSV per avviare il
comando.")
(princ)
Saluti, Aniello
-- 
Aniello Annunziata
Content Director Manager
www.cadlandia.com
aniello.a...@cadlandia.com
Per rispondermi in privato, togli NOGARBAGE dall'indirizzo