Как нарисовать точку

Question

Есть ArcGis 9.2
Как можно временно нарисовать точку по координатам, без слоя?
Или может быть есть какой-нить виртуальный слой?

Answer 1

Разобрался, но вот не пойму почему она исчезает?
Делаю так:

    pt := CoPoint.Create as IPoint;
    pt.Set_X(aX);
    pt.Set_Y(aY);

    dummy := CoRgbColor.Create ;
    pRGBColor := (dummy As IRgbColor) ;
      //Set point color
    pRgbColor.Set_Red(255);
    pRgbColor.Set_Green(0);
    pRgbColor.Set_Blue(0);

    dummy := CoSimpleMarkerSymbol.Create ;
    pSimpleMarker := (dummy As ISimpleMarkerSymbol) ;
    pSimpleMarker.Set_Size(8) ;
    pSimpleMarker.Set_Style(esriSMSCircle) ;
    pSimpleMarker.Set_Color(pRGBColor) ;

    pSymbol := pSimpleMarker ;

    MapControl1.DrawShape(pt,pSymbol);

После рефреша исчизает :( Подскажите как сделать чтобы не исчезала?

Answer 2

http://edndoc.esri.com/arcobjects/9.2/NET/35db2220-8004-4588-8629-dafaca5a6b11.htm
Или если не нужно динамически изменять координату точки, то просто используйте графический контейнер.
см. http://edndoc.esri.com/arcobjects/9.2/CPP_VB6_VBA_VCPP_Doc/COM_Samples_Docs/ArcMap/a59e7d67-4648-4075-a156-36c1937deb9a.htm
вместо ITextElement используйте IMarkerElement

Answer 3

А что потом с этим контейнером делать?
Как отобразить что в нём?

Answer 4

Сделал так:

    MapControl1.ActiveView.Get_GraphicsContainer(pGraphicsContainer);
   
    pElement := CreateComObject(CLASS_CircleElement) as IElement;

    pElement.Set_Geometry(pt as IGeometry);

    pGraphicsContainer.AddElement(pElement,0);

    MapControl1.ActiveView.PartialRefresh(esriViewGraphics, nil, nil);

Ничё не показывает :(

Answer 5

Обозвал
pElement := CoMarkerElement.create as IElement;

и всё пошло.

НО... отображается красным прямоугольником.
Как изменить на круг и поменять цвет??

Answer 6

Создайте ISimpleMarkerSymbol, задайте ему параметры (размер и style например) и присвойте элементу