© 1999-2048 dssz.net 粤ICP备11031372号
[交通] eps自动分副并转dgn
说明: '统计字符串中是否有文字,是否全是数字 Function hasnoChinese(str) bl = True For i = 1 to Len(str) - 0 'ss=CStr(Asc(Mid(str,i,1))) 'msgbox ss If Asc(Mid(str,i,1)) < 0 Then bl = False End If Next hasnoChinese = bl End Function Function UnAdjustNote(FontClass,dx,dy,wi<tdm_gis> 上传 | 大小:3kb