PartByReferencedPart

Object for the functionality 'Dependent part'.


Example PartByReferencedPart

 


Example PartByReferencedPart

START 59

 

rem active part

FUNC delete activePart

FUNC Part activePart

FUNC activePart.StoreActive()

 

rem dependent part

FUNC delete prp

FUNC PartByReferencedPart prp

FUNC prp.SetPart(activePart)

FUNC prp.Exec()

 

rem get new part

FUNC delete newPart

FUNC Part newPart

FUNC prp.GetNewPart(newPart)

FUNC %b:= prp.Done()

 

REM activate new part

if (b <> 0) then

    FUNC newPart.SetActive()

ifend

 

FUNC delete prp

FUNC delete activePart

FUNC delete newPart

 

END

Class for Actions (FUNC)