1,添加底图--模板《a4》纵向
2修改动态文本 宗地代码:<dyn type="page" property=“djh”"/>
土地权利人:<dyn type="page" property="QLR"/>
所在图幅号:<dyn type="page" property="SZTF"/>
宗地面积:<dyn type="page" property="Shape_Area"/>
3标注: 宗地:Function FindLabel ([DJH], [QLR])
if ([QLR] = "" or isnull([QLR])) then FindLabel =Right([DJH],7)
if (len([QLR])>3) then FindLabel = "<UND>"& [QLR] &"</UND>"&chr(13)&chr(10)& Right([DJH],7)
if (len([QLR])<=3) then FindLabel = "<UND>_"& [QLR] &"_</UND>"&chr(13)&chr(10)& Right([DJH],7)
End Function
面状居民地:Function FindLabel ([FWJG],[FWCS])
dim b
dim a
a = [FWCS]
b = [FWJG]
Select Case b
Case "1"
b = "钢"
Case "2"
b = "混合"
Case "3"
b = "砼"
Case "4"
b = "混"
Case "5"
b = "砖"
Case "6"
b = "其它"
End Select
if(a="1") then FindLabel = b
if (a<>"1") then FindLabel = b&a
End Function
自然幢:Function FindLabel ([BZ] ,[FWCS] )
var=[FWCS]
FindLabel = [BZ]&[FWCS]
End Function
界址线:Function FindLabel ( [BZ] , [JZXCD] )
var1 = [BZ]
var2 = [JZXCD]
var3 = round(var2 ,2)
if (var1 = "1" ) then FindLabel = Formatnumber(var3,2,-1,-1,0) end if
End Function
界址点:"J"&[BZ]