[编程交流] 如何在

(defun c:txtatpt ( / f p x y )
   (if
       (and
           (setq f (getfiled "" "" "txt" 16))
           (setq f (open f "r"))
       )
       (progn
           (while (setq n (read-line f))
               (if
                   (and
                       (setq p (vl-string-search "\t" n))
                       (setq x (distof (substr n 1 p)))
                       (setq p (vl-string-search "\t" (setq n (substr n (+ p 2)))))
                       (setq y (distof (substr n 1 p)))
                   )
                   (entmake
                       (list
                          '(0 . "TEXT")
                           (list 10 x y 0.0)
                           (cons 1 (substr n (+ p 2)))
                           (cons 40 (getvar 'textsize))
                       )
                   )
               )
           )
           (close f)
       )
   )
   (princ)
)