PartByReferencedPart

Objekt für die Funktionalität 'Abhängiges Teil'.

Beispiel PartByReferencedPart

 


Beispiel PartByReferencedPart

START 59

 

rem aktives Teil

FUNC delete activePart

FUNC Part activePart

FUNC activePart.StoreActive()

 

rem Abhaengiges Teil

FUNC delete prp

FUNC PartByReferencedPart prp

FUNC prp.SetPart(activePart)

FUNC prp.Exec()

 

rem neues Teil besorgen

FUNC delete newPart

FUNC Part newPart

FUNC prp.GetNewPart(newPart)

FUNC %b:= prp.Done()

 

REM Das neu entstanden Teil zum aktiven machen

if (b <> 0) then

    FUNC newPart.SetActive()

ifend

 

FUNC delete prp

FUNC delete activePart

FUNC delete newPart

 

END

Die Klasse für Aktionen (FUNC)