/* Check operations after calculations */
/* Gunter Selleslagh - December 2017 */
/* Current project */
ClearMsgPane();
CurPro := GetCurrentProject();
if CurPro = Nil then halt;
i := 0;
while i < CurPro.ProjectData.ChildCount do /* assemblies */
{ CurGroep := CurPro.ProjectData.Children[i];
if CurGroep.IsAssembly && !CurGroep.Locked then
{ j := 0;
while j < CurGroep.ChildCount do /* frames */
{ CurFrame := CurGroep.Children[j];
k := 0;
while k < CurFrame.ChildCount do /* profiles */
{ CurFrameElement := CurFrame.Children[k];
if CurFrameElement.IsFrameElement && CurFrameElement.IsProfile then
{ if CurFrameElement.C_MOPCOUNT > 0 then
{ n := 0;
while n < CurFrameElement.C_MOPCOUNT do /* Bewerking ondervragen */
{ miId := CurFrameElement.C_MOPID[n];
miMop := CurFrameElement.C_MOPCODE[n];
miOfs := CurFrameElement.C_MOPOFFSET[n];
miCor := CurFrameElement.C_MOPCORRECTION[n];
miPos := CurFrameElement.C_MOPPOSITION[n];
; MsgBox('Operation ' + miMop + ' on ' + NumToStr(miOfs,8,2) + 'mm');
if miOfs > 0 then
{ n := CurFrameElement.CreateMop(n); /* Bewerking dupliceren */
if n <> -1 then
{ miMop := miMop + '_X'; miOfs := miOfs + 100.0;
CurFrameElement.ModifyMop(n,miMop,miPos,miOfs,miCor); /* Wijzigen bewerking */
Break;
};
n := n + 1;
}
else
{ CurFrameElement.DeleteMop(n); /* Berwerking verwijderen */
};
};
};
};
k := k + 1;
};
j := j + 1;
};
};
i := i + 1;
};