打开网易新闻 查看精彩图片

'----------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 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 ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况],[类别] )
FindLabel = myFind( [林种] & "-" & [小班面积] & "（" & [完成面积] & "）",[树种] & "-" & [密度] & "-" & [完成情况], [小班号],[类别])
End Function

打开网易新闻 查看精彩图片

文 章来源

GISAI

联系/合作 214979525（微信）

干货精选

页面底部→关注中测网

对话框发送对应【关键词】获取精选内容

【航测】 无人机作业流程、规范、案例

【规范】 测量规范、常用Excel表格

【GIS】 ArcGIS /MapGIS技巧、快捷键

【资质】 测绘资质查询 /申办、甲级名单

【定额】 测绘生产成本定额、勘察收费

【地图】 奥维/谷歌地图 shp矢量数据

【CASS】快捷键、高手技巧、操作视频

行业甄选

测绘行业综合服务平台

无人机

中国民航局CAAC执照，全国有考点

ASFCALPAAOPA

民用无人机经营合格证，新办/转换

民用无人机 企业服务能力甲级资质

空域申请代理服务，让飞行安全合法

测绘师

2024备考课件金考典习题APP

注册测绘师继续教育抵充20学时课程

其 他

住建部门《测量工》建协《测量员》

《工程测量员》技师 /高级技师（福州）

RTK无人船华测cors账号

求职/招聘信息发布帮推广您的业务