|
前兩篇我們已討論了轉(zhuǎn)換問題，本篇涉及到具體的轉(zhuǎn)換并不多，而是介紹SolidWorks的另一個有用的工具—宏。其實，其他SolidWorks的操作也可以如此簡化的。
你是否覺得，每次轉(zhuǎn)換的時候很繁，需東點西選，經(jīng)常容易搞錯另存為的格式，討厭的映射文件每次出現(xiàn)，等待你更改?下面我們擺平它!
1.在SolidWorks 中操作：文件/另存為，選擇保存類型為DWG或DXF，點擊選項，出現(xiàn)“輸出選項”對話框，選擇“每次保存時不顯示映射”，重新輸出一遍。使映射設(shè)置對話框在輸出的時候不再顯示。
2.在SolidWorks中操作:工具/宏操作/錄制
3.把輸出DWG文件的操作再來一遍。然后操作:工具/宏操作/停止，會出現(xiàn)宏的“另存為”對話框。
4.取名保存宏。
5.操作：工具/宏操作/編輯，選擇我們剛才保存的宏。VBA打開了宏。
可以看見我們剛才執(zhí)行的操作是把打開的工程圖保存成一個aaa.DWG文件。
如果打開其他SolidWorks工程圖bbb，執(zhí)行這個宏，結(jié)果會把這個圖轉(zhuǎn)換成DWG文件，但文件名仍然是aaa.dwg，這當然不行，我們來改進一下。
6.把全部代碼刪除，輸入以下代碼:(直接從網(wǎng)頁拷貝、粘貼吧，保證不會錯)
Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim No As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
x = MsgBox(" 已保存為 DWG 文件 ", 0)
End Sub
7.解釋一下代碼的功能，熟悉VB的朋友可以跳過此部的分析，直接看下一段。
A部分:定義變量。讓程序以相同的文件名把DWG文件保存在SolidWorks工程圖相同的文件夾內(nèi)。(如果SolidWorks工程圖文件名為:XXX. SLDDRW則AutoCAD圖紙的文件名為:XXX.DWG)。此部分不可刪除和省略。
B部分:轉(zhuǎn)換完成后關(guān)閉SolidWorks工程圖，這對同時需轉(zhuǎn)換大量的工程的話十分有用。如果你轉(zhuǎn)換后不想關(guān)閉圖紙的話，刪了它。
C部分:轉(zhuǎn)換后出現(xiàn)一個信息框：“已保存為DWG文件”。增加這個部分的原因是因為：實現(xiàn)一鍵操作后，如果一次需轉(zhuǎn)換大量的圖紙，轉(zhuǎn)換時太爽了，有時按鍵按得太快，系統(tǒng)有時會“發(fā)病”。如果把“已保存為DWG文件”換成："文件已轉(zhuǎn)成:"&Title &".DWG" 。
信息框就輸出轉(zhuǎn)換后的文件名。
在這里，你可能覺得沒用，但如果你在C部分后再增加一個D部分：打開同目錄中的下一個工程圖，用循環(huán)語句全部轉(zhuǎn)換,可以同時轉(zhuǎn)換成千上萬個工程圖，沒有C部分來檢查和監(jiān)測一下，你根本不知道程序運轉(zhuǎn)到什么地方了，還以為死機了呢。
你覺得沒用的話也可以刪了它。
8.記住:上一行的東西千萬不能粘貼在代碼里。
9.直接關(guān)閉VBA宏編輯器，在更改的時候它會自動保存。所已在更改的時候要小心點。
10.添加“宏”TOOLBAR，一鍵搞定它。操作:工具/自定義，出現(xiàn)“自定義”對話框;選命令/宏，把右面的人頭小圖標往你需要的工具欄上拖，松手，出現(xiàn)“自定義宏按鈕”對話框;按右邊的文件選擇按鈕，出現(xiàn)“宏路徑”對話框
11.選擇我們剛才編輯過的宏文件，按“打開”;此時你可以在“自定義宏按鈕”對話框中設(shè)置“快捷鍵”，這對經(jīng)常要用到轉(zhuǎn)換的朋友也十分有用。此時也可以用“選擇圖象”給此按鈕換一個與眾不同的圖標。
12.點擊“確定”，再確定。
13.好了!現(xiàn)在打開一張工程圖，點擊剛才拖出來的按鈕，DWG輸出一鍵結(jié)束。
|