用Delphi作选择集，选择区域为以点（x,y)为中心的矩形区域。为何提示“未指定的错误
用Delphi作选择集，选择区域为以点（x,y)为中心的矩形区域。为何提示“未指定的错误”？var sset:OleVariant;ProcedureTFormEdit.DoTrimBeam(x,y:double);
var FilterType,FilterData,gpCode,dataValue:variant;
var Point,point1,point2:variant;
var i:integer;
begin
sset:=ac.SelectionSets.Add('SS1');
Point:=VarArrayCreate(, vardouble);
gpCode:=VarArrayCreate(, varInteger);
dataValue:=VarArrayCreate(, varVariant);
FilterType:=VarArrayCreate(, varInteger);
FilterData:=VarArrayCreate(, varVariant);
point1:=VarArrayCreate(, vardouble);
point2:=VarArrayCreate(, vardouble);
Point1:=x*1000.0-2000.0;Point1:=y*1000.0-2000.0;Point1:=0.0;
Point2:=x*1000.0+2000.0;Point2:=y*1000.0+2000.0;Point2:=0.0;
Point:=x*1000.0-2000.0;Point:=y*1000.0-2000.0;Point:=0.0;
Point:=x*1000.0+2000.0;Point:=y*1000.0-2000.0; Point:=0.0;
Point:=x*1000.0+2000.0;Point:=y*1000.0+2000.0;Point:=0.0;
Point:=x*1000.0-2000.0;Point:=y*1000.0+2000.0;Point:=0.0;
gpCode:=8 ;
dataValue:=LayerConcreteColumn;
gpCode:=8;
dataValue:=LayerConcreteColumn;
gpCode:=8;
dataValue:=LayerConcreteColumnA;
gpCode:=8;
dataValue:=LayerConcreteColumnKZ;
gpCode:=8;
dataValue:=LayerConcreteColumnKZA;
for i:=0 to 4 do
begin
FilterType:=gpCode;
FilterData:=dataValue;
end;
sset.SelectByPolygon(1,Point,FilterType,FilterData);
end;
页:
[1]