工程圖轉AutoCAD圖紙高級篇

1、Solidworks 工程圖轉AutoCAD圖紙高級篇 0· 本篇涉及到具體的轉換并不多，而是介紹 Solidworks 的另一個有用的工具宏。其實，其他 Solidworks 的操作也可以如此簡化的。 前兩篇我們已討論了轉換問題，本篇涉及到具體的轉換并不多，而是介紹 Solidworks 的另一個有用的工具宏。其實，其他 Solidworks 的操作也可以如此簡化的。你是否覺得，每次轉換的時候很繁，需東點西選，經(jīng)常容易搞錯另存為的格式，討厭的映射文件每次出現(xiàn)，等待你更改?下面我們擺平它!1; 在 Solidworks 中操作：文件 / 另存為，選擇保存類型為 DWG 或 DXF ，

2、點擊選項，出現(xiàn)“輸出選項”對話框，選擇“每次保存時不顯示映射”，重新輸出一遍。使映射設置對話框在輸出的時候不再顯示。 2; 在 Solidworks 中操作：工具 / 宏操作 / 錄制 3; 把輸出 DWG 文件的操作再來一遍。然后操作：工具 / 宏操作 / 停止，會出現(xiàn)宏的“另存為”對話框。4; 取名保存宏。5; 操作：工具 / 宏操作 / 編輯，選擇我們剛才保存的宏。 VBA 打開了宏。 可以看見我們剛才執(zhí)行的操作是把打開的工程圖保存成一個 aaa.DWG 文件。如果打開其他 Solidworks 工程圖 bbb ，執(zhí)行這個宏，結果會把這個圖轉換成 DWG 文件，但文件名仍然是 aaa.d

3、wg ，這當然不行，我們來改進一下。6; 把全部代碼刪除，輸入以下代碼：(直接從網(wǎng)頁拷貝、粘貼吧，保證不會錯)Dim swApp As ObjectDim Part As ObjectDim Filename As StringDim No As IntegerDim Title As StringSub main()Set swApp = Application.SldWorksSet Part = swApp.ActiveDocFilename = Part.GetPathName()No = Len(Filename)Filename = Left(Filename, No - 7)Pa

4、rt.SaveAs2 Filename & ".DWG", 0, True, FalseTitle = Part.GetTitleSet Part = NothingswApp.CloseDoc Titlex = MsgBox(" 已保存為 DWG 文件 ", 0)End Sub7; 解釋一下代碼的功能，熟悉 VB 的朋友可以跳過此部的分析，直接看下一段。 A 部分：定義變量。讓程序以相同的文件名把 DWG 文件保存在 Solidworks 工程圖相同的文件夾內(nèi)。(如果 Solidworks 工程圖文件名為： XXX. SLDDRW 則 Auto

5、CAD 圖紙的文件名為： XXX.DWG )。此部分不可刪除和省略。B 部分：轉換完成后關閉 Solidworks 工程圖，這對同時需轉換大量的工程的話十分有用。如果你轉換后不想關閉圖紙的話，刪了它。C 部分：轉換后出現(xiàn)一個信息框：“已保存為 DWG 文件”。增加這個部分的原因是因為：實現(xiàn)一鍵操作后，如果一次需轉換大量的圖紙，轉換時太爽了，有時按鍵按得太快，系統(tǒng)有時會“發(fā)病”。如果把“已保存為 DWG 文件”換成：" 文件已轉成 : "& Title & ".DWG" 。信息框就輸出轉換后的文件名。在這里，你可能覺得沒用，但如果你在 C

6、部分后再增加一個 D 部分：打開同目錄中的下一個工程圖，用循環(huán)語句全部轉換，哈哈!可以同時轉換成千上萬個工程圖，沒有 C 部分來檢查和監(jiān)測一下，你根本不知道程序運轉到什么地方了，還以為死機了呢。你覺得沒用的話也可以刪了它。8; ，記?。荷弦恍械臇|西千萬不能粘貼在代碼里。9; 直接關閉 VBA 宏編輯器，在更改的時候它會自動保存。所已在更改的時候要小心點。10; 添加“宏” TOOLBAR ，一鍵搞定它。操作：工具 / 自定義，出現(xiàn)“自定義”對話框;選命令 / 宏，把右面的人頭小圖標往你需要的工具欄上拖，松手;出現(xiàn)“自定義宏按鈕”對話框;按右邊的文件選擇按鈕，出現(xiàn)“宏路徑”對話框 11 選擇我們剛才編輯過的宏文件，按“打開”;此時你可以在“自定義宏按鈕”對話框中設置“快捷鍵”，這對