已找到方法,如下
functiondo
IntersectPolygon(pShape1:IMOPolygon;
pShape2:IMORectangle): IMOPolygon;
var
pIntersect:IMOPolygon;
begin
pIntersect:= IMOPolygon(pShape1.Intersect(pShape2,varEmpty ));
do
IntersectPolygon:=pIntersect;
end;
function do
IntersectLine(pShape1:IMOLine;pShape2:IMORectangle):IMOLine;
var
pIntersect:IMOLine
begin
pIntersect:= IMOLine(pShape1.Intersect(pShape2,varEmpty ));
do
IntersectLine:=pIntersect;
end;