[LISP函数]：如何实现这样功能？

jtybzl

将由lisp函数返回的表，转换为每行一个字符串形式，并将其写到记事本中，存为TXT文件，以待用lisp函数来按行读取它。
("BLCH-1115TBWE-RL-3" "BLCH-1115TBWE-RL-2"  "BLCH-1115TBWE-RL-1")

转换后在记事本中的格式为：
BLCH-1115TBWE-RL-3
BLCH-1115TBWE-RL-2
BLCH-1115TBWE-RL-1
请各位师傅帮忙！

XDSoft

最初由 jtybzl 发布
[B]将由lisp函数返回的表，转换为每行一个字符串形式，并将其写到记事本中，存为TXT文件，以待用lisp函数来按行读取它。
("BLCH-1115TBWE-RL-3" "BLCH-1115TBWE-RL-2"  "BLCH-1115TBWE-RL-1")

转换后在记事本中的格... [/B]

;|

函数 l2file
功能：将参数L的表中的内容分行保存到外部文件中fn指定的文件中

调用格式：(l2file l fn)
|;

2. 
   
3. [FONT=courier new]
   
4. (defun l2file (l fn /  n)
   
5.   (if (setq f (open fn "w"))
   
6.     (progn
   
7.       (foreach n l
   
8.         (write-line n f)
   
9.       )
   
10.       (close f)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. [/FONT]

<br /> [FONT=courier new]<br /> (defun l2file (l fn /  n)<br />   (if (setq f (open fn "w"))<br />     (progn<br />       (foreach n l<br />         (write-line n f)<br />       )<br />       (close f)<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

示例：

命令: (setq l '("faf" "fasf" "fsaf"))
("faf" "fasf" "fsaf")

命令: (l2file l "c:\\yourfile.txt")

打开yourfile.txt:

faf
fasf
fsaf

jtybzl

我的程序现在出现的问题是，脚本文件aaa.scr已经在此程序里面建立成功了，当再次在程序里调用此scr文件时却不能成功，提示如下
; 错误: 参数类型错误: streamp "f:\\aaa.scr"
请版主及各位前辈帮忙，找找什么原因，难道是在同一程序里建立的脚本不能调用吗？我调试过了，脚本文件肯定没问题，在执行完此程序后再新建一个文档，运行script没有任何问题，然而，如果在原文档中是怎么也不能调用该脚本文件，无论是程序调用还是手动调用都不成功，真不知为什么？
(defun c:hh()
  (vl-load-com)
  (setq ff0 "f:\\a.txt")
         (setq len (mc_getfile_line ff0))
         (setq liebiao "")
          (setq p 0)
         (while (> len 0)
          
           (setq wenjianming (mc_getfile_text ff0 p))
           (setq liebiao (strcat liebiao (strcat "open " wenjianming "\n"
                "(" "load " "ttt.lsp" ")" "\n" "bb" "\n" "close" wenjianming " n" "\n")))
           (setq ff "f:\\aaa.scr")
         (setq ffa (open ff "w"))
               (write-line liebiao ffa)
           (setq len (- len 1))
           (setq p (1+ p))
           )
                (close ff)
                (close ffa)
  (command "script" "f:\\aaa.scr")

  )
(defun mc_getfile_text (files0 line0 / fn0 text0)
  (setq line0(+ 1 line0))
  ;(setq files0 (findfile files0))
  (if files0
    (progn
      (setq fn0(open files0 "r"))
      (if (<= line0 (mc_getfile_line files0))
        (progn
          (repeat line0
            (setq text0(read-line fn0))
          )
          (close fn0)
          text0
        )
        nil
      )
    )
    nil
  )
)


    ;读取文件的行数

  (defun mc_getfile_line(files1 / tmplst1 x1 fn1)
  (setq files1(findfile files1))
  (if files1
    (progn
      (setq tmplst1 0)
      (setq fn1(open files1 "r"))
      (while (read-line fn1)
        (setq tmplst1 (+ 1 tmplst1))
      )
      (close fn1)
      tmplst1
    )
    nil
  )
)

jtybzl

我把DWG文件和scr文件也传上来，都放在F盘根目录，如果没有的话可以放其他盘，但要修改上面程序中路径

jtybzl

怎么没有人遇到过这样的情况吗？帮忙找个解决办法吧