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

liujiping

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

BDYCAD

open涵數可以吧.

龙龙仔

啟動 Windows 應用程式
(startapp appcmd [file])

引數

appcmd

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

file

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

傳回值

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

範例

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

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

33

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

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

33

liujiping

非常谢谢

wb0815

start
c:\winnt\NOTEPAD.EXE

BDYCAD

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

meflying

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

返回值

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

f5612140

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

龙龙仔

BDYCAD发表于2003-12-30 10:22:00三樓龍龍仔的好用. 呵呵  :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

楼上的，是因为程序命令还没有结束，所以“屏幕不會閃一閃DOS的界面”。如果是accept 卸载了对话框，程序执行完成，那就会 屏幕會閃一閃DOS的界面.