马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
前段时间在论坛上看到的文章讲到宏，里面有这样一段程式代码，然后把图层、颜色等都编辑好，在把SW工程图直接建立宏快捷键，直接一点快捷键，就出同工程图一样的文件名字的CAD图档，各图层，颜色都跟设置的一样，我试了下，蛮好用的，求高手在推荐一些程式代码，或者相关书籍学习学习，谢谢！7 W+ Q8 p( i" y# \) A, k* C2 u9 U k
. N! S# }% }. ]
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 _( ]0 y8 K+ W$ h4 d: ~" z4 o- u$ B% h1 \0 g
& r+ b( T9 t! P7 `# Q. h+ ^# b B+ c$ ^- a( I( t+ N: F2 U3 n
& w2 d* e+ W8 w* _# ~1 K1 u }2 h
http://www.3dportal.cn/discuz/source/plugin/sina_xweibo_x3/xwb/images/bgimg/icon_logo.png 该贴已经同步到 lyz060301113的微博 | 
发表于 2014-4-28 14:44:55
发表于 2014-5-31 09:09:42
:victory::victory::victory: