MapXtreme 使用FeatureFactory.CreateLine画线的完整例子

左半边

开发环境：MapXtreme for Windows
代码：
LayerIndex=session("maper_eagle").layers.count+1   
  session("maper_eagle").layers.createlayer   "temp",,LayerIndex   
  session("maper_eagle").layers.move   Layerindex,1   
  session("maper_eagle").layers("temp").visible   =   true   



  bResult   =   CreateMappoints(eRect)   
  eRect.addXY   eagleMapX1,   eagleMapY1   
  eRect.addXY   eagleMapX1,   eagleMapY2   
  eRect.addXY   eagleMapX2,   eagleMapY2   
  eRect.addXY   eagleMapX2,   eagleMapY1   
  erect.addXY   eagleMapX1,   eagleMapY1   

  SET   Lyr=session("maper_eagle").Layers.Item("temp")   
  SET   FeaFac=session("maper_eagle").featurefactory   

  Set   oRectangle   =   FeaFac.Createline(eRect,session("maper_eagle").DefaultStyle)   
  oRectangle.Style.RegionBorderWidth   =   1   
  oRectangle.Style.RegionBorderColor   =   16711680   
  oRectangle.Style.RegionPattern   =   0   
  oRectangle.Style.LineStyle   =   2'9   
  oRectangle.style.LineWidthUnit   =   0'0=Pixel   1=Point   
  if   Session(SESN_MAPPER).zoom<2000   then   
  oRectangle.style.LineWidth   =   1   
  else   
  oRectangle.style.LineWidth   =   2   
  end   if   
  oRectangle.Style.LineColor   =   RGB(255,0,0)   

  Lyr.AddFeature   oRectangle   
  Lyr.Refresh