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

Alle Objekte sind Ende-an-Anfang miteinander verbunden.

Browse Source
This commit is contained in:
Yuelin Wang
2026-06-18 09:45:43 +02:00
parent 241cdccc26
commit 714dc65f45
1 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/VarioFoerderer.lsp
+25 -9
View File
@@ -20,6 +20,18 @@
;; Pfad zu den Einzelblock-DXF-Dateien (zeigt auf 2D oder 3D Unterverzeichnis) ;; Pfad zu den Einzelblock-DXF-Dateien (zeigt auf 2D oder 3D Unterverzeichnis)
(setq block-pfad modul-pfad) (setq block-pfad modul-pfad)
;; Kern-Abhaengigkeiten sicherstellen (fuer direktes Laden ohne Menu-System)
(if (not *ssg-core-loaded*)
(if (getenv "DXFM_LISP")
(progn
(load (strcat (getenv "DXFM_LISP") "/ssg_core.lsp"))
(ssg-load-config)
(setq *ssg-core-loaded* t)
)
(alert "DXFM_LISP nicht gesetzt! Bitte zuerst bin\\setenv.bat ausfuehren.")
)
)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq modelspace (vla-get-ModelSpace doc)) (setq modelspace (vla-get-ModelSpace doc))
@@ -29,8 +41,8 @@
(setq aus-dx nil aus-dy nil aus-dz nil) (setq aus-dx nil aus-dy nil aus-dz nil)
(setq ein-dx nil ein-dy nil ein-dz nil) (setq ein-dx nil ein-dy nil ein-dz nil)
(setq separator-laenge nil umlenk-laenge nil motorstation-laenge nil) (setq separator-laenge nil umlenk-laenge nil motorstation-laenge nil)
(setq staustrecke-basis (ssg-cfg-or "vario" "staustrecke_basis" 1000)) (setq staustrecke-basis 1000) ;; Standardwert; wird in c:FOERDERANLAGE via ssg-cfg-or ueberschrieben
(setq FESTE_HORIZONTAL (ssg-cfg-or "vario" "feste_horizontal" 1600)) (setq FESTE_HORIZONTAL 1600)
;; Bogen-Tabellen (werden aus Bibliothek befüllt) ;; Bogen-Tabellen (werden aus Bibliothek befüllt)
(setq bogen-auf '()) ;; Format: ((winkel dx dy dz) ...) (setq bogen-auf '()) ;; Format: ((winkel dx dy dz) ...)
@@ -834,9 +846,9 @@
;; 4. Umlenkstation – Rotation um 3° um Y-Achse ;; 4. Umlenkstation – Rotation um 3° um Y-Achse
(princ "\n\n4/11: Umlenkstation (500mm, 3° geneigt)") (princ "\n\n4/11: Umlenkstation (500mm, 3° geneigt)")
(setq aktueller-punkt (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt 0 (setq aktueller-punkt (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt (ssg-cfg-or "vario" "gefaelle_winkel" 3)
(ssg-cfg-or "vario" "station_block_dx" 499) (ssg-cfg-or "vario" "station_block_dx" 500)
(ssg-cfg-or "vario" "station_block_dz" -26))) (ssg-cfg-or "vario" "station_block_dz" 0)))
;; 5. 1. Vertikalbogen ;; 5. 1. Vertikalbogen
(if (= richtung "Auf") (if (= richtung "Auf")
@@ -895,9 +907,9 @@
;; 8. Motorstation – Rotation um 3° um Y-Achse ;; 8. Motorstation – Rotation um 3° um Y-Achse
(princ "\n\n8/11: Motorstation (500mm, 3° geneigt)") (princ "\n\n8/11: Motorstation (500mm, 3° geneigt)")
(setq aktueller-punkt (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt 0 (setq aktueller-punkt (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt (ssg-cfg-or "vario" "gefaelle_winkel" 3)
(ssg-cfg-or "vario" "station_block_dx" 499) (ssg-cfg-or "vario" "station_block_dx" 500)
(ssg-cfg-or "vario" "station_block_dz" -26))) (ssg-cfg-or "vario" "station_block_dz" 0)))
;; 9. 2. Gefällestrecke ;; 9. 2. Gefällestrecke
(if (> L_GF2 0.1) (if (> L_GF2 0.1)
@@ -948,7 +960,11 @@
(exit) (exit)
) )
) )
;; Konfigurationswerte laden (ssg-core muss bereits geladen sein)
(setq staustrecke-basis (ssg-cfg-or "vario" "staustrecke_basis" 1000))
(setq FESTE_HORIZONTAL (ssg-cfg-or "vario" "feste_horizontal" 1600))
(princ "\n\nEingabemodus wählen:") (princ "\n\nEingabemodus wählen:")
(princ "\n 1 - 3D-Linie auswählen (Start- und Endpunkt mit Höhe)") (princ "\n 1 - 3D-Linie auswählen (Start- und Endpunkt mit Höhe)")
(princ "\n 2 - Werte manuell eingeben") (princ "\n 2 - Werte manuell eingeben")