产品展示

Products Classification

ArcGIS 四分式标注实现

  • 产品时间:2022-10-31 22:18
  • 价       格:

简要描述:----------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 NEXTEND functionFUNCTION myFind(...

详细介绍
本文摘要:----------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 NEXTEND functionFUNCTION myFind(

爱游戏下载

'----------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 NEXTEND functionFUNCTION 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'体例日期:2012-03-25Function FindLabel ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况],[种别] ) FindLabel = myFind( [林种] & "-" & [小班面积] & "(" & [完成面积] & ")",[树种] & "-" & [密度] & "-" & [完成情况], [小班号],[种别])End Functio
本文关键词:ArcGIS,爱游戏app下载,四,分式,标注,实现,----------FUNCTION,STRLEN

本文来源:爱游戏app下载-www.lzplthg.com

 


产品咨询

留言框

  • 产品:

  • 留言内容:

  • 您的单位:

  • 您的姓名:

  • 联系电话:

  • 常用邮箱:

  • 详细地址:


推荐产品

Copyright © 2001-2022 www.lzplthg.com. 爱游戏app下载科技 版权所有 备案号:ICP备63001323号-4

在线客服 联系方式 二维码

服务热线

067-683130073

扫一扫,关注我们