📄 数字化.wor
字号:
!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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -