[求助]：如何完善这个程序

mann_ygw

以下是以前比较旧的统计图块的LISP程序，请问如何把生成的文件放在指定的目录里了，求教各位高手？

;Blcount.LSP: Counts the blocks in a drawing then stores the count in a
;             file of the same name as the drawing and the .BLC extension.
;___________________________________________________________________________

(defun lststr (str / pos numlst chr len wrd wrdlst)
(setq pos 1)
(setq numlst '())
(setq wrdlst '())
(setq chr (substr str pos 1))
(while (/= chr "")
    (if (= chr ",")
       (setq numlst (append numlst (list pos)))
    )
  (setq pos (1+ pos))
  (setq chr (substr str pos 1))
);while
(setq numlst (append numlst (list (1+ (strlen str)))))
(setq pos 1)
(setq len (1- (car numlst)))
(setq wrd (substr str pos len))
(while (/= wrd "")
  (setq wrdlst (append wrdlst (list wrd)))
  (setq pos (1+ (car numlst)))
  (if (> (length numlst) 1)
    (setq len (1- (- (cadr numlst) (car numlst) )) )
  )
  (setq numlst (cdr numlst))
  (setq wrd (substr str pos len))
)
wrdlst
)


(Defun addsp (strn / scount)
(setq scount (strlen strn))
(repeat (- 10 scount)
  (setq strn (strcat strn " "))
)
strn
)

(defun c:blcount (/ record blnme name v1 filnme outfl blklst bllst blist)
(SETVAR "CMDECHO" 0)
(setq filnme (strcat (getvar "dwgname") ".blc"))
(setq blist (STRCASE (getstring "\nEnter name(s) of blocks to count or RETURN for all: ")))
(if (= Blist "")
  (setq record (cdr (assoc 2 (tblnext "block" t))))
  (setq record (car (setq blist2 (lststr blist))))
)
(setq blklst '())
(princ "\nSearching for blocks... Please wait.  ")
(while record
   (setq blnme (cons 2 record))
   (setq v1 (ssget "x" (list blnme) ))
     (if v1
        (progn
        (setq bllst (strcat (addsp record) "\t" (itoa (sslength v1)) "\n"))
        (princ bllst)
        (setq blklst (append blklst (list bllst)))
        );progn
     );if
     (if (= Blist "")
        (setq record (cdr (assoc 2 (tblnext "block"))))
        (progn
          (setq blist2 (cdr blist2))
          (setq record (car blist2))
        )
     )
(princ "\nSearching for blocks... Please wait.  ")
);while
(princ "\nWriting block count to ")(princ filnme)
(setq outfl (open filnme "w"))
(foreach n blklst (princ n outfl))
(close outfl)
(princ)
)