Provides access to members that control the 3D marker symbol.
The IMarker3DSymbol interface provides properties and methods to define 3D marker symbols. The CreateFromFile method enbles import of existing OpenFlight (.flt), 3ds max* (.3ds), or Virtual Reality Markup Language (VRML*) models and then symbolize point features with these models. RestrictAccessToShape restricts the access to the geometry of a 3D marker symbol. IsRestrictedAccess indicates whether the geometry of the 3D Marker Symbol is restricted. UseMaterialDraping is used to display the symbols with or without texture materials.
| Description | ||
|---|---|---|
![]() |
CreateFromFile | Imports the symbol definition. |
![]() |
IsRestricted | Indicates if the marker restricts access to internal shape. |
![]() |
MaterialCount | Number of materials present. |
![]() |
RestrictAccessToShape | Restricts all further access to internal shape. |
![]() |
Shape | Marker shape geometry. |
![]() |
Thumbnail | The symbol thumbnail for 2D representation. |
![]() |
UseMaterialDraping | Indicates if the marker uses material property for draping. |
| CoClasses and Classes | Description |
|---|---|
| Marker3DSymbol | 3D Marker Symbol component. |
The code below shows how to symbolize a point graphic with a 3D Marker Symbol.
Public Sub Symbolize_Marker3DSymbol()
Dim pSxDoc As ISxDocument
Set pSxDoc = ThisDocument
Dim pScene As IScene
Set pScene = pSxDoc.Scene
Dim pGraphicsLayer3D As ILayer
Set pGraphicsLayer3D = pScene.BasicGraphicsLayer
Dim pGraphicsContainer3D As IGraphicsContainer3D
Set pGraphicsContainer3D = pGraphicsLayer3D
' Define a point location
Dim pPt As IPoint
Set pPt = New Point
pPt.PutCoords 100, 100
pPt.Z = 0
' Define a new Marker3DSymbol
Dim pMarkerSym As IMarker3DSymbol
Set pMarkerSym = New Marker3DSymbol
pMarkerSym.CreateFromFile "C:\marker3dsymbol.3ds"
pMarkerSym.UseMaterialDraping = True
Dim pMarker3DPlace As IMarker3DPlacement
Set pMarker3DPlace = pMarkerSym
Dim pElement As IElement
Set pElement = New MarkerElement
Dim pMarkerElement As IMarkerElement
Set pMarkerElement = pElement
pMarkerElement.Symbol = pMarkerSym
pElement.Geometry = pPt
pGraphicsContainer3D.AddElement pElement
pScene.SceneGraph.ActiveViewer.Redraw False
End Sub