数字化.wor

vb+mapxvb+mo二次开发实现鹰眼功能

!Workspace
!Version 650
!Charset WindowsSimpChinese
Open Table "抚州地图2.TAB" As 抚州地图2 Interactive
Open Table "用地层" As 用地层 Interactive
Open Table "公共设施层" As 公共设施层 Interactive
Open Table "河流湖泊层" As 河流湖泊层 Interactive
Open Table "道路图层" As 道路图层 Interactive
Open Table "注释" As 注释 Interactive
Map From 注释,公共设施层,道路图层,河流湖泊层,用地层,抚州地图2 
  Position (0.0520833,0.0520833) Units "in"
  Width 4.125 Units "in" Height 2.375 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 1, 0
  Center (303.3641474,21.58108351)
  Zoom 6098.478536 Units "km"
  Preserve Zoom Display Zoom
  Distance Units "km" Area Units "sq km" XY Units "degree"
Set Map
  Layer 1
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 注释
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 道路编码
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 4
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 水域名称
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 5
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 用地类型
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 6
    Display Off
    Global   Symbol (35,0,12)   
    Selectable Off
    Zoom (500, 200000) Units "km" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency on 
  color 0 
    grayscale off 
Set Map Layer 3 Editable
Set Window FrontWindow() Printer
 Name "Microsoft Office Document Image Writer" Orientation Landscape Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow