|
经典图书 ' ******************************************************************************
'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之文件
Next
End Sub
批量SLPART转档.swp
给首次操作"巨集"的新手作参考
批量SLPART轉檔.swp
(49.5 KB, 下载次数: 121)
|
|