森旺速查

电脑使用知识目录（PhotoShop、Arcgis、Word、Excel、PowerPoint、AutoCAD）

  1. 常规电脑设置及管理规定动作
  2. ArcGIS 10.X 导出Shapefile或Kmz的字段名会被截断成3个汉字
  3. ArcGIS 标注样式

 

 

常规电脑设置规定动作（建议）

C盘：系统盘（Win11）100G

D盘：系统临时盘（SysTemp）50G

E盘：用户临时盘（MyTemps）50-100G

F盘：用户工作盘（用户姓名）500G

G盘：数据备份盘（MyBak）300G

移动硬盘：标配（实行重要数据备份）

 

1、【业主资料\】:

1）行业或上级主管部门下达的任务文件、重点项目级别证明等

2）项目核准、备案文件、项目可研或初设批复、项目变更批复等

3）项目红线范围盖章扫描件及矢量数据等

2、【成果数据\】：

1）成果文图表原始文件（word、excel、arcgis、cad等）

2）成果（入库）矢量数据文件（.gdb .mdb .shp）

3）项目评审、审查、验收意见；成果签收函等

3、【扫描打印\】：

成果打印稿扫描件（PDF格式为主，含参与人员及签字盖章扫描，注明“打印稿”），一目了然

4、【项目来源\】（由文员建档整理）：

1）中标通知书、中标确认通知单等

2）项目合同、协议

 

ArcGIS 10.X 导出Shapefile或Kmz的字段名会被截断成3个汉字

1、打开注册表(WinR-Cmd-Regeidt)，定位到[My Computer\HKEY_CURRENT_USER\Software\ESRI\Desktop 10.x]
2、创建项[Common]，接着在其下创建[CodePage]项-添加[字符串]-名称：[dbfDefault]-健值：oem（或者 936）

 

ArcGIS 标注样式

1、多行标注：

“解析程序(P)”-VBScript：[字段1] & vbnewline & [字段2]

“解析程序(P)”-Python：[字段1] + "\n" + [字段2]

 

2、上标、下标标注：

VBScript上标：[字段1] & "<sup> " & [上标字段] & "</sup> "

VBScript下标：[字段1] & "<sub> " & [下标字段] & "</sub> "

Python：上标

def FindLabel ( [Shape_Area] ):
return [Shape_Area] +"<sup>2</sup>"

Python：下标

def FindLabel ( [Shape_Area] ):
return [Shape_Area] +"<sub>2</sub>"

 

3、同时上下标：“解析程序(P)”-VBScript（勾选“高级”），矢量数据：林草综合

Function FindLabel ( [SHENG] )
　　 Dim lLen
　　 lLen=StrLen( [SHENG]? )/2
　　 Dim i
　　 Dim sStr
　　 sStr=""
　　 i=0
　　 Do While i<lLen * 2
　　　　 sStr=sStr & "　"
　　　　 i=i+1

　　 Loop
FindLabel = [SHENG] & "<SUP>" & "xian" & vbcrlf & sStr & "xiang" & "</SUP>"
End Function
function strlen(str)
dim p_len
p_len=0
strlen=0
p_len=len(str)
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end function

 

4、按条件标注：“标注”-“方法”-选择“定义要素并...”-“SQL查询(Q)...”-输入标注字段选择条件

 

5、用表达式按条件实现不同标注格式（如面积大于100的标注“森林类别”标注为大小为30的红色字体）：

def FindLabel ( [森林类别] , [Shape_Area]):
if float([Shape_Area]) > 100:
return "<CLR red='255'><FNT size = '30'>" + [森林类别] + "</FNT></CLR>"
else:
return [森林类别]

6、多分式标注（使用ArcGIS标注引擎设置文字居中对齐）：

