标题: SLDPRT档同时转存SAT,STEP,IGS,PDF档之巨集 [打印本页] 作者: outfire 时间: 2013-10-13 10:07 标题: SLDPRT档同时转存SAT,STEP,IGS,PDF档之巨集 ' ******************************************************************************
'macro recorded on 2013/10/12 by scliang
'
'测试版本:2012 SP4
'先在SOLIDWORKS打开 .SLDPRT 文件
'
'功能: 把目前.SLDPRT的文件,依据该文件的路径名称存成 SAT,STEP,IGS,PDF文件
'
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
On Error Resume Next
Dim Path_N As String
Dim X_Path_Name As String
Set swModel = swApp.GetFirstDocument
Path_Name = swModel.GetPathName '取出功能目前档案的路径及名称.SLPRT
Path_N = Left(Path_Name, Len(Path_Name) - 7)'取出目前档案的路径及名称(不含副档名)
For i = 1 To 4
Select Case i
Case 1 'save "SAT" file
X_Path_Name = Path_N & ".SAT"
Case 2 'save "STEP" file
X_Path_Name = Path_N & ".STEP"
Case 3 'save "IGS" file
X_Path_Name = Path_N & ".IGS"
Case 4 'save "PDF" file
X_Path_Name = Path_N & ".PDF"
End Select
longstatus = Part.SaveAs3(X_Path_Name, 0, 0) '储存SAT,STEP,IGS,PDF之文件