(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 ...
↧