Klik op het logo voor hulp op afstand
  
 
 
 
 
 
 
 




Breedte en hoogte van een contour opvragen


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




 |  History  |
 
 

 
 
 
TECHWIN SOFTWARE
De Regenboog 11
B-2800 Mechelen
T +32(0)15 44 64 64
T +31(0)30 899 32 15 Nederland