Delete All Decals Example (VB.NET)
This example shows how to delete all decals in a model.
'----------------------------------------------------------------------------
' Preconditions: Open a part with one or more decals.
'
' Postconditions: All of the decals are removed from the
part.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Public
Sub main()
Dim
swModel As
ModelDoc2
Dim
swModelDocExt As
ModelDocExtension
Dim
boolStatus As
Boolean
swModel = swApp.ActiveDoc
swModelDocExt = swModel.Extension
boolStatus = swModelDocExt.DeleteAllDecals()
End
Sub
Public
swApp As
SldWorks
End
Class