EPS非6位数编码合法性检查

因为上海地形图要求EPS中编码是6位数的。利用“设置分组选择条件SetSelectConditionGroup”和“添加检查记录AddCheckRecord”两个函数进行筛选非6数编码。以下是相关EPScript代码:

Sub OnClick()
#地形非6位合法性检查
SSProcess.ClearSelection  
SSProcess.ClearSelectCondition  
SSProcess.ClearSelectConditionGroups  
#设定分组选择过滤条件，可以把满足不同条件的纳入选择集中
SSProcess.SetSelectConditionGroup "非6位数","SSObj_Type", "=", "POINT,LINE,AREA"
SSProcess.SetSelectConditionGroup "非6位数","SSObj_Code", "<", "100000" 
SSProcess.SetSelectConditionGroup "非6位数","SSObj_Code", ">", "999999"
SSProcess.SelectFilter  
SSProcess.RemoveCheckRecord "基本属性检查","编码位数合法性检查"     #删除检查记录
geocount=SSProcess.GetSelGeoCount  
#利用For循环查找非法编码
for i=0 to geocount-1
	geoId=SSProcess.GetSelGeoValue( i, "SSObj_ID" )#获取错误要素的ID
	SSProcess.GetSelGeoPoint i,0,x,y,z,ptype,name  #获取当前选择集指定注记的空间点信息。这一步主要是为了得到错误标记的位置
	#AddCheckRecord group, check, checkmodel, description, x, y, z, objtype, geoids, noteids 函数
	#需要填写<检查组名group>、<检查项名check>、<检查模型名称checkmodel>(可不填)、<错误位置x y z>、<地物ID：geoids>。其他默认
	#SSProcess.AddCheckRecord "基本属性检查","编码位数合法性检查","自定义脚本检查类->编码位数合法性检查","编码位数不等于6", x, y, z, objtype, geoId,noteids
	SSProcess.AddCheckRecord "基本属性检查","编码位数合法性检查","","编码位数不等于6",x,y,z,objtype,geoId,noteids
next
SSProcess.ShowCheckOutput    #显示检查结果
End Sub

<为了方便注记显示，将 “ ’ ”更换成了 “ # ”>