Lisp, select text and create a circle with z value extracted from the text and x, y indicated by the user.

[civilwar111]

(defun C:elev_to_circle_4 ()
  (setq h 0.7)
  (while
    (setq ent1 (car (entsel "\nSelev Niv 1")))
    (setq p1 (getpoint "Donde:"))
    (setq ent1 (entget ent1))
    (setq ent1 (cdr (assoc 1 ent1)))
    (setq ent1 (distof ent1 2))
    (setq x (car p1))
    (setq y (cadr p1))
    (command "_circle" (list x y ent1) h)
    (command "_text" "j" "m" p1 h 0 (rtos ent1 2 3) "")
  )
  )

 

My code works, but the z-elevation sets it to zero if I select the center or end of an element from autcad.

Any ideas?

[Tharwat]

Disabling the OSNAP must fix it I believe.

 

(command "_circle" "_none" (list x y ent1) h)