MapX的VC二次开发中，关于增加符号图元和给图元增加标签的问题！

[leeyiqun]

MapX的VC二次开发中，（1）在一个图层中增加一个符号图元，在代码中怎样把黑色的默认小旗改为别的符号，比如一个红色的实心圆呢？
（2）还有怎样给一个图元增加一个标签呢？不要借助外面的文件把一个标签加在图元上。

哪位兄弟姐妹知道的，麻烦给解答一下，最好有代码给看看，谢谢啦！！！

[leeyiqun]

怎么没有谁帮忙啊？

[yxred]

设置样式:
dim ftr as new feature
ftr.Attach Map1
ftr.Type = miFeatureTypeSymbol

ftr.Style.SymbolFont.Name = "myfont"
ftr.Style.SymbolFontColor = 255
ftr.Style.SymbolFont.Size = 8
ftr.Style.SymbolCharacter = 33 '一般字体从33号开始，也可以从6689开始
ftr.Point.Set X2, Y2
p_lyr.AddFeature ftr
再upDate

给图元加标签,设置图层为自动标注,然后设置keyValue

[leeyiqun]

楼上的哥们不好意思，我想用的是 VC 的，而且你的代码是创建一个图元，我想要的是怎么在创建的时候把里面默认的符号改为别的符合。比如在图层控制的对话框显示按钮的显示模式，就是一个黑色的小旗，在代码里面怎么把黑色的小旗改为红色的实心圆圈呢？也是里面的符号的。

[allen7757]

Set fNewSymbol1 = Map1.FeatureFactory.CreateSymbol(Pnt, Map1.DefaultStyle)
fNewSymbol1.Style.SymbolType = miSymbolTypeBitmap
fNewSymbol1.Style.SymbolBitmapSize = 18
fNewSymbol1.Style.SymbolBitmapTransparent = True
fNewSymbol1.Style.SymbolFontColor = RGB(0, 0, 255)
If (wd >= 345 Or wd < 15) Then
fNewSymbol1.Style.SymbolBitmapName = "上1.bmp"
End If
If (wd >= 15 And wd < 75) Then
fNewSymbol1.Style.SymbolBitmapName = "右上1.bmp"
End If
If (wd >= 75 And wd < 105) Then
fNewSymbol1.Style.SymbolBitmapName = "右1.bmp"
End If
If (wd >= 105 And wd < 165) Then
fNewSymbol1.Style.SymbolBitmapName = "右下1.bmp"
End If
If (wd >= 165 And wd < 195) Then
fNewSymbol1.Style.SymbolBitmapName = "下1.bmp"
End If
If (wd >= 195 And wd < 255) Then
fNewSymbol1.Style.SymbolBitmapName = "左下1.bmp"
End If
If (wd >= 255 And wd < 295) Then
fNewSymbol1.Style.SymbolBitmapName = "左1.bmp"
End If
If (wd >= 295 And wd < 345) Then
fNewSymbol1.Style.SymbolBitmapName = "左上1.bmp"
End If

[leeyiqun]

两个问题已经自己解决了！