[已解決]LISP問題(COMMAND "OPEN")

(defun c:lsp_0626()
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(setq SelectFile (getfiled "選取檔案" "" "txt" 2))
(setq LeaderFile (open SelectFile "r"))
(setq Data (read-line LeaderFile))
(while Data
(command "open")
(command Data)
(command "close")
(setq Data (read-line LeaderFile))
)
(setvar "filedia" 1)
(close File)
(prin1)
)

此程式是我自己練習寫的...目標是希望開啟DWG檔並更改內部的東西
我手上一共用五百多張的圖...所以需要程式自己開啟檔案並關閉
黑色的部份目前是沒問題的....
紅色的部份(command "open")是對CAD下達指令open....
因為程式前面有修改系統變數(setvar "filedia" 0)所以不會出現open檔案時的對話框
但是.....結果卻如下
指令: (command "open")
open
指令: nil

這樣我就沒辦法輸入要開啟的檔案路徑及名稱...
請教各位前輩....是不是我搞錯了什麼??又或是有什麼其他解決辦法.....

你的問題我曾碰過，OPEN在 LISP語言中 是一個函數，所以無法當作 開啟圖檔 的指令~
我都是使用 SCRIPT指令(腳本) 來開啟檔案!!
LISP可能要看其他高手提供解決方法~

腳本檔的附檔名為scr，可以使用 記事本 編寫完畢後另存為 xxx.SCR 即可。
在AutoCAD輸入 SCRIPT指令 來執行 腳本檔 即可。

但是上面那個是範例，你需要再按照你公司的路徑修改腳本檔!!
至於製做腳本檔(SCR)，本身須有巨集攥寫能力及經驗，F1也有中文說明，其實只要明白後，你會發現寫腳本不會很難，但是這部分跟寫程式一樣需反覆測試，再來慢慢累積經驗值!

(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~

leoneriol 寫到:(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~

謝謝回報!
這樣我也學了一招~
******************************************************
謝謝分享~< 積分 +1>

[公告]關於團隊成員的回文及貢獻

爬文學習中----謝謝分享

leoneriol 寫到:(command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "filename.dwg" (chr 34)))

解決了.....利用VBA的程式碼可以開啟~~

leoneriol 感謝你,
最近剛好在傷腦筋怎麼用巨集開啓檔案,自已試了好幾之都還沒試出方法來,沒想到一上來"好地方"找答案,還真的給我找到你的這篇回覆,
謝謝你的分享,我學習了!

感謝，正需要這程式，謝謝分享，