LISP for x-distance (picking 2 points) value & y-distance (picking 2 points) value to be placed as text format

[nihar.ranjan]

Hi,
i want a LISP for x-distance (picking 2 points) value & y-distance (picking 2 points) value to be placed as text format.
Output e.g: X=5000MM, Y=5000MM.

Please help.

Thanks,

[Tharwat]

Check this out .
if you need any modification just ask .

(defun c:test (/ p)
  ;; Tharwat 21. 07. 2011
  (while
    (setq p (getpoint "\n Specify point :"))
     (entmakex
       (list '(0 . "TEXT")
             '(100 . "AcDbEntity")
             '(100 . "AcDbText")
             (cons 10
                   (trans (list (+ (car p) (/ (getvar 'textsize) 2.))
                                (+ (cadr p) (/ (getvar 'textsize) 2.))
                          )
                          1
                          0
                   )
             )
             (cons 40 (getvar 'textsize))
             (cons 7 (getvar 'textstyle))
             (cons 1
                   (strcat "X ="
                           (rtos (car p) 2)
                           "MM"
                           "    "
                           "Y="
                           (rtos (cadr p) 2)
                           "MM"
                   )
             )
             '(210 0.0 0.0 1.0)
             '(50 . 0.)
       )
     )
  )
  (princ)
)

Tharwat

[nihar.ranjan]

it works!!!
thx