按钮－文件的连接

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

本帖最后由作者于 2004-9-20 20:05:46 编辑

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

(DEFUN CT-WINRUN (NAME / FILENAME)
(IF (NOT (SETQ FILENAME (FINDFILE NAME)))
(PROGN
(ALERT (STRCAT "File " NAME " cannot be found."))
(VL-EXIT-WITH-VALUE 1)
)
)
(IF (NOT (FINDFILE (STRCAT (GETENV "SYSTEMROOT") "\\EXPLORER.EXE")))
(PROGN
(ALERT (STRCAT "Explorer cannot be found so file cannot be run."))
(VL-EXIT-WITH-VALUE 1)
)
)
(vl-arx-import 'Startapp)
(STARTAPP (STRCAT (GETENV "SYSTEMROOT") "\\EXPLORER.EXE") FILENAME)
)

复制代码

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")
)

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

picture

无痕 · 发表于 2004-9-20 20:54:00

(command "start" "http://bbs.mjtd.com/forum.php?mod=viewthread&tid=26444")

lockmyeye · 发表于 2004-9-20 22:54:00

(defun nl_ziliao()
(command "shell" "f:\\ziliao.htm")
)

alin · 发表于 2004-9-21 15:09:00

heart1982发表于2004-9-20 20:12:00不行，运行时死机 ;;;;;;;;;;驱动对话框---------------------------------------------------(defun rcxtxlzq(/ id nldraw) (setq olderr *error* ...

You cannot use run (command ...) while your dialog box is still open! Try (startapp...) or (CT-WINRUN ...)

账号		自动登录	找回密码
密码			注册