PointOption

Objekt für eine Punktoption.

Eine Punktoption ist die Definition eines Punktes über seine Konstruktion, also Endpunkt einer Kante genauso wie die Mitte zwischen zwei Punkten. Möglich sind (fast) alle 3D-Punktoptionen des Punktoptionsmenüs.

Beim Zugriff auf die Punktoption (Abfrage der Koordinaten) oder, wenn die Punktoption einer Punkt-Variablen zugewiesen worden ist, wird die Punktoption neu ausgewertet. Wenn in der Punktoption Koordinaten vorkommen (Absolut, Relativ, Polar, ..), wird dann das aktive Koordinatensystem verwendet.

Auf die Punktoption kann solange zugegriffen werden, wie 'Exists' true liefert. Änderungen an der HiCAD-Datenstruktur wie Löschen von Teilen oder das Bearbeiten des Teil führt nicht dazu, dass man mit dem PointOption-Objekt nicht mehr arbeiten kann.

Beispiel PointOption

 


Beispiel PointOption

START 59

 

FUNC delete sel

FUNC Selection sel

 

FUNC delete vars

FUNC Variables vars

 

FUNC delete activePart

FUNC Part activePart

 

FUNC delete po

FUNC PointOption po

 

REM neu definierte Punkoptionen sind leer

FUNC %b:= po.Empty()

if (%b <> 0) then

    wait Punkoption belegt

else

    wait Punkoption nicht belegt

ifend

 

REM Variablen des aktiven Teils

FUNC activePart.StoreActive()

FUNC vars.MakeVars(activePart)

 

REM Daten der Variablen auf die Punktoption übertragen

FUNC vars.GetPointVar ("p1", po)

 

REM Wenn die Variable vorhanden war, ist die Punktoption jetzt belegt.

FUNC %b:= po.Empty()

if (%b <> 0) then

    wait Punkoption belegt

else

    wait Punkoption nicht belegt

ifend

 

REM Punktoption leeren

FUNC po.Clear()

 

FUNC %b:= po.Empty()

if (%b <> 0) then

    wait Punkoption belegt

else

    wait Punkoption nicht belegt

ifend

 

REM Punktoption selektieren

FUNC sel.SetText("Bitte Punkt auswählen")

FUNC sel.Select(po)

 

REM Wenn die Selektion nicht abgebrochen worden ist, ist die Punkoption jetzt belegt

FUNC %b := po.Empty()

if b <> 0 then

    wait abgebrochen

else

    wait Punktoption gewählt

 

    REM Koordinaten der Punktoption anzeigen

    FUNC %x:= po.x()

    FUNC %y:= po.y()

    FUNC %z:= po.z()

    wait %x

    wait %y

    wait %z

    

    REM Punktoption auf der Variablen 'p1' speichern

    FUNC vars.SetPointVar ("p1", po)

ifend

 

END

Die Klasse für HiCAD-Elemente (FUNC)