How to Caculator Distance between Text A and Text B?

[Mountain_XD]

[hosneyalaa]

try @Mountain_XD

(defun c:TextDist ( / ent1 ent2 pt1 pt2 dist)
  (setq ent1 (car (entsel "\nSelect first text: ")))
  (setq ent2 (car (entsel "\nSelect second text: ")))
  (if (and ent1 ent2)
    (progn
      (setq pt1 (cdr (assoc 10 (entget ent1))))
      (setq pt2 (cdr (assoc 10 (entget ent2))))
      (setq dist (distance pt1 pt2))
      (princ (strcat "\nDistance between texts: " (rtos dist 2 4)))
    )
    (princ "\nSelection failed.")
  )
  (princ)
)

 

[Mountain_XD]

Thank you so much hosneyalaa !