ArcGIS产品及功能介绍教程文件.pptVIP

2、复杂标注(中级） 1分式注记 [UseCode] vbnewline —————vbnewline [ObjName] 复杂分式 [UseCode] vbnewline [ParcelNo] ———— vbnewline [ObjName] 2、复杂标注 2、分式注记 [UseCode] vbnewline ———— [ParcelNo] vbnewline [ObjName] 2、复杂标注 3一个字段分行表示 Function FindLabel ( [SitName] ) FindLabel = mid([SitName],1,4) vbnewline mid([SitName],5,len([sitname])-4) End Function 标注显示一位小数 （高级） Function FindLabel ( [PERIMETER] ) if abs(round([PERIMETER],0)-[PERIMETER] )0.01 then FindLabel = [PERIMETER] .0 else FindLabel = round([PERIMETER],1) end if End Function 标注显示四位小数 方法二（高级） Function FindLabel ( [newarea] )