Kader en vleugel deel objecten voorzien van extra eigenschappen breedte en hoogte door middel van een “optionele” index op te geven.
Eigenschappen WIDTH en HEIGHT voor objecten FRAMEPART en VENTPART bestonden reeds maar werden uitgebreid met een optionele index.
Voor het object FRAMEPART betekent dit :
WIDTH (bruto breedte kaderdeel)
HEIGHT (bruto hoogte kaderdeel)
WIDTH[0] (bruto breedte kaderdeel)
HEIGHT[0] (bruto hoogte kaderdeel)
WIDTH[1] (netto breedte kaderdeel)
HEIGHT[1] (netto hoogte kaderdeel)
Voor het object VENTPART betekent dit :
WIDTH (breedte vleugel deel)
HEIGHT (hoogte velugeldeel)
WIDTH[0] (breedte vleugel deel)
HEIGHT[0] (hoogte velugeldeel)
WIDTH[1] (beslag breedte vleugeldeel)
HEIGHT[1] (beslag hoogte vleugeldeel)
Voorbeeld van een script welke de netto breedte en netto hoogte van het kaderdeel in bovenstaande afbeelding opvraagt :
/* Opvragen van kader deel afmetingen */
/* Gunter Selleslagh - 2013 */
/* Current project */
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];
sWidth := NumToStr(CurFrame.Width[1],5,0) + 'mm';
sHeight := NumToStr(CurFrame.Height[1],5,0) + 'mm';
ShowMessage('Afmetingen = ' + sWidth + ' x ' + sHeight);
j := j + 1;
};
};
i := i + 1;
};