Lua脚本实现检查外业核查地类图斑

lid&＃61;require("LuaiData")local function s2i(str) --转成 idata所需的格式return lid.String(str)
end--start
if not lid.isDocumentActived() thenprint(&＃39;未打开文档&＃39;)return
endentList &＃61; lid.iDataEntityList() --表示所有实体列表当前为Empty
nameList &＃61; lid.StringList()
nameList:push_back(s2i(&＃39;DLTB&＃39;)) --根据图层名 pushBack到列表中
err&＃61;lid.iDataSSGetX(entList, nameList, false, 0) --err类似于bool
if not err&＃61;&＃61;lid.iData.eOk thenlid.iDataPrintf(s2i(&＃39;选择失败&＃39;))return
endif entList:size() &＃61;&＃61; 0 then --表示含DLTB的实体个数lid.iDataPrintf(s2i(&＃39;指定图层没有实体&＃39;))return
endm &＃61; 0for i&＃61;0,entList:size()-1 do e &＃61; entList[i]v &＃61; e:getXData(s2i(&＃39;WYMARK&＃39;)) --获取每个实体外业核查标记数值 保存到v if v:toInt() &＃61;&＃61; 1 then m &＃61; m &＃43; 1 -- 判断外业核查标记数值是否为1 记录对应检查个数m
else
end
end
percentCheck &＃61; string.format("%.3f",m/(entList:size()) ) -- 获得已检查图斑所占比例并保留三位小数
lid.BasicUI.InformationBox(s2i(&＃39;外业核查地类图斑结果&＃39;),s2i(&＃39;当前已外业核查地类图斑数量为:&＃39;..tostring(m)))
lid.BasicUI.InformationBox(s2i(&＃39;外业核查地类图斑结果&＃39;),s2i(&＃39;核查地类图斑所占比例为:&＃39;..tostring(percentCheck)))entList &＃61; nil --释放内存
nameList &＃61; nil