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

Geruest fuer Einzelmodul + Geruestoption bei Foerderer, Gefaellestrecke und Eckrad ergaenzt

Browse Source 
Kreisel hatte GERUEST_EINZELMODUL bereits; ergaenzt um die neue Combobox
GERUEST_TYP (IPE-Geruest abgestuft / Obergeruest oben / Schoenenberger
Geruest / nur Doppelrohrtraeger, Default Schoenenberger Geruest) im
KreiselEdit-Dialog. VarioFoerderer (Standard-Dialog) und Gefaellestrecke
(Modus 1) erhalten beide Attribute neu in ihren DCL-Dialogen inkl.
Edit-Vorbelegung. ILS_Eckrad (kein Dialog vorhanden) fragt beide Werte
per Kommandozeilen-Menue ab. Konsolen-only-Pfade ohne Dialog (VF
Etage/Linienzug, GF Linienzug/3D-Objekte) bleiben auf Schema-Default,
analog zum bisherigen Kreisel-Verhalten.

Gemeinsame Optionsliste/Helper (*ssg-geruest-optionen*,
ssg-geruest-typ-to-idx/idx-to-typ, ssg-ask-geruest-typ) in ssg_core.lsp
war bereits durch einen parallelen Commit (120e26a) mit eingeflossen.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
Michael Stangl
2026-07-23 10:35:10 +02:00
parent ad287b683d
commit 6396111777
11 changed files with 183 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_gefaellestrecke.lsp
+7 -7
View File
@@ -285,7 +285,7 @@
bR90 bR60 bR30
startpunkt last-ent nach-aus-pt entry-hz
(caddr (nth first-idx segmente))
es-seite))
es-seite "0" "Schoenenberger Geruest"))
gf-ins
)
)
@@ -383,7 +383,7 @@
(setq gf-ins
(car (gefaellestrecke-einfuegen
test-L_stau test-winkel (list 0 0 test-z-start)
"links" "links" 0.0 test-deltaL "90" "90")))
"links" "links" 0.0 test-deltaL "90" "90" "0" "Schoenenberger Geruest")))
(if gf-ins
(progn
(setq attribs (ssg-attrib-read gf-ins))
@@ -415,7 +415,7 @@
(setq gf-ins
(car (gefaellestrecke-einfuegen
test-L_stau test-winkel (list 15000 0 test-z-start)
"links" "links" 90.0 test-deltaL "90" "90")))
"links" "links" 90.0 test-deltaL "90" "90" "0" "Schoenenberger Geruest")))
(if gf-ins
(progn
(setq attribs (ssg-attrib-read gf-ins))
@@ -447,7 +447,7 @@
(setq gf-ins
(car (gefaellestrecke-einfuegen
test-L_stau test-winkel (list 0 -15000 test-z-start)
"links" "links" 180.0 test-deltaL "90" "90")))
"links" "links" 180.0 test-deltaL "90" "90" "0" "Schoenenberger Geruest")))
(if gf-ins
(progn
(setq attribs (ssg-attrib-read gf-ins))
@@ -479,7 +479,7 @@
(setq gf-ins
(car (gefaellestrecke-einfuegen
test-L_stau test-winkel (list 15000 -15000 test-z-start)
"links" "links" 270.0 test-deltaL "90" "90")))
"links" "links" 270.0 test-deltaL "90" "90" "0" "Schoenenberger Geruest")))
(if gf-ins
(progn
(setq attribs (ssg-attrib-read gf-ins))
@@ -529,7 +529,7 @@
(princ (strcat "\n\n M2_hz000: Start=(0,-35000," (rtos test-z-start 2 0) ") ..."))
(setq ergebnis
(gefaellestrecke-einfuegen
test-L_stau test-winkel m2-start "links" "links" 0.0 test-deltaL "90" "90"))
test-L_stau test-winkel m2-start "links" "links" 0.0 test-deltaL "90" "90" "0" "Schoenenberger Geruest"))
(setq gf-ins (car ergebnis))
(if gf-ins
(progn
@@ -735,7 +735,7 @@
(setq gf-ins
(car (gefaellestrecke-einfuegen
w30-lstau test-winkel (list 30000 0 test-z-start)
"links" "links" 0.0 test-deltaL "30" "30")))
"links" "links" 0.0 test-deltaL "30" "30" "0" "Schoenenberger Geruest")))
(if gf-ins
(progn
(setq attribs (ssg-attrib-read gf-ins))