Newsgroup: it.comp.software.cad
Titolo: da autocad a .... per tracciare

chi può darmi una mano
il mio problema e qs
dovendo spesso tracciare dei frazionamenti ho il mio bel file di autocad con
tutti i punti da tracciare e per avere le coordinate dei punti devo farmi il
listato, importarlo in word e stramparlo.
qualcuno conosce un metodo piu veloce (qualche lisp)
grazie
Enrico

qualcuno conosce un metodo piu veloce (qualche lisp)
Questa routine fa parte di una compilation che ho creato e postato
qualche tempo fa su questo NG (Santo GoogleGroups, aiutaci tu)
1) Scrittura delle informazioni dei punti su un file in formato CSV
;;;
;;; PUNTI-CSV.LSP
;;;
;;; Questa routine legge le entità POINT nel disegno e le salva in
;;; formato testo, formato CSV, importabile in Excel per successive
;;; elaborazioni.
;;;
;;; Copyright 2002 - Aniello Annunziata - CADLandia
(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 C: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

 listato, importarlo in word e stramparlo.
Io uso normalmente questo programmino LSP che mi sono scritto.
E' un po' ingarbugliato però funziona.
Scrive le coordinate X e Y vicino al punto che clicchi.
Poi stampi il disegno e vai con quello in Campagna, senza passare da Word.
Ciao Massimo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;INIZIO;;;;;;;;;;;;;;;;;;;;,
 ; INSERIMENTO COORDINATE
(defun C:COOR ()
                (if (= SCALA NIL) (HCOOR))
                (SETQ PT1 NIL)
                (SETQ PT1 (GETPOINT "\n Punto : "))
                (IF (= PT1 NIL) (HCOOR))
                (if (= PT1 NIL) (SETQ PT1 (GETPOINT "\n Punto : ")))
                (SETQ HT (/ SCALA 500))
                (SETQ PT1N (POLAR PT1 0 (* SCALA 0.001)))
        (COMMAND
  "._TEXT" "_BL" PT1N HT 0  (RTOS (car PT1) 2 NDECI)
                "._TEXT" "_TL" PT1N HT 0 (RTOS (car (cdr PT1)) 2 NDECI)
  "._point" PT1
))
(DEFUN HCOOR ()    ; SERVE PER DEFINIRE L'ALTEZZA DEL TESTO
        (IF (= SCALA NIL) (SETQ SCALA 1000))
        (initget 6)
 (SETQ SCALA (GETREAL (strcat "Scala del disegno <" (rtos SCALA) ">:")))
;chiede la scala del disegno per regolare l'altezza dei testi
        (IF (= SCALA NIL) (SETQ SCALA SCALA))
        (IF (= NDECI NIL) (SETQ NDECI 2))
        (initget 4)
        (SETQ NDECI (GETINT (STRCAT "Numero di decimali <" (RTOS NDECI)
">:")))
        (IF (= NDECI NIL) (SETQ NDECI NDECI))
        (SETQ PT1 NIL)
 (SETQ HT (/ SCALA 500))
 (COMMAND     ;esegue i comandi
 "_STYLE" "coordinate" "arial.ttf" 0 0.9 0 "" "" ;Imposta lo stile
"coordinate"
        )
 (SETVAR "MODEMACRO" (STRCAT "I testi avranno altezza=" (rtos (/ scala
500))))
)
(princ "\nProgramma COORDINATE caricato By Ghio Massimo Digitare COOR")
;commento
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;FINE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
--
Massimo Ghio