AutoCad - COMO VER LA Z DE LOS PUNTOS EN DIBUJO MODELO

(defun c:zp( / ht ss p p1)

(setq ht 1. );; altura del texto

(princ"\nSeleccionar puntos : ")

(setq ss (ssget '((0 . "POINT"))))

(while (> (sslength ss)0)

(setq p (cdr(assoc 10 (entget (ssname ss 0)))))

(entmake (list 

(cons 0 "TEXT")

(cons 10 (setq p1 (polar p (/ pi 2) (* 1.5 ht)) ))

(cons 40 ht)

(cons 1 (vl-princ-to-string (cdr p)))

(cons 50 0.)

'(41 . 0.9)'(51 . 0.0)

(cons 7 "Standard") ;; estilo del texto

'(71 . 0) '(72 . 2)

(cons 11 p1)

))

(ssdel (ssname ss 0)ss)

)

(princ "\nTerminado")

(princ)

)