⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 湖南图.wor

📁 vc+mapx二次开发示例程序。包括地图读取
💻 WOR
字号:
!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "bj_fy" As bj_fy Interactive
Open Table "sj_ywj" As sj_ywj Interactive
Open Table "xj_ywj" As xj_ywj Interactive
Open Table "jmd_ywj" As jmd_ywj Interactive
Open Table "hl" As hl Interactive
Map From jmd_ywj,xj_ywj,sj_ywj,bj_fy,hl 
  Position (0.0520833,0.0520833) Units "in"
  Width 4.125 Units "in" Height 2.36458 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 1, 0
  Center (112.2391349,26.78862878)
  Zoom 540.433481 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 jmd_ywj
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With xj_ywj
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With sj_ywj
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 4
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With bj_fy
      Parallel On Auto Off Overlap Off Duplicates Off 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 xj
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
Set Window FrontWindow() Printer
 Name "Tencent Virtual Printer" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -