text to point height

[Lippens Infra 0]

hello,

 

I have a file where there are a lot of points measured in height. The height is displayed as text. Is it possible to generate a point on the insertion point of the text (x and y) and the Z value is the value of the text?

 

Thanks

Landmetersplan.dxf

[Tharwat 161]

Hi,

Something like this?

(defun c:Test (/ int sel ent get ins)
  ;; Tharwat - 18.Nov.2020	;;
  (and (princ "\nSelect Texts : ")
       (setq int -1
             sel (ssget "_:L" '((0 . "TEXT")))
       )
       (while (setq int (1+ int)
                    ent (ssname sel int)
              )
         (and (setq get (entget ent)
                    ins (cdr (assoc (if (and (zerop (cdr (assoc 72 get)))
                                             (zerop (cdr (assoc 73 get)))
                                        )
                                      10
                                      11
                                    )
                                    get
                             )
                        )
              )
              (entmake (list '(0 . "POINT")
                             (cons 10 (mapcar '+ '(0. 0.) ins))
                             (assoc 8 get)
                       )
              )
              (entmod
                (subst (cons 1 (rtos (caddr ins) 2 4)) (assoc 1 get) get)
              )
         )
       )
  )
  (princ)
)