AutoCAD VBA開啟檔案對話方塊

2022-10-09 10:57:09 字數 896 閱讀 4707

利用vlax的com物件函式

'@var = fileopendlg("開啟檔案:", "d:\", "xls")

'title@ 字串,指定對話方塊的標籤。

'default 要使用的預設檔名;可為空字串 ("")。

'ext 預設的副檔名。如果 ext 為空字串 (""),則預設值為 *(所有檔案型別)。如果該引數中包含 dwg 檔案型別,則 getfiled 函式在對話方塊中顯示預覽影象框。

public function fileopendlg(byval title as string, optional byval defualpath as string = "", optional byval extstr as string = "") as string

dim vl as object, vlf as object, rtn as string

'根據autocad的版本判斷使用的庫型別

else

end if

set vlf = vl.activedocument.functions.item("getfiled")

rtn = vlf.funcall(title, defualpath, extstr, 8)

set vlf = nothing: set vl = nothing

fileopendlg = rtn

end function

public sub test()

msgbox fileopendlg("開啟檔案:", "d:\", "dwg")

end sub

效果

GetOpenFileName開啟檔案對話方塊的使用

tchar szpefileext 100 text exe 0 exe tchar szpathname max path openfilename ofn ofn.hwndowner hwnd 開啟or儲存檔案對話方塊的父視窗 ofn.lpstrfilter szpefileext lstrcp...

python開啟檔案 Python檔案開啟模式

python 內建函式 python 內建函式 python open 函式用於開啟乙個檔案,建立乙個 file 物件,相關的方法才可以呼叫它進行讀寫。寫入檔案時,不會自動加入換行,需要手動在末尾加入,在每個元素後面都換行n,可以用 fo.writelines line n for line in ...

xlsx檔案開啟亂碼 xlsx檔案怎麼開啟亂碼

excel出現亂碼的原因也是多種多樣。如果你遇到excel開啟是亂碼,可以從下面找找相應的解決辦法。第一,csv檔案用excel開啟是亂碼 從網頁匯出的csv檔案,用excel開啟,中文會是亂碼。csv檔案亂碼問題主要是檔案編碼引起的。因此要解決excel開啟亂碼的問題,可以從改檔案開始 首先,用記...