;|
     qz.lsp - 30 Maggio 2006
     (C) 2006 by Claudio Piccini
     http://www.cg-cad.com/

     Scrive la coordinata Z di tutti i punti 
     presenti su un layer
|;

(defun myerror (s)                  
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
 (ripVar)
 (princ)
)

(defun salVar ()
 (setq orto (getvar "orthomode"))
 (setq snapp (getvar "osmode"))
 (setq snm (getvar "snapmode"))
 (setq piano (getvar "clayer"))  
)

(defun ripVar ()
 (command "_redraw")
 (setvar "cmdecho" 1)
 (setvar "osmode" snapp)
 (setvar "snapmode" snm)
 (setvar "orthomode" orto)
 (setvar "clayer" piano)
 (setvar "cecolor" "BYLAYER")
 (setq *error* olderr)
 (princ)
)

(defun C:QZ (/ olderr s1 nEnt 
               hT ; altezza testo
               k ent l1 pl1
               snapp snm orto piano
 )
 (setq olderr *error* *error* myerror)
 (setvar "cmdecho" 0)
 (salVar)
 (setq hT (getvar "textsize"))
 (command "osnap" "_node")
 (setq s1 (entsel "\n Seleziona un punto di riferimento:"))
 (setq ent (entget (car s1)))
 (setq nomeLayer (cdr (assoc 8 ent)))
 (setq s1 (ssget "X" (list (cons 8 nomeLayer))))
 (setq nEnt (sslength s1))
 (setq k 0)
 (repeat nEnt
  (setq ent (entget (ssname s1 k)))
  (if (= "POINT" (cdr (assoc 0 ent)))
   (progn
    (setq l1 (assoc 10 ent))
    (setq pl1 (cdr l1))
    (command "_text" pl1 hT 0.0 (rtos (caddr pl1) 2 3))
   )
  )
  (setq k (+ k 1))
 )
 (ripVar)
)
;;;eof