按钮－文件的连接

heart1982 · 发表于 2004-9-19 22:27:00

怎么让点击按钮，从而打开某个文件

alin · 发表于 2004-9-20 08:23:00

Which button? on existing toolbars?

BDYCAD · 发表于 2004-9-20 09:03:00

楼主是这个意思. 请楼主使用搜索工能. 可以在这个版块找到你要找的内容.

heart1982 · 发表于 2004-9-20 19:25:00

没有找到啊。
比如我想在dcl对话框中添加一个"查看文件资料"按钮，应该在lsp程序中用什么语句，才能使我连上d:/lsp/ziliao.htm文件。

alin · 发表于 2004-9-20 19:38:00

(command "browser" "d:/lsp/ziliao.htm"), 不过你要先关闭对话框或试试(startapp "EXPLORER.EXE" "d:/lsp/ziliao.htm")James Maeding 给了我们这个程序，一般的文件都能打开，很方便复制代码

heart1982 · 发表于 2004-9-20 20:12:00

不行，运行时死机
;;;;;;;;;;驱动对话框---------------------------------------------------
(defun rcxtxlzq(/ id nldraw)
   (setq olderr *error* *error* clerr)
   (setq id (load_dialog "nl.dcl"))
   (if (new_dialog "rcxtxlzq" id)
   (progn
   (start_list "nl")
   (add_list "NL1")
   (add_list "NL2")
   (add_list "NL3")
   (add_list "NL4")
   (add_list "NL5")
   (add_list "NL6")
   (add_list "NL7")
   (add_list "NL8")
   (add_list "NL9")
   (add_list "NL10")
   (end_list)
   (start_image "nlpic")
   (slide_image 20 0 (dimx_tile "nlpic") (dimy_tile "nlpic") "nl")
   (end_image)
   (action_tile "ziliao" "(nl_ziliao)")
   (action_tile "accept" "(setq nldraw 1)(getnl_dcl)(done_dialog)")
   (action_tile "cancel" "(done_dialog)")
   (start_dialog)
   )
   (princ "error,can't open the dialog")
   )
(defun nl_ziliao()
   (command "browser" "f:\\ziliao.htm")
)