Voortaan kan men op eenvoudige wijze de breedte en hoogte van een kader opening, een vleugel deel en een vleugel opening contour via scripting opvragen.
Scripting object FRAMEOPENING, VENTPART en VENTOPENING voorzien van extra eigenschappen om de breedte en de hoogte van de contour definitie op te vragen:
FRAMEOPENING.DEFINITION.FRAMEWIDTH
FRAMEOPENING.DEFINITION.FRAMEHEIGHT
FRAMEOPENING.DEFINITION.VENTWIDTH
FRAMEOPENING.DEFINITION.VENTHEIGHT
VENTPART.DEFINITION.CONTOURWIDTH
VENTPART.DEFINITION.CONTOURHEIGHT
VENTOPENING.DEFINITION. CONTOURWIDTH
VENTOPENING.DEFINITION. CONTOURHEIGHT
Onderstaande een voorbeeld script waarin de breedte en hoogte van de kader opening contour worden opgevraagd :
/* retrieve FRAME OPENING DIMENSIONS */
/* Gunter Selleslagh - May 2014 */
/* 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 /* frame openings */
{ CurObject := CurFrame.Children[k];
if CurObject.IsFrameOpening then
{ CurOpening := CurObject;
sWidth := NumToStr(CurOpening.Definition.FrameWidth,7,0);
sHeight := NumToStr(CurOpening.Definition.FrameHeight,7,0);
ShowMessage('Dimensoins = ' + sWidth + ' x ' + sHeight);
};
k := k + 1;
};
j := j + 1;
};
i := i + 1;
};
};
<< Terug