Add Decal Example (VB.NET)
This example shows how to add a decal to a selected face on a part.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a part document that contains a model.
' 2. Ensure that the specified decal files exist.
' 3. Select a face on the model.
' 4. Select Tools > Add-ins > PhotoView 360.
'
' Postconditions: A decal is applied to the selected face.
'----------------------------------------------------------------------------
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
swSelMgr As
SelectionMgr
Dim
swModelDocExt As
ModelDocExtension
Dim
swFace As
Face2
Dim
swDecal As
Decal
Dim
swMaterial As
RenderMaterial
Dim
boolstatus As
Boolean
Dim
strName As
String
Dim
nDecalID As
Integer
swModel = swApp.ActiveDoc
swSelMgr = swModel.SelectionManager
swModelDocExt = swModel.Extension
swFace = swSelMgr.GetSelectedObject6(1, -1)
swModel.ClearSelection2(True)
'Create the decal
swDecal = swModelDocExt.CreateDecal()
swMaterial = swDecal
boolstatus = swMaterial.AddEntity(swFace)
strName = "C:\Program Files\SolidWorks
Corp\SolidWorks\data\graphics\Decals\Logos\sw.p2d"
swMaterial.FileName =
strName
strName = "C:\Program Files\SolidWorks
Corp\SolidWorks\data\graphics\Decals\Logos\sw.bmp"
swMaterial.TextureFilename =
strName
swMaterial.MappingType = 0
swMaterial.FixedAspectRatio =
False
swMaterial.FitHeight =
True
swMaterial.FitWidth =
True
boolstatus = swModelDocExt.AddDecal(swDecal,
nDecalID)
' Rebuild the model to show the
newly applied decal
swModel.Rebuild(swRebuildOptions_e.swRebuildAll)
End
Sub
Public
swApp As
SldWorks
End
Class