DefineParts

An event used for modifying the default part component and or add extra part components.

The procedure is called once for each Qty returned by the GetQty function.

Note! The Part and Element properties on aWrapper are not available at this point.

Element can be set in the script if aWrapper.Position needs to be accessed. That way CalWin knows which element the Position should be in reference to.

Note! If ElementId is modified from the script, consider also to set DisableElementSearch to True to take full control and prevent the built in element search to start searching from the script-modified ElementId.

Example of modifying "Main component"

To modify ElementId or Length of the default part defined on the Hinge/Lock option, set a new ElementId and/or Length on the first item (aDefinition.PartDefinitions.Items[0])

procedure DefineParts(aWrapper: TWorkWrapper; aDefinition: TPartDefinitionWrapper);
begin
  aDefinition.PartDefinitions.Items[0].ElementId := 75101;
  aDefinition.PartDefinitions.Items[0].Length := 400;
end;

Example of adding "extra components"

procedure DefineParts(aWrapper: TWorkWrapper; aDefinition: TPartDefinitionWrapper);
var
  vPartDef : TPartDefinition;
begin
  vPartDef := aDefinition.AddDefinition;
  vPartDef.ElementId := 7098;
  vPartDef.Length := 100;
end;