[编程交流] 在图形fr中插入点

(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))