学API必备技能→SaveAs。

一品疯子 · 发表于 2014-11-13 10:36:52

经典图书

不会用SaveAs等于不会用API。
SaveAs用法小结

1 newname = MyPath + "FRED.PRT"

SwModel.SaveAs NewName

(详见帮助文件的Save Part with New Name Example示例)

*************

2 装配体和零件的设置( Save Assembly as part settings 来自solidworks官网论坛)

关键语句bool = swApp.SetUserPreferenceIntegerValue(swSaveAsmAsPartOptions_e.swSaveAsmAsPart_AllComponents, 0)
swModelDocExt.SaveAs("C:test_foldercreate_me.sldprt", 0, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, nErrors, nWarnings)

Private Sub Save_to_Part()
swApp = GetObject(, "SldWorks.Application")
swModel = swApp.ActiveDoc
swModelDocExt = swModel.Extension
swModelDoc = swApp.ActiveDoc
swAssembly = swModelDoc
' Set the selected component to transparent
boolstatus = swAssembly.SetComponentTransparent(False)
bool = swApp.SetUserPreferenceIntegerValue(swSaveAsmAsPartOptions_e.swSaveAsmAsPart_AllComponents, 0)
swModelDocExt.SaveAs("C:test_foldercreate_me.sldprt", 0, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, nErrors, nWarnings)
swApp.CloseDoc(swModel.GetTitle) End Sub

复制代码
3 SaveAs3的用法

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
longstatus = swModel.SaveAs3("C:Part3.SLDPRT", 0, 2)End Sub

复制代码

1250843648 · 发表于 2014-11-13 10:44:58

用GetType判断类型装配体、零件存盘。
If swCompModel.GetType = swDocPART Then
NewFilePath = NewFilePath & ".EPRT"
ElseIf swCompModel.GetType = swDocASSEMBLY Then
NewFilePath = NewFilePath & ".EASM"
End If

''
Private Sub SaveEdrawing()
''
Dim T: T = Timer
Dim Path, FileName, Filter
Dim sFileName As String, nErrors As Long, nWarnings As Long
''
Dim fileConfig As String, fileDispName As String, fileOptions As Long
''
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
''
Set SwApp = GetObject(, "SldWorks.Application")
Filter = "SolidWorks Files (*.sldprt, *.sldasm, *.slddrw)|*.sldprt,*.sldasm,*.slddrw|Filter name (*.fil)|*.fil|All Files (*.*)|*.*|"
FileName = SwApp.GetOpenFilename("File to Attach", "", Filter, fileOptions, fileConfig, fileDispName)
Set SwModel = SwOpenFile(SwApp, FileName)
''
sFileName = Left(SwModel.GetPathName, Len(SwModel.GetPathName) - 6)
'Stop
' Get type of model document and set edrawing extension
If SwModel.GetType = swDocPART Then
sFileName = sFileName & "eprt"
ElseIf SwModel.GetType = swDocASSEMBLY Then
sFileName = sFileName & "easm"
ElseIf SwModel.GetType = swDocDRAWING Then
sFileName = sFileName & "edrw"
Else
Exit Sub
End If
SwApp.SetUserPreferenceIntegerValue swEdrawingsSaveAsSelectionOption, swEdrawingSaveAll
SwModel.Extension.SaveAs sFileName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings
Timing TEnd Sub