高級篇 Solidworks工程圖轉換為AutoCAD圖紙(一 鍵搞定——VBA 宏)詳細圖文教程

前两篇我们已讨论了转换问题,本篇涉及到具体的转换并不多,而是介绍 Solidworks 的另一个有用的工具——宏。其实,其他 Solidworks 的操作也可 以如此简化的。
你是否觉得,每次转换的时候很繁,需东点西选,经常容易搞错另存为的格式, 讨厌的映射文件每次出现,等待你更改?下面我们摆平它!
1• 在 Solidworks 中操作:文件 / 另存为,选择保存类型为 DWG 或 DXF , 点击选项,出现“输出选项”对话框,选择“每次保存时不显示映射”,重新输 出一遍。使映射设置对话框在输出的时候不再显示。
2• 在 Solidworks 中操作:工具 / 宏操作 / 录制
3• 把输出 DWG 文件的操作再来一遍。然后操作:工具 / 宏操作 / 停止,会 出现宏的“另存为”对话框。
4• 取名保存宏。
5• 操作:工具 / 宏操作 / 编辑,选择我们刚才保存的宏。 VBA 打开了宏。
可以看见我们刚才执行的操作是把打开的工程图保存成一个 aaa.DWG 文件。
如果打开其他 Solidworks 工程图 bbb ,执行这个宏,结果会把这个图转换成 DWG 文件,但文件名仍然是 aaa.dwg ,这当然不行,我们来改进一下。
6• 把全部代码删除,输入以下代码:(直接从网页拷贝、粘贴吧,保证不会 错)
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 工 程图相同的文件夹内。(如果 Solidworks 工程图文件名为: XXX. SLDDRW 则 AutoCAD 图纸的文件名为: XXX.DWG )。此部分不可删除和省略。
B 部分:转换完成后关闭 Solidworks 工程图,这对同时需转换大量的工程的话 十分有用。如果你转换后不想关闭图纸的话,删了它。
C 部分:转换后出现一个信息框:“已保存为 DWG 文件”。增加这个部分的原 因是因为:实现一键操作后,如果一次需转换大量的图纸,转换时太爽了,有时 按键按得太快,系统有时会“发病”。如果把“已保存为 DWG 文件”换成:
” 文件已转成 : “& Title & “.DWG” 。
信息框就输出转换后的文件名。
在这里,你可能觉得没用,但如果你在 C 部分后再增加一个 D 部分:打开同目 录中的下一个工程图,用循环语句全部转换,哈哈!……可以同时转换成千上万 个工程图,没有 C 部分来检查和监测一下,你根本不知道程序运转到什么地方 了,还以为死机了呢。
8• 好了!广告结束了,记住:上一行的东西千万不能粘贴在代码里。我们接
着讨论——:
9• 直接关闭 VBA 宏编辑器,在更改的时候它会自动保存。所已在更改的时候 要小心点。
10• 添加“宏” TOOLBAR ,一键搞定它。操作:工具 / 自定义,出现“自定 义”对话框;选命令 / 宏,把右面的人头小图标往你需要的工具栏上拖,松手; 出现“自定义宏按钮”对话框;按右边的文件选择按钮,出现“宏路径”对话框
11• 选择我们刚才编辑过的宏文件,按“打开”;此时你可以在“自定义宏按 钮”对话框中设置“快捷键”,这对经常要用到转换的朋友也十分有用。此时也 可以用“选择图象”给此按钮换一个与众不同的图标。
12• 点击“确定”,再确定。
13• 好了!现在打开一张工程图,点击刚才拖出来的按钮, DWG 输出一键结 束。

為您推薦

發表評論

聯系我們

聯系我們

18511713368

在線咨詢: QQ交談

郵箱: [email protected]

工作時間:周一至周五,9:00-17:30,節假日休息http://www.8913776.live

關于本站 || 下載幫助 ||版權聲明 || 免責條款 || 隱私條款 || 站點地圖 || ||

Copyright??2018 CAD之家 All Rights Reserved·黔ICP備15000265號-2

nba2kol2过人 疯狂捕鸟 2012中超 股票开头代码分类 河北11选5遗漏任三 视频网站如何赚钱 浙江12前三直选遗漏 上海天天彩选4玩法 快速赛车分析软件 中超2020赛程 现在有什么好股票推荐