折线分割（Broken line segmentation）.docVIP

折线分割（Broken line segmentation） dim lyr as mapxlib. layer dim ds as mapxlib dataset. dim istemplayer as boolean 判断是否临时图层 dim divideyn as boolean 判断是否按下图元分割按钮 updateflag as integer dim private sub featuredivide () 在选中图元上画线, 为分割后处理作准备 set lyr = map1.layers (1) divideyn = true if lyr.selection.count 1 then 判断是否只选中一个图元, 若不是则退出当前过程 msgbox 分割前请先选择一个图元! divideyn = false exit sub end if if lyr.selection (1) locally mifeaturetyperegion then 若选中的图元不是区域图元则退出 msgbox 请在分割前选择一个区域图元! divideyn = false exit sub end if lyr editable = true. set map1.layers.insertionlayer = lyr map1.currenttool = miaddlinetool 改变成添加直线的工具 end sub private sub featuredivided () 分割后处理 dim lineftr as mapxlib. feature tempftr as mapxlib. feature regoinftr as mapxlib. feature regoinftr1 as mapxlib. feature regoinftr2 as mapxlib. feature dim lyr as mapxlib. layer dim ftrfac as mapxlib.featurefactory, ftrnew1 as mapxlib. feature ftrnew2 as mapxlib. feature dim itstpts as mapxlib. points, pts1 as new mapxlib. points, pts2 as new mapxlib. points ptschange as boolean dim, i as integer, j as integer dim ds as mapxlib. dataset, flds as mapxlib fields dim minx as double, miny as double, maxx as double, maxy 存储前后两点的坐标值 as double set lyr = map1.layers (1) lyr指向最上层图层 set lineftr = lyr.allfeatures (lyr.allfeatures.count) 返回最后一个图元 set regoinftr = lyr.selection (1) regoinftr指向当前已选中的区域图元 set ftrfac = map1.featurefactory on error resume next set ds = map1.datasets.add (midatasetlayer, lyr, ) set flds = ds fields if not ersectiontest (regoinftr, lineftr, mapxlib.miintersectfeature) then 若不相交, 提示退出 msgbox 线与所选区域不相交, 无法分割, 请重新操作! divideyn = false lyr.deletefeature lineftr map1.currenttool = miselecttool exit sub end if set itstpts = ersectionpoints (regoinftr, lineftr) if itstpts. count 2. msgbox 直线与区域图元并未相交于两点, 请重新操作! divideyn = false lyr.deletefeature lineftr map1.currenttool = miselecttool exit sub end if if regoinftr.parts.count 1 then msgbox 图元太复杂, 无法分割! divideyn = false lyr.deletefeature lineftr map1.currenttool =