ArcGIS102 学习课程——4专题图制作和地图打印.ppt

单一专题 4.专题图制作和地图打印输出\中国地图渐变.mxd 4.专题图制作和地图打印输出\点符号旋转.mxd 4.专题图制作和地图打印输出\按百分比透明.mxd 4.专题图制作和地图打印输出\一个图层两个对象顺序调整.mxd 4.专题图制作和地图打印输出\两个图层之间融合.mxd 建立图层组 提供的符号库 面填充符号 在:fh\ed-fh.style 提供的符号库 线符号 字体 在:\fh\字体下 地类符号生成 软件:\4.专题图制作和地图打印输出\地类符号生成 界面 数据:4.专题图制作和地图打印输出\地类符号.mxd 自己做的图例 4.专题图制作和地图打印输出\图例\土地利用现状图.mxd 1、简单标注字段—有些标注部分 只部分标注，或则不同标注不一样,见同一个图层不同标注.exe 2、复杂标注 二分式注记 三分式 上下标 等高线注记 沿路标注 简单二分式 und [DLMC] /und vbcrlf [地类代码] 或则 und [DLMC] /und vbnewline [地类代码] 或则und [DLMC] /und chr(13) chr(10) [地类代码] 4.专题图制作和地图打印输出\标注\各种标注.mxd 换行三种表示方法 Vbcrlf Vbnewline chr(13) chr(10) Vb不区分大小写 二分式美观 格式:4.专题图制作和地图打印输出\分式标注.mxd 二分式代码美观 设计人：闫磊 ----------FUNCTION MYFINDLABEL ---------- FUNCTION myFindLabel ( DZM, NAME ) a=strlen(dzm) b=strlen(NAME) IF ab then myFindLabel =und DZM/und vbcrlf NAME ELSE str= space((b-a)/2) myFindLabel =und str DZMstr/und vbcrlf NAME END if END Function 代码续 ----------FUNCTION STRLEN(STR)---------- 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 编制日期:2012-03-25 Function FindLabel ( [地类代码] , [DLMC] ) FindLabel = myFindLabel( [地类代码] , [DLMC]) End Function 三分式原始的 原始代码 [DLMC] vbcrlf -------- [TBMJ] 公顷 vbcrlf [地类代码] 三分式美观 设计人：闫磊 ----------FUNCTION STRLEN(STR)---------- 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 MYFINDLABEL ---------- FUNCTION myFindLabel ( 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 d2d1 then d1=d2