怎样用变量作为文件名的一部分动态调用？

windbells888

想在别人LISP基础上改一个这样的程序：CAD上拾取若干表示图号的文字，分行写入某TXT，在写入每行时将指定路径下以那个图号命名的DWG文件参照附着到当前文件。
下面这行就是插入外部参照的，有两个问题：
(command "-XREF" "A" "C:/Users/yyq/Documents/拾取到的文字变量.dwg" "0,0" "1" "1" "0")
1.不太看得懂原作者用来存放拾取到文件内容的变量是哪个；
2.假如变量是oldt  那么怎么将oldt变量合法的包含进去呢？

全部程序如下：
;       =======================================
;       |        图形内部文字写出             |
;       |      Ver: 1.0   作者: 迟俊岭        |
;       =======================================
(defun *error*(st)
  (princ (strcat "Error: " st))
  (princ)
)
(defun C:wf(/ test fil ss len n en1 a oldt nn)
  (setvar "CMDECHO" 0)
  (setq test T nn 0)
  (setq fil (getstring "\nFile name: "))
  (setq f (open fil "w"))
  (while test
    (setq ss (ssadd))
    (setq ss (ssget))
    (if (= nil ss)
      (setq test nil)
      (progn
(setq len (sslength ss))
(setq n 1 s 1)
(while (<= n len)
   (setq en1 (ssname ss (1- n)))
   (setq a (entget en1))
   (if  (= "TEXT" (cdr (assoc 0 a)))
     (progn
              (setq oldt (cdr (assoc 1 a)))
              (write-line oldt f)

(command "-XREF" "A" "C:/Users/yyq/Documents/拾取到的文字变量.dwg" "0,0" "1" "1" "0")

              (setq nn (1+ nn))

     )
   )
   (setq n (1+ n))
)
      )
    )
  )
  (close f)
  (princ (strcat (itoa nn) " writed !"))

windbells888

已解决，用strcat函数即可，谢谢大家！