liujiping 发表于 2003-12-29 08:45:00

[求助]lisp能再CAD中打开记事本

lisp能再CAD中打开记事本，
直接在记事本中修改后，保存
望各位指点

BDYCAD 发表于 2003-12-29 08:47:00

open涵數可以吧.

龙龙仔 发表于 2003-12-29 11:13:00

啟動 Windows 應用程式
(startapp appcmd )

引數

appcmd

指定要執行應用程式的字串。如果 appcmd 不包含完整路徑名稱，startapp 會為應用程式搜尋 PATH 環境變數中的目錄。

file

指定要開啟檔案名稱的字串。

傳回值

如果成功的話是大於 0 的整數，否則為 nil。

範例

下列的程式碼啟動 Windows「記事本」開啟 acad.lsp 檔案。

指令：(startapp "notepad" "acad.lsp")

33

如果引數有嵌入空格，它必須以雙引號包圍。例如，以「記事本」編輯 mystuff.txt 檔案，要使用下列的語法：

指令：(startapp "notepad.exe" "\"my stuff.txt\"")

33

liujiping 发表于 2003-12-29 12:06:00

非常谢谢

wb0815 发表于 2003-12-29 15:59:00

start
c:\winnt\NOTEPAD.EXE

BDYCAD 发表于 2003-12-30 10:22:00

三樓龍龍仔的好用. 呵呵:D
但是 1. 用startapp 涵數有點奇怪的是打開了文件之后就把回CAD界面了. 另外不明白后面反回的數字是什麼意思?
       2. 而用5樓的START命令則不出現1 的情況, 但屏幕會閃一閃DOS的界面.

meflying 发表于 2003-12-30 11:18:00

另外不明白后面反回的數字是什麼意思?

返回值

如果成功则返回大于 0 的整数，否则返回 nil。

f5612140 发表于 2003-12-30 11:33:00

本帖最后由 作者 于 2003-12-30 12:22:18 编辑

acad.pgp中
原   NOTEPAD,   START NOTEPAD,1,*File to edit: ,
增加 NNN,         START NOTEPAD,1,*File to edit: ,
command:NNN或 NOTEPAD

龙龙仔 发表于 2003-12-31 07:52:00

BDYCAD发表于2003-12-30 10:22:00static/image/common/back.gif三樓龍龍仔的好用. 呵呵:D
但是 1. 用startapp 涵數有點奇怪的是打開了文件之后就把回CAD界面了. 另外不明白后面反回的數字是什麼意思?
      2. 而用5樓的START命令則不出現1 的情況,




;;1.用startapp函數有點奇怪的是打開了文件之後就把回CAD界面了!
;;試試這個
;;NOTE.LSP
(defun C:NOTE (/ DCL_ID NOTEFILE)
(setq DCL_ID (load_dialog "Note.dcl"))
(if (not (new_dialog "Note" DCL_ID))
    (progn
      (alert "Unable to find Note.DCL")
      (exit)
    )
)
(setq NOTEFILE (findfile "note.lsp"))
(action_tile "Edit" "(Edit)")
(action_tile "accept" "(done_dialog)")
(start_dialog)
(unload_dialog DCL_ID)
(princ)
)

(defun EDIT ()
(startapp "notepad" NOTEFILE)
)
(prompt "\nType \"Note\" to start... ")
(princ)


;;NOTE.DCL
Note: dialog {
: button {label = "編輯註解";
            key = "Edit";
            }
             ok_only;
}

jxphklibin 发表于 2009-2-10 14:59:00

楼上的，是因为程序命令还没有结束，所以“屏幕不會閃一閃DOS的界面”。如果是accept 卸载了对话框，程序执行完成，那就会 屏幕會閃一閃DOS的界面.
页: [1]
查看完整版本: [求助]lisp能再CAD中打开记事本