VariantCreation

Object for the creation of a design variant.


Example VariantCreation


Example VariantCreation

START 59

 

rem active part

FUNC delete activePart

FUNC Part activePart

FUNC activePart.StoreActive()

 

rem Create variant if the active part is in a processing variant

FUNC %b1 := activePart.IsInDesignVariantBase()

if b1 <> 0 then

    FUNC delete varCreate

    FUNC VariantCreation varCreate

    FUNC varCreate.Init (activePart)

    FUNC varCreate.SelectFile ()

    FUNC %b2 := varCreate.FileOk()

    if b2 <> 0 then

        FUNC varCreate.Create ()

    ifend

 

else

    wait no variant

ifend

 

END

Class for Actions (FUNC)