startup.wor

用VB6.0MapINfo绘等值线及表面图

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "知识库\T003经纬网" As T003经纬网 Interactive
Map From T003经纬网 
  Position (-0.0333333,-0.241667) Units "in"
  Width 8.5 Units "in" Height 5.24167 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 9, 104, "mi", 105, 10, 25, 47, 0, 0
  Center (124.0151175,1742.459495)
  Zoom 5550.277797 Units "km"
  Preserve Zoom Display Position
  Distance Units "km" Area Units "sq km" XY Units "degree"
Set Map
  Layer 1
    Display Graphic
    Label Line Arrow Position Right Font ("Arial",0,10,0) Pen (1,2,0) 
      With 经纬度刻度
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
   Object 45  Position Right Text "45" 
   Object 17  Position Below Text "125" 
   Object 18  Position Above Text "125" 
   Object 19  Position Below Text "105" 
   Object 20  Position Above Text "105" 
   Object 21  Position Below Text "90" 
   Object 22  Position Above Text "90" 
   Object 23  Position Below Text "100" 
   Object 24  Position Above Text "100" 
   Object 25  Position Below Text "110" 
   Object 26  Position Above Text "110" 
   Object 27  Position Below Text "115" 
   Object 28  Position Above Text "115" 
   Object 29  Position Below Text "120" 
   Object 30  Position Above Text "120" 
   Object 31  Position Below Text "95" 
   Object 32  Position Above Text "95" 
   Object 33  Position Above Text "85" 
   Object 34  Position Above Text "130" 
   Object 35  Position Right Text "20" 
   Object 36  Position Left Text "30" 
   Object 37  Position Right Text "30" 
   Object 38  Position Left Text "40" 
   Object 39  Position Right Text "40" 
   Object 40  Position Left Text "25" 
   Object 41  Position Right Text "25" 
   Object 42  Position Left Text "35" 
   Object 43  Position Right Text "35" 
   Object 44  Position Left Text "45" 
Set Map Layer 0 Editable
Set Window FrontWindow() Printer
 Name "Acrobat Distiller" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow