Delete Selected Feature Example (VBA)
This method shows how to delete a selected feature. You can specify
to delete any absorbed features or children features or both types of
features. This method does not ask the user to confirm the deletion.
'--------------------------------------
'
' Preconditions: Model document is open and a feature
is selected.
'
' Postconditions: The selected feature is deleted.
'
'--------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus As Boolean
Dim DeleteOption As Long
Dim longstatus As Long
Sub main()
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
Set
swModelDocExt = swModel.Extension
'
To delete absorbed features, use enum SwConst.swDelete_Absorbed
'
To delete children features, use enum SwConst.swDelete_Children
'
To keep absorbed features and children features, set DeleteOption = 0
DeleteOption
= SwConst.swDelete_Absorbed
'DeleteOption
= SwConst.swDelete_Children
'DeleteOption
= 0
'DeleteOption
= SwConst.swDelete_Absorbed + SwConst.swDelete_Children
longstatus
= swModelDocExt.DeleteSelection2(DeleteOption)
End Sub