Da geht etwas ein wenig durcheinander. V.a. bei den Fangpunkten.
Schau dir mal auf selfgdl den Teil über die zweidimensionalen Fangpunkte an. Ich muss das hier nicht wiederholen. Zu zwei Kernfehlern:
- Fangpunkte benötigen einen Index. Dieser muss im Skript eindeutig sein.
- Bewegliche Fangpunkte brauchen eine Referenzrichtung. Bei der Länge=0 "rät" AC sonst in welche Richtung plus ist.
- Eine ganz schlechte Idee ist es den Parameter, der beweglich sein soll im Skript zu ändern (Hier: pos_x).
- Man kann in AC keinen Basispunkt definieren. Der Basispunkt, den Du meinst ist der Basispunkt für den beweglichen Fangpunkt.
Dein IF - THEN Konstrukt ist zwar zulässig, aber etwas unüblich. Wahrscheinlich ist der 2. Teil auch überflüssig, denn wenn die Ausrichtung nicht "rechts" oder "links" ist, kommt es zum Fehler. Besser ist es wie korrigiert.
Zu Deinem eigentlichen Problem: Mario hat das schon korrekt gesagt: Das Objekt ist genau an einem Punkt im Projekt verankert. Nimm alle Bibliotheken aus dem Bib-Manager und Du siehst die EInsetzpunkte. Im Objekt selbst ist dieser Punkt der Nullpunkt des Objektes. In der ersten Zeile in 2D und 3D (bzw. bis zur ersten Systemtransformation) ist die Kordinate 0/0 genau dieser Punkt.
Im Einstellungsdialog kannst Du zwar eine Referenz auf einen anderen Punkt setzen, das ändert aber nichts an der Systematik. Lediglich versucht AC bei Größenänderungen zu berücksichtigen, dass es das Objekt nach der Änderung so verschiebt, dass das Objekt an dem Punkt im Projekt fixiert bleibt. Das ist aber nicht sicher, dass AC das auch schafft, wenn genau dieser Punkt sich auch innerhalb des Objektes in der Position verändert. Jedenfalls versetzt das das Objekt. Also seinen Einsetzpunkt im Projekt. Alles innerhalb des Objektes bleibt aber auf den internen Objektnullpunkt bezogen. Weswegen z.B. auch Dein Text (bezogen auf die linke untere Ecke) mitrutscht und nicht fixiert bleibt.
Welcher Hotspot im Dialog als Referenz/Anker ausgewählt wurde, lässt sich im Skript übrigens nicht abfragen.
Hier Dein etwas redigierter Quelltext:
! Variablen
laenge = groesse -0.020
halb = laenge / 2
htspt = 1 ! Zähler Fangpunktindex
! Start Rechteck zeichnen
PEN stift_rechteck
RECT2 0,0,laenge,laenge
! Achsen
PEN stift_achsen
LINE_TYPE linie_achsen
LINE2 halb, 0, halb, laenge
LINE2 0 , halb, laenge, halb
! Innereien des Rechtecks
LINE_TYPE 1
diagonale = laenge * 0.088 ! ~ * SQR(2) / 4 / 4 ! Sinn?
LINE2 halb+diagonale, halb+diagonale, laenge-diagonale, laenge-diagonale
LINE2 halb-diagonale, halb+diagonale, diagonale, laenge-diagonale
LINE2 diagonale, diagonale, halb-diagonale, halb-diagonale
LINE2 laenge-diagonale, diagonale, halb+diagonale, halb-diagonale
! Hotspots
! Mitte
htspt = htspt + 1 : HOTSPOT2 halb, halb, htspt
! Ecken
htspt = htspt + 1 : HOTSPOT2 0, 0, htspt !!! lu
htspt = htspt + 1 : HOTSPOT2 0, laenge, htspt !!! lo
htspt = htspt + 1 : HOTSPOT2 laenge, 0, htspt !!! ru
htspt = htspt + 1 : HOTSPOT2 laenge, laenge, htspt !!! ro
! Ende Rechteck zeichnen
! Start Bezeichnung (Text)
IF seite="links" THEN
anker = 9
ADD2 0,0 : rtg = 1
ELSE
! IF seite = "rechts" THEN
anker = 7
ADD2 laenge,0 : rtg = -1
! ELSE
! ADD2 0,0 : rtg = 1
! ENDIF
ENDIF
! Text
DEFINE STYLE stil_bezeichung "Arial", 2, anker, 0
SET STYLE stil_bezeichung
PEN stift_bezeichung
gr = STR(groesse*1000,3,0)
bezeichnung="ZLDA\n" + gr
TEXT2 pos_x*rtg, pos_y, bezeichnung
!!Hotspots
MUL2 rtg,1
htspt = htspt + 1 : HOTSPOT2 0, 0, htspt, pos_x, 1 ! Basisfangpunkt
htspt = htspt + 1 : HOTSPOT2 pos_x, 0, htspt, pos_x, 2 ! beweglicher Fangpunkt
htspt = htspt + 1 : HOTSPOT2 -0.1, 0, htspt, pos_x, 3, pos_x ! Referenzpunkt
DEL 2
