Blind GOST 16076-70

Object

Table

Graphic

Script:

SVersion = 2;
ObjectDescription = "16076-70";
 
functionActHeader {
  NPart = 0;
  Public (
     // From outdoor settings need only determine the face
     // Diameter of a working surface for attachment
     // Material and reference weight.
     Dn,NOMINAL_DIAMETER,
     massa,MASS,
     sw0, @ MATERIAL,
     WP1, @ WORKING_PLANE1
  );
  
  Protected (seted, d, D, D1, D2, D3, D4, l, l1, L, type, type1);
  Changeable (Dn, WP1);
  OnDlgBeforeSelectParam = 1;
  ShowWhenSelPnt = 1;
  ContourOnLine = 0;
};
 
function OnInitialization {
  LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
  if (seted == UnknownValue) {
     seted = 1;
     rZOrder = 100;
     // In the 6th version of all the titles in English versions
     // 1 = Implementation Ispolnenie1
     strDesignName = "Implementation 1";
     rd0 = 1;
     sw0 = 1;
    
     SelectInCache ("kFirst", "Dn", "~", 18);
  };
};
 
function SetGripPoint {
  NGrip = 1; // A handle at the insertion point
  pntGrip0 = pntOrigin;
};
 
function OnMakeParameters {
  // All localizable strings specified resource links
  // Starting with the dog.
  // Accordingly, they will be displayed depending on
  // The current application language.
  //
  strTheName = @ BLIND_GOST_16076_70;
  strTheType =ON_INTERNAL;
  strTheSubType =ON_INTERNAL;
  WP1 = Plane (pntOrigin + vecDirection * (0), vecDirection);
  
 
  if (rd0 == 0) type = "022";
  if (rd0 == 1) type = "012";
 
  if (sw0 == 1) type1 = "A"; else type1 = "";
  
};
 
function OnDialog {
  LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
  UniDialog (
     // Type of dialogue - which determines the nominal diameter
     // And reference weight
     DBFLD, Dn,
     DBINF, massa,
     // Jackdaw overall performance
     BFLD, sw0,COMMON_IMPLEMENTATION,
     // Alternative Material
     RADIO, rd0, @ STEEL_45, @ 12X18H9T__X18H9T_,
     // These options affect the string specification covers
     VIEW, "Vids");
};
 
function OnDialogChanged {
 
};
 
function OnChangeParameters {
  if ((Dn! = new.Dn)) {
     LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
     // When you change the diameter of the table, select the new value
     SelectInCache ("kFirst", "Dn", "~", new.Dn);
  };
  Handled = OBJ_HANDLED;
  if ((Dn! = new.Dn)) {
     Handled = OBJ_WARNING;
  };
  fix = 0;
  if (IsFixedParam (WP1)) {
     fix = fix + 1;
     vecXOld = vecDirection;
     vecDirection = Vector (new.WP1);
     pntOrigin = Point (new.WP1) - vecDirection * (0);
     restoreBasis (vecXOld, vecPlane, vecDirection);
  };
  if (fix > 1) {
     Handled = OBJ_ERROR;
  };
};
 
function BeforeConnect {
  ResetLastConstraint ();
}
 
strPartName = @ SPHERE_CAP_ + Dn + "-" + type + type1 + @ _ GOST_16076_70;