跪求SW工程图转PDF和CAD的宏！！！！！！

suzhanpeng

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FilesPath As String
Dim swAA As String

Sub main()
Set swApp = Application.SldWorks                        '建立与SolidWorks的连接
Set Part = swApp.ActiveDoc                              '得到SolidWorks应用程序对象
FilesPath = swApp.ActiveDoc.GetPathName()               '获取当前零件全路径
swAA = Left(FilesPath, Len(FilesPath) - 6)              '去掉图纸后缀“SLDDRW”
swBB = "dwg"                                            '添加CAD后缀“dwg” ，如果存为PDF 就改成“pdf”
longstatus = Part.SaveAs3(swAA & swBB, 0, 0)            '另存为.......
End Sub

suzhanpeng

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. Dim Filespath As String
   
6. Dim swAA As String, swBB As String
   
7. 
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Filespath = swApp.ActiveDoc.GetPathName()
    
12. swAA = Left(Filespath, Len(Filespath) - 6)
    
13. swBB = "dwg"                                                  ‘转换CAD 为 dwg，转换PDF 为 pdf
    
14. longstatus = Part.SaveAs3(swAA & swBB, 0, 0)
    
15. End Sub
    

复制代码

suzhanpeng

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long
   
5. Dim Filespath As String
   
6. Dim swAA As String, swBB As String
   
7. 
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Filespath = swApp.ActiveDoc.GetPathName()
    
12. swAA = Left(Filespath, Len(Filespath) - 6)
    
13. swBB = "dwg"
    
14. longstatus = Part.SaveAs3(swAA & swBB, 0, 0)
    
15. End Sub

复制代码

该宏需要你在打开工程图的情况下执行，出错可能是我注释的那一句的注释符号错了！去掉就行了！