Coordination Point For Block reference

I am working with Road layout drawings, which in model space. In that I have different type of Poles (say 2000nos.) as block reference.

The problem is, I want to take coordination point of each block (poles), that points should be text in model space near of each block(pole).

Could some one know the way to do above work?

Any help must be appreciated.

Thanks in Advance.

I have moved your thread to the Lisp forums since this is something that can be done fairly easily with a Lisp. I have a lisp that does just that, not automatically though, I select a point and place the text where I want it.

I would link the lisp but Lee gets so frustrated when he sees his old sins come to light again

Try it ....

(defun c:TesT (/ ss)
 ;; Tharwat 21. Nov. 2011 ;;
 (prompt "\n Select Blocks: ")
 (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
   ((lambda (i / sn p)
      (while
        (setq sn (ssname ss (setq i (1+ i))))
         (setq p (cdr (assoc 10 (entget sn))))
         (entmakex
           (list
             '(0 . "TEXT")
             (cons 10 (polar p 0. (getvar 'textsize)))
             (cons 40 (getvar 'textsize))
             (cons 1
                   (strcat (rtos (car p) 2)
                           "  "
                           (rtos (cadr p) 2)
                           "  "
                           (rtos (caddr p) 2)
                   )
             )
           )
         )
      )
    )
     -1
   )
   (princ)
 )
 (princ)
)

I would link the lisp but Lee gets so frustrated when he sees his old sins come to light again

:lol:

wow!!!!!!!!!!!

it is working perfectly. although i want to know how to change this lisp to get as mtext, and also i want to manage the text height.

Thanks once again,