SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 跪求SOLEDWORKS转DWG的宏文件 [打印本页]

作者: wxm 时间: 2009-11-25 22:52
标题: 跪求SOLEDWORKS转DWG的宏文件
我复制的宏代码运行错误！！！跪求个SOLEDWORKS转DWG的宏文件，
错误的地方在下面红色地方，所以我求个SOLEDWORKS转DWG的宏文件，不要代码了，呵呵。有的传个给我，谢谢！
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
红色的地方在SW中错误，？？？？

作者: wzm_132 时间: 2009-11-25 22:57
大伙的用的是这个代码吗？我的怎么不行哦，高手来帮帮我呀。

作者: 童彤5437 时间: 2009-11-25 22:57
说明一个，就是新建个宏，一键转换SW工程图文件为DWG文件格式，因为客户要CAD的啊，郁闷死了。每次都要另存为，所以就试着复制了这段代码，但是不行，？？？？？？？

作者: ?抱抱猫猫♀ 时间: 2009-11-25 22:57
我上传个错误的地方，让大伙好看明白，我搞什么。

作者: 雪原狼 时间: 2009-11-25 22:58
在补充一下，我是在SW中2010的运用的哦，是不是在SW2010中不行呀，大伙在其他版本中运用怎么样。

作者: tien 时间: 2009-11-25 22:59
没用过这个红

作者: herozj 时间: 2009-11-25 23:00
期待叫程！！

作者: v9yc76c23a 时间: 2009-11-25 23:05
经过本人反复试验，已经解决掉了，原来要保存了工程图才可以调用的哦，这玩意，不会调试，真是郁闷。

作者: 仰腾 时间: 2009-11-25 23:10
在请高手帮我下，我不想保存工程图，直接保存为DWG，那这段宏代码应该怎么样修改呢？

作者: 玲玲7717 时间: 2009-11-25 23:11
附件为一个转换 DWG 格式的宏（大侠出品，感谢！） 2007中间可用 2010的没有试过你看看0...

只捣一剑.rar (23.96 KB, 下载次数: 10)

作者: hhhjjj 时间: 2009-11-25 23:11
没用过这个红

作者: lyc2000lyc 时间: 2009-11-25 23:12
好的，谢谢，我来看看可以用不？

作者: 11111141111122 时间: 2009-11-25 23:14
下了，没有搞明白，怎么还多了个22.

作者: yhjdjdh60 时间: 2009-11-25 23:19
你这个宏命令不好，还是我上面的那段好使，你这个不能关联文件名称的。

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)