frei bewegliche Linie snapt auf x-Achse

[dihes8010]

Danke für Hilfe

habe mir ein Aufmasstool gebaut
das funktioniert auch weitgehend ...
das Problem:
muss den y-Wert zu Fuss eingeben, damit der Fangpunkt auch nach y beweglich wird
sobald der Fangpunkt per Maus wieder auf x liegt, muss ich erneut y händisch eingeben

---
nTrs = 0: UnId = 1
pen penCol

a2 = A/2

pxs = arrX/1000*GLOB_SCALE
pys = pxs /3

hotspot2 0,0
hotspot2 a,b

varW = atn(b/a)
varL = a/cos(varW)
lx=varL-pxs

rot2 varW :nTrs=nTrs+1

! --- Arrow
line_type 1
POLY2 3, 1+4,
lx, pys,
lx+pxs, 0,
lx, -pys

if arrDoub then
line_type pTyp :line2 pxs, 0, lx, 0
line_type 1
POLY2 3, 1+4,
pxs, pys,
0, 0,
pxs, -pys
else
line_type pTyp :line2 0, 0, lx, 0
line_type 1 :circle2 0,0,pys/2
endif

hotline2 0, 0, varL, 0
---
dann folgt noch die Beschriftung ...

[Frank Beister]

Wenn du die Objektabmessungen verwendest und die automatisch beweglichen Fangpunkte auf der Bounding Box gibt es wohl keinen anderen Weg. Wenn du aber bewegliche Fangpunkte für A und B programmierst, kannst du prüfen, ob y unter einer gewissen Toleranz ist (+/-2cm vielleicht) und dann den beweglichen y -Wert auf die halbe X-Länge setzen.