(defun c:Bdata3 (/ obj xls) (vl-load-com)
  (if (setq n 0 obj (ssget (list (cons 0 "insert"))))
    (if (setq xls (getfiled "" "" "xls" 9))
      (progn
        (setq ad (vla-get-activedocument (vlax-get-acad-object))
             xls (open xls "w"))
        (vla-startundomark ad)
        (repeat (sslength obj)
          (setq dat (vlax-ename->vla-object (ssname obj n))
                pnt (trans (vlax-safearray->list (vlax-variant-value
                    (vla-get-insertionpoint dat))) 0 1) n (1+ n))
          (entmake (list (cons 0 "text") (cons 1 (rtos n 2 0)) 
            (cons 10 pnt) (cons 11 pnt) (cons 40 (getvar "textsize"))
            (cons 72 1) (cons 73 1)))
          (write-line (strcat (rtos n 2 0)
            "\t" (rtos (car pnt)   2 3)
            "\t" (rtos (cadr pnt)  2 3)
            "\t" (rtos (caddr pnt) 2 3)) xls)
        )
        (vla-endundomark ad)
        (close xls)
      )
    )
  ) (princ)
)