nc8000
路人甲
路人甲
  • 注册日期2004-08-11
  • 发帖数42
  • QQ
  • 铜币237枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1332回复:1

[求助]如何获得Text Element的大小

楼主#
更多 发布于:2005-10-17 15:48
在AE中,我在PageLayoutControl中加入一个Text Element,我如何获得该文本在PageLayoutControl中的长和宽?<BR>
喜欢0 评分0
cftao2008
路人甲
路人甲
  • 注册日期2005-03-09
  • 发帖数141
  • QQ
  • 铜币568枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-11-03 09:45
<DIV>Text符号的应用:</DIV><CODE><PRE>Dim myTxtSym As IFormattedTextSymbol
Set myTxtSym = New TextSymbol

'** Set the font for myTxtSym
Dim myFont As IFontDisp
Set myFont = New StdFont

myFont.Name = "Courier New"
myFont.Size = 24
myTxtSym.Font = myFont

'** Set the Color for myTxtSym to be Dark Red

Dim myColor As IRgbColor
Set myColor = New RgbColor

myColor.Red = 150
myColor.Green = 0
myColor.Blue = 0

myTxtSym.Color = myColor

'** Set other properties for myTxtSym
myTxtSym.Angle = 0
myTxtSym.RightToLeft = False
myTxtSym.VerticalAlignment = esriTVABaseline
myTxtSym.HorizontalAlignment = esriTHAFull
myTxtSym.CharacterSpacing = 200
myTxtSym.Case = esriTCNormal</PRE></CODE>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部