1.怎么在中lISP中調用TXT文件 2怎么將lisp文件編譯,且騙譯后的文件副檔名也是lsp

wangyue

各位auto高手,小生請教兩個問題:
1.如何在lisp中調用txt文件,例如:我在popup_list中選擇m6的螺絲后,其他的edit_box將相應的調用txt文件中的數值 比如:直徑D是6 牙距T是1都會自動顯示
2.如何將LISP文件進行編譯,且編譯后的文件副檔名是LSP而不是VLX或FAS
希望高手們幫幫小生,小生為感,謝謝

mccad

读取文件并按行将文件转换为表
(defun mc_getfile(files / tmplst x fn)
  (setq files(findfile files))
  (if files
    (progn
      (setq fn (open  files "r"))
      (while (setq x (read-line fn))
        (setq tmplst(append tmplst(list x)))
      )
      (close fn)
      tmplst
    )
     nil
  )
)

功能
读取文件并按行将文件转换为表

参数
files：文本文件名，如未指定路径则自动在搜索路径中查找文件

返回值
返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil

示例
(mc_getfile "tyl.ini")

作者
郑立楷

wangyue

首先非常感謝你的回復，不過我在好多網上下載加密的,可是都不成功,要不是文件打不開,要不就是運行不了,要不就不是LSP的文件,您能否給的具體指在哪儿可以下載什么樣的軟件,謝謝

陈伯雄