var ctrlman = m_Map.GetCtrlMan();
var imageman = ctrlman.GetImageMan();
var util =  m_Map.GetUtility();
var poiman = ctrlman.GetPOIMan();

//중심좌표 구하기
var controlstate = ctrlman.GetControlstate();
var posLL = controlstate.GetLLCenter();

//step1.POI group 생성
var group = poiman.FindGroup(1);
if(!group) group = poiman.NewGroup(1);

//step2.POI style 생성
var style = poiman.FindStyle(1);
if(!style)
{
	style = poiman.NewStyle(1);
	style.SetGDIFont("굴림",0,8);
	style.SetFontColor(util.RGBColor(0, 0, 0));
	style.SetFontOutColor(util.RGBColor(255, 255, 255));
	style.SetBrush(util.RGBColor(100, 0, 255),0);
	style.SetPen(util.RGBColor(0,0,0), 1, 0);
}


var imageman = ctrlman.GetImageMan();
imageman.SetDefaultPath("http://www.talmap.co.kr/tutorial");
var image = imageman.LoadImageList("CAR_IMAGE", "image/CAR.png" , 64,64);
if(image.IsValid()!=true) alert('image 이상');

//step3.POI Item 생성
var item = group.FindItem(1);
if(!item)
{
	item = group.NewItem(1);
	item.SetShowImage(1);
	item.SetLonLat(posLL._X,posLL._Y);
	item.SetShowImage(1);
	item.SetImageIndex(14);
	item.SetImageOffset(4);
	item.SetTextStyle(0x12);
	item.SetStyle(style);
	item.SetContents("Contents\nHello");
	item.SetCaption("POI TEST");
	item.SetSyncAngle(1);
	item.SetAngle(1);
	item.SetAlpha(100);
	item.SetScale(70);
	item.SetImage(image);
	item.SetPerspectiveImage(1);
	
}

#include "CXCtrlMan.h"
#include "CXLyaerMan.h"
#include "CXUtility.h"

void CSampleDlg::OnSmDrawPolygon()
{
	CXLayerMan layerman = ctrlman.GetLayerMan();
	CXUtility util = m_Map.GetUtility();

	// Make Layer Style
	CXLayerStyle style = layerman.NewStyle(-1);
	// pen 색상 설정
	style.SetPen(util.RGBColor(255, 0, 0), 1, util.GetConstToValue(_T("PS_SOLID")));
	style.SetBrush(util.RGBAColor(0, 0, 255, 100), util.GetConstToValue(_T("BS_SOLID")));

	// Make Laeyr Polygon
	CXLayer layer = layerman.FindLayer(1);
	if (!layer) {
		layer = layerman.NewLayer(1);
	}

	CXLayerPolygon polygon = layer.NewPolygon(-1);
	polygon.BeginUpdate();
	polygon.SetClosed(1); // 0: PolyLine, 1: Polygone
	polygon.SetStyle(style);
	polygon.SetCanFocus(1);
	polygon.SetCanClick(1);
	polygon.EndUpdate();
	polygon.SetStateModeNew();
}                    

/// <summary>
/// 지도 폴리곤 그리기
/// </summary>
private void Map_Polygon()
{
    CtrlMan.GetUIMan().SetMessage("오른쪽 마우스를 클릭하면 종료 됩니다", 5000);

    TalMapXLib.IXLayerMan LayerMan;
    TalMapXLib.IXLayer layer;
    TalMapXLib.IXLayerPolygon layerobj;
    TalMapXLib.IXLayerStyle style;

    LayerMan = CtrlMan.GetLayerMan();
    style = LayerMan.FindStyle(nPolyStyle); // Style 적용
    if (style == null)
    {
        style = LayerMan.NewStyle(nPolyStyle);
        style.SetPen(m_Map.GetUtility().RGBColor(255, 0, 0), 1, m_Map.GetUtility().GetConstToValue("PS_SOLID"));
        style.SetBrush(m_Map.GetUtility().RGBAColor(0, 255, 255, 100), m_Map.GetUtility().GetConstToValue("BS_SOLID"));
    }
    layer = LayerMan.FindLayer(nLayerID);
    if (layer == null) layer = LayerMan.NewLayer(nLayerID);

    layerobj = layer.NewPolygon(-1); // ID 값을 -1 로 부여하면 자동아이디 부여
    layerobj.BeginUpdate();
    layerobj.SetClosed(1);   // 0:PolyLine, 1: PolyGon
    layerobj.SetCanFocus(1);
    layerobj.SetCanClick(1);
    layerobj.SetStyle(style);
    layerobj.EndUpdate();
    layerobj.SetStateModeNew();
}

'//-----------------------------------------------------------------------------
'// 지도 폴리곤 그리기
'//-----------------------------------------------------------------------------
Private Sub Map_Polygon()
    Call ctrlman.GetUIMan.SetMessage("오른쪽 마우스를 클릭하면 종료 됩니다.", 5000)

    Dim LayerMan As TalMapXLib.IXLayerMan
    Dim layer As TalMapXLib.IXLayer
    Dim layerobj As TalMapXLib.IXLayerPolygon
    Dim style As TalMapXLib.IXLayerStyle

    Set LayerMan = ctrlman.GetLayerMan
    style = LayerMan.FindStyle(nPolyStyle) '// Style 지정
    If style Is Nothing Then
        style = LayerMan.NewStyle(nPolyStyle)
        Call style.SetPen(m_Map.GetUtility.RGBColor(255, 0, 0), 1, m_Map.GetUtility.GetConstToValue("PS_SOLID"))
        Call style.SetBrush(m_Map.GetUtility.RGBAColor(0, 255, 255, 100), m_Map.GetUtility.GetConstToValue("BS_SOLID"))
    End If
    Set layer = LayerMan.FindLayer(nLayerID)
    If layer Is Nothing Then
        Set layer = LayerMan.NewLayer(nLayerID)
    End If

    layerobj = layer.NewPolygon(-1) '// ID 값을 -1 로 부여하면 자동아이디 부여
    With layerobj
        .BeginUpdate
        .SetClosed (1)  '// 0:PolyLine, 1: PolyGon
        .SetCanFocus (1)
        .SetCanClick (1)
        .SetStyle (style)
        .EndUpdate
        .SetStateModeNew
    End With
End Sub