Provides access to members that control the 3D marker symbol.
ICharacterMarker3DSymbol can be used to create a 3D marker symbol that uses the TrueType fonts or OpenType fonts. You can set/get the Font and CharacterIndex properties to control the font and glyph used. TheVerticalOrientation property allows you to set/get the vertical orientation of the 3D character marker symbol.
Use the IMarker3DPlacement interface to set additional properties for ICharacterMarker3DSymbol.
| Description | ||
|---|---|---|
![]() |
Angle | Marker symbol angle. |
![]() |
CharacterIndex | Character index within font. |
![]() |
Color | Marker symbol color. |
![]() |
Font | Font used for character symbol. |
![]() |
Size | Marker symbol size. |
![]() |
VerticalOrientation | Indicates whether character is oriented vertically. |
![]() |
XOffset | Symbol X-axis offset from point location. |
![]() |
YOffset | Symbol Y-axis offset from point location. |
| Interfaces | Description |
|---|---|
| IMarkerSymbol | Provides access to members that control marker symbols. |
| CoClasses and Classes | Description |
|---|---|
| CharacterMarker3DSymbol | 3D Character Marker Symbol component. |
' Set varaibles
Dim pFontDisp As IFontDisp
Set pFontDisp = New StdFont
Dim pCharMarkerSym As ICharacterMarker3DSymbol
Set pCharMarkerSym = New CharacterMarker3DSymbol
' Define the font to use
With pFontDisp
.Name = "MS Sans Serif"
.size = 8.25
End With
' Set the CharacterMarker3DSymbol properties
With pCharMarkerSym
.CharacterIndex = 37
.Font = pFontDisp
.VerticalOrientation = True
End With
' Set the 3D placement properties of the CharacterMarker3DSymbol
' using IMarker3DPlacement interface
Dim pMarker3DPlace As IMarker3DPlacement
Set pMarker3DPlace = pCharMarkerSym
' Set the color
Dim pRGBColor As IRgbColor
Set pRGBColor = New RgbColor
pRGBPt.Red = 0
pRGBPt.Blue = 255
pRGBPt.Green = 0
pMarker3DPlace.Color = pRGBColor
' Set the dimensions of the symbol
pMarker3DPlace.Width = 12 ' Set X-dimension
pMarker3DPlace.size = 8 ' Set Y-dimension
pMarker3DPlace.Depth = 10 ' Set Z-dimension
' Set the rotation angles
Dim pRotationX As Double
Dim pRotationY As Double
Dim pRotationZ As Double
pRotationX = 10
pRotationY = 40
pRotationZ = 17
pMarker3DPlace.SetRotationAngles pRotationX, pRotationY, pRotationZ
'....