(defun c:xl (/ tx ss tn sn dt) (vl-load-com)
  (defun *error* (msg)
    (if (not (wcmatch (strcase msg t) "*cancel*,*exit*"))
      (princ (strcat "\nError: " msg)))
    (if tx (redraw (ssname tx 0) 4))
    (setq *error* nil) (princ)
  )
  (prompt "\nSelect text or mtext:")
  (if (setq tx (ssget ":s" '((0 . "*text"))))
    (progn (redraw (ssname tx 0) 3)
      (prompt "\nSelect arc, line or polyline:")
      (if (setq ss (ssget ":s" '((0 . "arc,line,*polyline"))))
        (progn
          (if (not (tblobjname "layer" "Metraj"))
            (vla-put-Color (vla-add (vla-get-layers (vla-get-activedocument
              (vlax-get-acad-object))) "Metraj") 1))
          (vla-put-Layer (setq tn (vlax-ename->vla-object (ssname tx 0))) "Metraj")
          (vla-put-Layer (setq sn (vlax-ename->vla-object (ssname ss 0))) "Metraj")
          (write-line (strcat (vla-get-TextString tn) "\t" (vl-string-translate "." ","
            (if (or (= (vla-get-ObjectName sn) "AcDbLine")
                  (= (vla-get-ObjectName sn) "AcDbPolyline"))
              (rtos (vla-get-Length sn) 2 2) (rtos (vla-get-ArcLength sn) 2 2))))
            (setq dt (open (strcat (getvar 'dwgprefix) (vl-filename-base
              (getvar 'dwgname)) ".xls") "a"))
          ) (close dt)
        )
      ) (redraw (ssname tx 0) 4)
    )
  ) (setq *error* nil) (princ)
)

(vl-load-com)
(defun c:FLD2TXT (/ ss n bn an ad s)
  (prompt
    "Select the objects you wish to remove the field links from: "
  ) ;_ end of prompt
  (setq ss (ssget '((0 . "INSERT,MTEXT,DIMENSION,TEXT,MULTILEADER")))) ;Get selection set from user
  (setq n 0) ;Initialize counter
  ;; Step through selection set one entity at a time
  (while (< n (sslength ss))
    (setq bn (ssname ss n)) ;Get the nth entity in the selection set
    (setq ad (entget bn)) ;Get the entity's data
    (cond
      ((= "INSERT" (cdr (assoc 0 ad))) ;Check if block
       (setq an (entnext bn)) ;Get the next enity after bn
       ;; Step through each next entity until it is not an attribute
       (while (and an ;Check if entity is found
                   (setq ad (entget an)) ;Get data
                   (= "ATTRIB" (cdr (assoc 0 ad))) ;Check if attribute
              ) ;_ end of and
         (setq s (cdr (assoc 1 ad))) ;Get text value
         (entmod (list (assoc -1 ad) (cons 1 ""))) ;Modify the entity
         (entmod (list (assoc -1 ad) (cons 1 s))) ;Modify the entity
         (entupd an) ;Update screen to show change
         (setq an (entnext an)) ;Get next entity
       ) ;_ end of while
      )
      ((= "MULTILEADER" (cdr (assoc 0 ad))) ;Check if block
       (setq ad (vlax-ename->vla-object bn)
             s (vla-get-TextString ad)
             )
       (vla-put-TextString ad "")
       (vla-put-TextString ad s)
      )
      ;; Anything else
      (t
       (setq s (cdr (assoc 1 ad))) ;Get text value
       (entmod (list (assoc -1 ad) (cons 1 ""))) ;Modify the entity
       (entmod (list (assoc -1 ad) (cons 1 s))) ;Modify the entity
       (entupd an) ;Update screen to show change
      )
    )
    (setq n (1+ n)) ;Increment counter
  ) ;_ end of while
  (setq ss nil) ;Clear selection set
  (gc) ;Clear unused memory
  (princ)
) ;_ end of defun

(defun c:td (/ sn n ss ls dc) (vl-load-com)
  (if (setq sn t n -1 ss (ssget '((0 . "text") (1 . "+*,-*,#*"))))
    (progn
      (while (/= sn nil) (setq ls (cons (setq sn (getreal "\nNumber:")) ls)))
      (if (/= (setq ls (vl-remove nil ls)) nil)
        (progn
          (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
          (repeat (setq i (sslength ss))
            (vla-put-TextString (vlax-ename->vla-object (ssname ss (setq i (1- i))))
              (nth (setq n (1+ n)) ls))
            (if (= n (1- (length ls))) (setq n -1)))
          (vla-endundomark dc)
        )
      )
    )
  ) (princ)
)

rose11rose