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
Part.SaveAs2 Filename & ".pdf", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 dwg&pdf 文件 ", 0)
End Sub

这段代码的意思是将打开的工程图文件另存swp和pdf的格式保存到打开的文件路夹径中

我想把.swp文件和.pdf文件保存的路径改成我自己想要保存的路径，而不是和工程图文件共文件夹，怎么改啊？

有没有人啊？

filename自己定义呗

这是引用 solidworks对象？
Part.SaveAs2 Filename & ".dwg", 0, True, False
Part.SaveAs2 Filename & ".pdf", 0, True, False
把 Filename & ".dwg" 改为你要存储的路径
例如 要储存在 C:\Users\Administrator\Desktop\Text.dwg 就改为
Part.SaveAs2 "C:\Users\Administrator\Desktop\Text.dwg", 0, True, False
应该是这样的
或者路径用CommonDialog选择

我爱度娘

Filename = Part.GetPathName
文件名 你得从你的Filename提取出来

Filename = Part.GetPathName()
No = Len(Filename) '取文件名的长度（字符串长度）
Filename = Left(Filename, No - 7) '减去后面的7个字符
以上获取文件名，包含完整的路径，你得把不包含路径的文件名取出来：
str1=strreverse(FIleName) '字符串反序
nPos = Instr(1,str1,"\") '查找第一个路径分隔符 \
if nPos>0 then FileName = strreverse(mid(str1,1,nPos-1)) '获取文件名（不含路径）
FileName = 你的路径 & FileName
Part.SaveAs2 Filename & ".dwg", 0, True, False

@cbm666 就这个帖子。我最后是让他数文件夹路径是35个字符，于是改了一下No = Len(Filename) Filename = Left(Filename, No - 7) No = Len(Filename) filename=right(filename,no-35)

大神怎么在另存文件后面加个日期

请问怎么在dwg文件后加上属性中的 版本