function ModelMan.GetDimInfo(sideId: string): ArrPath;
var
side:EnumSides;
objDimPers:ModelPerspective;
obj,rawObj,re:ArrPath;
sideInfo:ModelSideInfo;
key:integer;
begin
side:=XY;
if sideId='XY' then side:=XY;
if sideId='XZ' then side:=XZ;
if sideId='YX' then side:=YX;
if sideId='YZ' then side:=YZ;
if sideId='ZX' then side:=ZX;
if sideId='ZY' then side:=ZY; objDimPers:=ModelPerspective.Create; objDimPers.SetVisibleMode(true); obj:=objDimPers.Translation(Self.GetPaths,side); result:=obj; objDimPers.SetMeasureMode(false);
//反回一个自定义数组
rawObj:=objDimPers.Translation(Self.GetDimPaths,side); setlength(re,high(rawObj));
for key:=0 to high(rawObj)-1 do
begin
sideInfo:=rawObj[key].GetSideInfo(side);
if sideInfo.GetVisible then
//只要经过这处理在反回时
re[key]:=rawObj[key];
end; GetDimInfo:=re;--------------------->Invalid pointer error!
请各位大侠指点,小弟在线等带.相当着急,拜托了!end;
var
side:EnumSides;
objDimPers:ModelPerspective;
obj,rawObj,re:ArrPath;
sideInfo:ModelSideInfo;
key:integer;
begin
side:=XY;
if sideId='XY' then side:=XY;
if sideId='XZ' then side:=XZ;
if sideId='YX' then side:=YX;
if sideId='YZ' then side:=YZ;
if sideId='ZX' then side:=ZX;
if sideId='ZY' then side:=ZY; objDimPers:=ModelPerspective.Create; objDimPers.SetVisibleMode(true); obj:=objDimPers.Translation(Self.GetPaths,side); result:=obj; objDimPers.SetMeasureMode(false);
//反回一个自定义数组
rawObj:=objDimPers.Translation(Self.GetDimPaths,side); setlength(re,high(rawObj));
for key:=0 to high(rawObj)-1 do
begin
sideInfo:=rawObj[key].GetSideInfo(side);
if sideInfo.GetVisible then
//只要经过这处理在反回时
re[key]:=rawObj[key];
end; GetDimInfo:=re;--------------------->Invalid pointer error!
请各位大侠指点,小弟在线等带.相当着急,拜托了!end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货