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

Menüs für Varioförderer umgebaut. Weniger interaktive Abfragen, direkter Aufruf durch Menü

Browse Source
This commit is contained in:
Michael Stangl
2026-09-07 11:05:18 +02:00
parent d131b44580
commit 9670173d4b
5 changed files with 624 additions and 445 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/Gefaellestrecke.lsp
+23 -7
View File
@@ -1685,7 +1685,11 @@
;; TEIL 6: HAUPTBEFEHL
;; ============================================================
(defun c:GEFAELLESTRECKE ( / antwort deltaL winkel
;; Gemeinsamer Ablauf fuer alle drei Eingabemodi. "modus" ist "1"/"2"/"3"
;; (Werteingabe / 3D-Linie / Linienzug). Banner + Bibliotheks-Init laufen
;; vorab; der Aufrufer (C:GEFAELLESTRECKE oder die drei Menue-Befehle
;; GEFAELLESTRECKE_EINFACH/_3DLINIE/_LINIENZUG) bestimmt den Modus.
(defun gf-strecke-lauf ( modus / antwort deltaL winkel
as-seite es-seite gf-as-winkel gf-es-winkel
line-points startpunkt endpunkt differenz
deltaX deltaY startpunkt-fuer-einfuegen hz-winkel
@@ -1704,12 +1708,7 @@
)
)
;; Eingabemodus
(princ (ssg-text "gf-eingabemodus-header"))
(princ (ssg-text "gf-eingabemodus-1"))
(princ (ssg-text "gf-eingabemodus-2"))
(princ (ssg-text "gf-eingabemodus-3"))
(setq antwort (getstring (ssg-text "prompt-wahl-1-2-3")))
(setq antwort modus)
(cond
;; Modus 3: Linienzug mit Bogen
@@ -1831,6 +1830,23 @@
nil
)
;; Hauptbefehl: fragt den Eingabemodus per Konsole ab und startet den Lauf.
;; (Interaktive Auswahl bleibt fuer Direktaufruf erhalten; das Menue nutzt
;; stattdessen die drei modus-spezifischen Befehle unten.)
(defun c:GEFAELLESTRECKE ( / antwort)
(princ (ssg-text "gf-eingabemodus-header"))
(princ (ssg-text "gf-eingabemodus-1"))
(princ (ssg-text "gf-eingabemodus-2"))
(princ (ssg-text "gf-eingabemodus-3"))
(setq antwort (getstring (ssg-text "prompt-wahl-1-2-3")))
(gf-strecke-lauf antwort)
)
;; Menue-Befehle: je ein fester Eingabemodus ohne Rueckfrage.
(defun c:GEFAELLESTRECKE_EINFACH () (gf-strecke-lauf "1")) ; Werteingabe (DCL)
(defun c:GEFAELLESTRECKE_3DLINIE () (gf-strecke-lauf "2")) ; aus 3D-Linie
(defun c:GEFAELLESTRECKE_LINIENZUG () (gf-strecke-lauf "3")) ; Linienzug LINE+ARC
;; ============================================================
;; TEIL 7: GEFAELLESTRECKE_EDIT - Doppelklick/Kontextmenue-Bearbeitung
;; ============================================================