Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Korrektur der z-Koordinaten durch Claude

Browse Source
This commit is contained in:
Michael Stangl
2026-05-06 19:47:14 +02:00
parent 1d62b20b0a
commit ad72c45cf2
1 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/VarioFoerderer.lsp
+20 -3
View File
@@ -446,12 +446,29 @@
(setq bogen-x1 (car mass1) bogen-x2 (car mass2))
(setq cosα (cos (* winkel (/ pi 180.0))) sinα (sin (* winkel (/ pi 180.0))))
(setq A (- deltaL aus-dx ein-dx bogen-x1 bogen-x2 (* FESTE_HORIZONTAL cos3)))
(setq B (- deltaH abs-dz-AUS abs-dz-EIN bogen-z1 bogen-z2 (* FESTE_HORIZONTAL sin3)))
(setq nenner (- (* cos3 sinα) (* sin3 cosα)))
(if (= richtung "Auf")
(progn
;; "Auf": L_GF geht bei 3° bergab (-sin3), L_VF geht bei α bergauf (+sinα)
;; Gleichungssystem: cos3·L_GF + cosα·L_VF = A
;; -sin3·L_GF + sinα·L_VF = B
(setq B (+ deltaH abs-dz-AUS abs-dz-EIN (- bogen-z1) (- bogen-z2) (* FESTE_HORIZONTAL sin3)))
(setq nenner (+ (* cos3 sinα) (* sin3 cosα)))
)
(progn
;; "Ab": Beide L_GF und L_VF gehen bergab (+sin3, +sinα)
;; Gleichungssystem: cos3·L_GF + cosα·L_VF = A
;; sin3·L_GF + sinα·L_VF = B
(setq B (- deltaH abs-dz-AUS abs-dz-EIN bogen-z1 bogen-z2 (* FESTE_HORIZONTAL sin3)))
(setq nenner (- (* cos3 sinα) (* sin3 cosα)))
)
)
(if (> (abs nenner) 0.0001)
(progn
(setq L_GF (/ (- (* A sinα) (* B cosα)) nenner))
(setq L_VF (/ (- (* B cos3) (* A sin3)) nenner))
(if (= richtung "Auf")
(setq L_VF (/ (+ (* B cos3) (* A sin3)) nenner))
(setq L_VF (/ (- (* B cos3) (* A sin3)) nenner))
)
(if (and (numberp L_GF) (numberp L_VF))
(progn
(setq gueltig (and (>= L_GF 0) (>= L_VF 0)))