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

Die Module für Gefaellestrecke wurde gebaut.

Browse Source
This commit is contained in:
Yuelin Wang
2026-06-02 15:16:24 +02:00
parent f1c3e5f060
commit 604cdaf81f
4 changed files with 230 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/VarioFoerderer.lsp
+30 -12
View File
@@ -336,7 +336,11 @@
(princ "\n Lade Blockdefinitionen aus Einzeldateien...")
(princ (strcat "\n Block-Pfad: " block-pfad))
;; === AUS_ELEMENT Masse extrahieren ===
;; === AUS_ELEMENT / EIN_ELEMENT – beide Seiten vorladen ===
(ensure-block-loaded "_3D_AS_90_rechts")
(ensure-block-loaded "_3D_ES_90_rechts")
;; === AUS_ELEMENT Masse extrahieren (links als Referenz) ===
(princ "\n Extrahiere AUS_Element Masse...")
(ensure-block-loaded "_3D_AS_90_links")
(if (tblsearch "BLOCK" "_3D_AS_90_links")
@@ -752,16 +756,18 @@
;; ============================================================
;; TEIL 9: MODULE EINFÜGEN (GESAMTE ANLAGE)
;; ============================================================
(defun foerderanlage-einfuegen (deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt
(defun foerderanlage-einfuegen (deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite
/ aktueller-punkt bogen-name endpunkt bogen-mass bogen-dx bogen-dz
)
as-block es-block)
(setq aktueller-punkt startpunkt)
(setq as-block (strcat "_3D_AS_90_" seite))
(setq es-block (strcat "_3D_ES_90_" seite))
(if (not *lib-initialized*) (init-bibliothek))
;; 1. AUS_Element
(princ "\n\n1/11: _3D_AS_90_links (0°)")
(setq aktueller-punkt (insert-block-by-ks "_3D_AS_90_links" aktueller-punkt))
(princ (strcat "\n\n1/11: " as-block " (0°)"))
(setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt))
;; 2. 1. Gefällestrecke
(if (> L_GF1 0.1)
@@ -845,8 +851,8 @@
(setq aktueller-punkt (insert-rotated-block-with-ks "Staustrecke_Separator_SP_300_mm" aktueller-punkt 3 300 0))
;; 11. EIN_Element
(princ "\n\n11/11: _3D_ES_90_links (0°)")
(setq endpunkt (insert-block-by-ks "_3D_ES_90_links" aktueller-punkt))
(princ (strcat "\n\n11/11: " es-block " (0°)"))
(setq endpunkt (insert-block-by-ks es-block aktueller-punkt))
(princ "\n\n=========================================")
(princ "\n>>> Förderanlage erfolgreich eingefügt! <<<")
@@ -861,7 +867,8 @@
deltaL deltaH deltaX deltaY richtung ergebnis
best-winkel L_GF L_GF1 L_GF2 L_VF ergebnis-liste
antwort verteilung-modus
gueltige-winkel idx eintrag wahl)
gueltige-winkel idx eintrag wahl
seite)
;; (dbgf "c:FOERDERANLAGE")
(princ "\n=========================================")
@@ -1005,7 +1012,18 @@
(princ (strcat "\n>>> L_GF (gesamt): " (rtos L_GF 2 2) " mm"))
(princ (strcat "\n>>> L_VF: " (rtos L_VF 2 2) " mm"))
(princ "\n=========================================")
;; Seite: links oder rechts
(princ "\n\nEin-/Auselement - Seite waehlen:")
(princ "\n 1 - Links (_3D_AS_90_links / _3D_ES_90_links)")
(princ "\n 2 - Rechts (_3D_AS_90_rechts / _3D_ES_90_rechts)")
(setq antwort (getstring "\nIhre Wahl (1/2) [1]: "))
(if (= antwort "2")
(setq seite "rechts")
(setq seite "links")
)
(princ (strcat "\n>>> Seite: " seite))
;; Verteilung der Gefällestrecken
(princ "\n\nVerteilung der Gefaellestrecken (vorne/hinten):")
(princ "\n 1 - Gleichmaessig (L_GF1 = L_GF2 = L_GF/2)")
@@ -1043,7 +1061,7 @@
(setq antwort (getstring "\nIhre Wahl (1/2): "))
(if (= antwort "1")
(foerderanlage-einfuegen deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt-fuer-einfuegen)
(foerderanlage-einfuegen deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt-fuer-einfuegen seite)
(princ "\nVorgang abgebrochen.")
)