Inserting POINTS in drawing from all selecting (insert point) TEXT

Hi

Any command works in AutoCAD 2008 for inserting POINTS in drawing from all selecting (insert point) TEXT; I need these POINTS at object snap (Insertion) point only. Any LISP please for doing this job.Plz sees the sample drawing file.

amr

SAMPLE3.dwg

Try this:

(defun c:ptIns ( / GetTextInsertion Point i ss e )
 ;; Lee Mac  ~  28.04.10

 (defun GetTextInsertion ( elist )
   (if (and (eq "TEXT" (cdr (assoc 0 elist)))
            (not (equal '(0 0) (list (cdr (assoc 72 elist))
                                     (cdr (assoc 73 elist))))))
     (cdr (assoc 11 elist))
     (cdr (assoc 10 elist))))

 (defun Point ( p )
   (entmakex (list (cons 0 "POINT") (cons 10 p))))

 (if (setq i -1 ss (ssget '((0 . "TEXT,MTEXT"))))
   
   (while (setq e (ssname ss (setq i (1+ i))))

     (Point (GetTextInsertion (entget e)))))

 (princ))
     

Thanks Lee Mac

very usefull our project

Thanks

amr

You're welcome.