Entity Texture
Posted: Wed May 28, 2025 5:38 pm
Hi,
I am using this code for inserting texture in a simple model.
Public Sub SetTexture(iEntity As IEntity_DG)
iEntity = mModel.GetEntityAt(0)
Debug.WriteLine("Entity: " & iEntity.GetName())
Dim iTex As ITexture_DG = iEntity
If iTex Is Nothing Then
MessageBox.Show("The model is not suitable for Texture sample")
Return
End If
Dim props As IDictionary_DG = iEntity.GetExtendedProperties()
Dim iSurfaces As IArray_DG = props.GetInterface("TextureArray")
Debug.WriteLine("1-Surfaces=" & iSurfaces.GetCount().ToString)
Dim TextureFile As String = "C:\Users\wood.jpg"
iTex.Load(TextureFile)
iTex.SetEnabled(True)
If iTex.IsLoaded() Then Debug.WriteLine("Was loaded " & iTex.GetFileName())
props = iEntity.GetExtendedProperties()
iSurfaces = props.GetInterface("TextureArray")
Debug.WriteLine("2-Surfaces=" & iSurfaces.GetCount().ToString)
iTex.SetBlend(True)
End Sub
Don“t manage to see the texture. I get iSurfaces.GetCount()=0. What is missing or erroneous?
Thank you,
Marcos
I am using this code for inserting texture in a simple model.
Public Sub SetTexture(iEntity As IEntity_DG)
iEntity = mModel.GetEntityAt(0)
Debug.WriteLine("Entity: " & iEntity.GetName())
Dim iTex As ITexture_DG = iEntity
If iTex Is Nothing Then
MessageBox.Show("The model is not suitable for Texture sample")
Return
End If
Dim props As IDictionary_DG = iEntity.GetExtendedProperties()
Dim iSurfaces As IArray_DG = props.GetInterface("TextureArray")
Debug.WriteLine("1-Surfaces=" & iSurfaces.GetCount().ToString)
Dim TextureFile As String = "C:\Users\wood.jpg"
iTex.Load(TextureFile)
iTex.SetEnabled(True)
If iTex.IsLoaded() Then Debug.WriteLine("Was loaded " & iTex.GetFileName())
props = iEntity.GetExtendedProperties()
iSurfaces = props.GetInterface("TextureArray")
Debug.WriteLine("2-Surfaces=" & iSurfaces.GetCount().ToString)
iTex.SetBlend(True)
End Sub
Don“t manage to see the texture. I get iSurfaces.GetCount()=0. What is missing or erroneous?
Thank you,
Marcos