def FindLabel ( [首字段] , [分子字段], [分母字段] , [尾字段]):
a=len([分子字段])
b=len([分母字段])
if a>b:
s=a
else:
s=b
p=[首字段]+'\n'+ ' '*d+[分母字段] + "<CHR spacing = '-20'>" + '-'*s + "</CHR>"+ [尾字段]+ ' '*c +'\n'+ [分子字段]
return p

 

7、后三分式：“解析程序(P)”-VBScript（勾选“高级”），矢量数据：林草综合

FUNCTION strlen(str)
dim p_len
p_len=0
strlen=0
p_len=len(str)
FOR xx=1 to p_len
IF asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
ELSE
strlen=int(strlen) + 1
END if
NEXT
END function
FUNCTION myFind(cunname,DJH,SHAPE_Area )
dim str
str=SHAPE_Area
dim d
d=strlen(str)
dim d1
dim d2
d1=strlen(cunname) /2
d2=strlen(DJH) /2
if d2>d1 then
d1=d2
end if
myFind = cunname & space(d) &vbnewline & string(d1,"—") & str& vbnewline & DJH & space(d)
END Function
Function FindLabel([DLBM],[DLMC],[shape_area] )
FindLabel = myFind([DLBM],[DLMC],Round([shape_area]*3/2000,1) &"亩" )
End Function

 

8、前三分式：“解析程序(P)”-VBScript（勾选“高级”），矢量数据：林草综合

FUNCTION strlen(str)
　　dim p_len
　　p_len=0
　　strlen=0
　　p_len=len(str)
　　FOR xx=1 to p_len
　　　　IF asc(mid(str,xx,1))<0 then
　　　　　　strlen=int(strlen) + 2
　　　　ELSE
　　　　　　strlen=int(strlen) + 1
　　END if
　　NEXT
END function
FUNCTION myFind( cunname,? DJH,SHAPE_Area )
　　dim str
　　str=SHAPE_Area
　　dim d
　　d=strlen(str)
　　dim d1
　　dim d2
　　d1=strlen(cunname) /2
　　d2=strlen(DJH) /2
　　if d2>d1 then
　　　　d1=d2
　　end if
　　myFind ="　" & space(d-1) &cunname & vbnewline? & str & string(d1, "—") & vbnewline & space(d) & DJH
END Function
Function FindLabel ([shi],[xian],[xiang],[dlmc],[tbmj],[sjnf],[dc_ry])
　　FindLabel = myFind( [xian] & "-" & [dlmc] & "（" & [tbmj] & "）",[xiang] & "-" & [sjnf] & "-" & [dc_ry], [shi])
End Function

 

9、四分式：“解析程序(P)”-VBScript（勾选“高级”），矢量数据：林草综合

FUNCTION strlen(str)
　　 dim p_len
　　 p_len=0
　　 strlen=0
　　 p_len=len(str)
　　 FOR xx=1 to p_len
　　　　 IF asc(mid(str,xx,1))<0 then
　　　　　　 strlen=int(strlen) + 2
　　　　 ELSE
　　　　　　 strlen=int(strlen) + 1
　　　　 END if
　　 NEXT
END function
FUNCTION myFind( cunname,? DJH,SHAPE_Area,lb )
　　 dim str
　　 str=SHAPE_Area
　　 dim d
　　 d=strlen(str)
　　 dim d1
　　 dim d2
　　 d1=strlen(cunname) /2
　　 d2=strlen(DJH) /2
　　 if d2>d1 then
　　　　　　 d1=d2
　　 end if
　　 myFind ="　" & space(d-1) &cunname & vbnewline? & str & string(d1, "—") & lb & vbnewline & space(d) & DJH
END Function
Function FindLabel ([shi],[xian],[xiang],[dlmc],[tbmj],[sjnf],[dc_ry],[sheng])
　　 FindLabel = myFind( [xian] & "-" & [dlmc] & "（" & [tbmj] & "）",[xiang] & "-" & [sjnf] & "-" & [dc_ry], [shi] ,[sheng])
End Function