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

identify-connection-point repariert: Fehlende < Vergleiche ergänzt: (< (abs ...) tolerance) statt (and (abs ...) tolerance). Extra-Klammer in Zeile 136 entfernt, die das defun vorzeitig beendet hat. Alle 8 cond-Klauseln korrigiert.

Browse Source
This commit is contained in:
Michael Stangl
2026-05-07 16:21:30 +02:00
parent b776f5a77a
commit 93bfbbb77b
1 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/ILSModulInsert.lsp
+25 -25
View File
@@ -119,48 +119,48 @@
(setq pickX (car pickPoint) pickY (cadr pickPoint))
(setq tolerance 50.0) ;; Toleranz 50mm
;; Verbindungspunkte prüfen
;; Verbindungspunkte pruefen
(cond
;; T_O (Mittelpunkt obere Tangente)
((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
(abs (- pickY (+ y 400.0))) tolerance)
((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
(< (abs (- pickY (+ y 400.0))) tolerance))
(setq type "T_O"))
;; T_U (Mittelpunkt untere Tangente)
((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
(abs (- pickY (- y 400.0))) tolerance)
((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
(< (abs (- pickY (- y 400.0))) tolerance))
(setq type "T_U"))
;; M_O (Linker Kreis, oberer Rand)
((and (abs (- pickX (+ x 400.0))) tolerance)
(abs (- pickY (+ y 400.0)))) tolerance)
((and (< (abs (- pickX (+ x 400.0))) tolerance)
(< (abs (- pickY (+ y 400.0))) tolerance))
(setq type "M_O"))
;; M_U (Linker Kreis, unterer Rand)
((and (abs (- pickX (+ x 400.0))) tolerance)
(abs (- pickY (- y 400.0))) tolerance)
((and (< (abs (- pickX (+ x 400.0))) tolerance)
(< (abs (- pickY (- y 400.0))) tolerance))
(setq type "M_U"))
;; M_L (Linker Kreis, linker Rand)
((and (abs (- pickX x)) tolerance)
(abs (- pickY y)) tolerance)
((and (< (abs (- pickX x)) tolerance)
(< (abs (- pickY y)) tolerance))
(setq type "M_L"))
;; S_O (Rechter Kreis, oberer Rand)
((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
(abs (- pickY (+ y 400.0))) tolerance)
((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
(< (abs (- pickY (+ y 400.0))) tolerance))
(setq type "S_O"))
;; S_U (Rechter Kreis, unterer Rand)
((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
(abs (- pickY (- y 400.0))) tolerance)
((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
(< (abs (- pickY (- y 400.0))) tolerance))
(setq type "S_U"))
;; S_R (Rechter Kreis, rechter Rand)
((and (abs (- pickX (+ x 800.0 abstand))) tolerance)
(abs (- pickY y)) tolerance)
((and (< (abs (- pickX (+ x 800.0 abstand))) tolerance)
(< (abs (- pickY y)) tolerance))
(setq type "S_R"))
(t (setq type "UNKNOWN"))
)
type