如何将该程序输出路径改为固定d:/BB.xls

zfsaaa

网上下的程序，如何将该程序输出路径改为固定d:/BB.xls，先谢谢各位！

(defun C:NB()

  (graphscr)

  (setq cmd (getvar "cmdecho"))

  (setvar "cmdecho" 0)

  ;输出文件选择

  (setq dwg_name (getvar "dwgname""d:/"))           

        (setq dwg_name_len
(strlen dwg_name))      
   

        (setq lay_name_len (-
dwg_name_len 4))      
   

        (setq dwg_name (substr dwg_name 1 lay_name_len))

        (initget 1 "N S")

        (setq ch (strcase (getkword "\n新建文件/打开文件 [N/S]:")))

        (cond

          ((= ch "N") (setq file_name (getfiled "指定输出的文件名称"

dwg_name "xls" 1)))

          ((= ch "S") (setq file_name (getfiled "指定输出的文件名称"

dwg_name "xls" 0)))

    ) 

        (setq file_id (open file_name "a"))

 

 
  ;对象选择

  (setq ent_list (ssget))

  (setq ent_list_len (sslength ent_list))

  (setq id 0)

   (repeat ent_list_len

     (setq ent_data (entget (ssname ent_list id)))

     (setq id (1+ id))

     (setq ent_data_lay (assoc 1 ent_data))

     (setq ent_data_name (cdr ent_data_lay))

     (setq ent_data_lay2 (assoc 0 ent_data))

     (setq ent_data_mode (cdr ent_data_lay2))

      (if (or (= ent_data_mode "TEXT") (= ent_data_mode "MTEXT"))

         (progn

          (princ ent_data_name file_id)

   

     

   

       (princ "\n" file_id)

         )

      )

   )

 

  ;加入单文字名为序列

  (princ "\n已完成文字输出")

  (close file_id)

 

  ;序列输出为文本文件

  (setvar "cmdecho" cmd)

  )

Andyhon

3. (defun C:NB ()
4.   (graphscr)
5.   (setq cmd (getvar "cmdecho"))
6.   (setvar "cmdecho" 0)
7.   ;;输出文件选择
8.   (setq file_name "D:/BB.xls")
9.   (setq file_id (open file_name "a"))
10.   ;;对像选择
11.   (setq ent_list (ssget '((0 . "*TEXT"))))
12.   
13.   (setq ent_list_len (sslength ent_list))   ; 对像选择若空则失败
14.   (setq id 0)
15.   (repeat ent_list_len
16.     (setq ent_data (entget (ssname ent_list id)))
17.     (setq id (1+ id))
18.     (setq ent_data_lay (assoc 1 ent_data))
19.     (setq ent_data_name (cdr ent_data_lay))
20.     (setq ent_data_lay2 (assoc 0 ent_data))
21.     (princ ent_data_name file_id)
22.     (princ "\n" file_id)
23.   )
24.   ;;加入单文字名为序列
25.   (princ "\n已完成文字输出")
26.   (close file_id) ;_序列输出为文本文件
27.   (setvar "cmdecho" cmd)
28.   (princ)
29. )

(defun C:NB ()   (graphscr)   (setq cmd (getvar "cmdecho"))   (setvar "cmdecho" 0)   ;;输出文件选择   (setq file_name "D:/BB.xls")   (setq file_id (open file_name "a"))   ;;对像选择   (setq ent_list (ssget '((0 . "*TEXT"))))      (setq ent_list_len (sslength ent_list))   ; 对像选择若空则失败   (setq id 0)   (repeat ent_list_len     (setq ent_data (entget (ssname ent_list id)))     (setq id (1+ id))     (setq ent_data_lay (assoc 1 ent_data))     (setq ent_data_name (cdr ent_data_lay))     (setq ent_data_lay2 (assoc 0 ent_data))     (princ ent_data_name file_id)     (princ "\n" file_id)   )   ;;加入单文字名为序列   (princ "\n已完成文字输出")   (close file_id) ;_序列输出为文本文件   (setvar "cmdecho" cmd)   (princ) )