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

fassung gemerged

Browse Source
This commit is contained in:
Yuelin Wang
2026-05-11 12:03:59 +02:00
parent 392f996f33
commit 3d944f85dc
1 changed files with 29 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/KreiselInsert.lsp
+29 -19
View File
@@ -10,14 +10,24 @@
(if (getenv "DXFM_BLOCKS")
(setq modul-pfad (strcat (getenv "DXFM_BLOCKS") "/"))
(progn
(alert "DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
(alert "Umgebungsvariable DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
(exit)
)
(progn
(alert
"DXFM_BLOCKS nicht gesetzt!\n\n"
"Bitte fuehren Sie zuerst bin\\setenv.bat aus,\n"
"oder setzen Sie den Pfad manuell mit:\n"
"(setenv \"DXFM_BLOCKS\" \"C:/Users/y.wang/Documents/dxfmakros/Blocks/")"
)
(exit)
)
)
;; block-pfad neu setzen
(setq *block-path* (getenv "DXFM_BLOCKS"))
(princ (strcat "\nBlock-Pfad: " *block-path*))
(princ (strcat "\n✅ Block-Pfad: " block-pfad))
;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte)
;; ============================================
@@ -140,43 +150,43 @@
;; 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"))
@@ -322,4 +332,4 @@
(princ "\nKreiselInsert.lsp geladen (Version 4.0 - Smart Connect)!")
(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselQuick, KreiselParams")
(princ)
(princ)