|
' ******************************************************************************
' 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
給首次操作"巨集"的新手作參考
|
本帖子中包含更多資源
您需要 登錄 才可以下載或查看,沒有賬號?註冊
x
|