跪求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中错误，？？？？

我是在SW2010中调用的这段宏，大伙传个有用的上来，不要上传个跟这个一样的，拜托了，谢谢！

这个坛子里面有没有研究宏的吗？怎么没有来帮我看看啊

好了，我已经解决了这个问题，原来要先保存工程图，才可以调用这个宏的呀。
看来宏命令有点难度的哦

请高手帮忙下，我现在不想保存工程图，而是直接保存为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
Part.SaveAs2 "C:\Documents and Settings\Administrator\桌面\工程图1" & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
MsgBox " 已保存为 DWG 文件 ", 0
End Sub

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)  no-7 更是不能达到你想要的文件名
Part.SaveAs2 Filename & ".DWG", 0, True, False   保存需要有全路径，而不是文件名
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 DWG 文件 ", 0)
End Sub


正确的方法我在上楼已经给出

我建立的solidworks 二次开发的群，欢迎大家加入交流
42754723

[local]1[/local]这个是批量转换的，呵呵

这个是批量转换的，呵呵