[求助]

wangyue · 发表于 2002-6-17 12:33:00

你好:幫忙修改以下程式,就是想讓lsp讀取TXT后在DCL中對應的edit_box 及
list_box中顯示

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

wangyue · 发表于 2002-6-17 15:39:00

使用這樣,程式出錯

wangyue · 发表于 2002-6-17 16:01:00

就是想讓lsp讀取TXT后在DCL中對應的edit_box 及
list_box中顯示

mccad · 发表于 2002-6-17 22:46:00

(setq des_list(read_des (findfile "tyl.ini")))
      (start_list "sign_ro")
      (mapcar 'add_list des_list)
      (add_list "其他设计单位...")
      (end_list)
(defun read_des(fildes / tmplst x fn)
  (setq tmplst nil)
  (setq fn (open fildes "r"))
  (while (setq x (read-line fn))
(setq tmplst(append tmplst(list x)))
  )
  (close fn)
  (setq tmplst tmplst)
)