VariantCreation

Objekt für die Erzeugung einer Designvariante.

Beispiel VariantCreation

 


Beispiel VariantCreation

START 59

 

rem aktives Teil

FUNC delete activePart

FUNC Part activePart

FUNC activePart.StoreActive()

 

rem Falls das aktive Teil in einer Bearbeitungsvariante liegt, Variante erzeugen

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 keine Variante

ifend

 

END

Die Klasse für Aktionen (FUNC)