/* Gunter Selleslagh - september 2015 */
/* Current project */
CurPro := GetCurrentProject();
if CurPro = Nil then halt;
CurGroep := CurPro.ProjectData.CurrentAssembly;
if CurGroep = Nil then halt;
if AskYN('Spiegel constructie?') then
{ CurFun := FUN_MIRROR_MODEL;
}
else
{ CurFun := FUN_MIRROR_FRAME;
};
if AskYN('Onmiddelijk uitvoeren?') then
{ CurImmediate := True;
}
else
{ CurImmediate := False;
};
if CurGroep.IsAssembly && !CurGroep.Locked then
{ j := 0;
while j < CurGroep.ChildCount do /* assemblies */
{ CurFrame := CurGroep.Children[j];
if CurFun = FUN_MIRROR_FRAME then
{ k := 0;
while k < CurFrame.ChildCount do
{ CurObject := CurFrame.Children[k];
if CurObject.IsFrameOpening then
{ l := 0; CurOpening := CurObject;
if !CurObject.IsBasicFilling then
{ SelectEditorFunction(CurFun,True);
CurPro.SelectOne(CurOpening);
PerformEditorFunction(CurFun,CurImmediate);
if CurImmediate = False then
{ if AskYN('Zeker?') then
{ AcceptEditorFunction(CurFun);
}
else
{ CancelEditorFunction(CurFun);
};
};
};
l := l + 1;
};
k := k + 1;
};
}
else
{ SelectEditorFunction(CurFun,True);
CurPro.SelectOne(CurFrame);
PerformEditorFunction(CurFun,CurImmediate);
if CurImmediate = False then
{ if AskYN('Zeker?') then
{ AcceptEditorFunction(CurFun);
}
else
{ CancelEditorFunction(CurFun);
};
};
};
j := j + 1;
};
};