Apply and Remove Texture To and From Model By Display State (VB.NET)
This example shows how to apply and remove texture to and from a model using
the name of a display state of the model.
'--------------------------------------------------------------------------
' Preconditions:
' 1. Model opened by macro exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Model opened and texture applied to and removed from
' the model.
' 2. Examine the model to verify.
' 3. Results printed to Immediate window.
'
' NOTE: Because the part document is used in
' a SolidWorks online tutorial, do not save
any
' changes when closing the document.
'----------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Imports
System.Diagnostics
Partial
Class SolidWorksMacro
Public
Sub main()
Dim
swModel As
ModelDoc2
Dim
swModelDocExt As
ModelDocExtension
Dim
texture As
Texture
Dim
displayState As
String
Dim
errors As
Long
Dim
warnings As
Long
Dim
namStr As
String
' Open document
swModel = swApp.OpenDoc6(
"c:\Program
Files\SolidWorks Corp\SolidWorks\samples\tutorial\motionstudies\valve.sldprt",
swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent,
"", errors,
warnings)
swModelDocExt = swModel.Extension
' Set texture
on selected model in the
' specified
display state
displayState =
"<Default>_Display State 1"
namStr =
"<SystemTexture>\images\textures\pattern\checker2.jpg"
texture = swModelDocExt.CreateTexture(namStr,
5, 45,
False)
Debug.Print(
"Texture
set: " & swModelDocExt.SetTextureByDisplayState(displayState,
texture))
' Remove texture from
model by display state
Debug.Print(
"Texture
removed: " & swModelDocExt.RemoveTextureByDisplayState(displayState))
swModel.ForceRebuild3(False)
End
Sub
''' <summary>
''' The SldWorks
swApp variable is pre-assigned for you.
''' </summary>
Public
swApp As
SldWorks
End
Class