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

Gefällestrecken der Varioförderer werden jetzt auch aus den Blöcken der ILS Bibliothek gezogen, nicht mehr aus den EInzeldateien.

Browse Source
This commit is contained in:
Michael Stangl
2026-05-28 15:23:20 +02:00
parent 96c00d20fa
commit 765bf1f975
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/VarioFoerderer.lsp
+9 -9
View File
@@ -511,8 +511,8 @@
(if (> L_GF1 0.1)
(progn
(princ (strcat "\n\n2/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF1 2 2) " mm)"))
(setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
(if (findfile blockname)
(setq blockname "Staustrecke_SP_1000_mm")
(if (tblsearch "BLOCK" blockname)
(progn
(setq block (vla-InsertBlock modelspace
(vlax-3D-point aktueller-punkt)
@@ -530,7 +530,7 @@
(cadr aktueller-punkt)
(+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF1))))
)
(princ (strcat "\n FEHLER: " blockname " nicht gefunden!"))
(princ (strcat "\n FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
)
)
(princ "\n2/11: (uebersprungen)")
@@ -565,8 +565,8 @@
(setq rot-winkel best-winkel)
)
)
(setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
(if (findfile blockname)
(setq blockname "Staustrecke_SP_1000_mm")
(if (tblsearch "BLOCK" blockname)
(progn
(setq block (vla-InsertBlock modelspace
(vlax-3D-point aktueller-punkt)
@@ -583,7 +583,7 @@
(cadr aktueller-punkt)
(+ (caddr aktueller-punkt) (* (- (sin rad)) L_VF))))
)
(princ (strcat "\n FEHLER: " blockname " nicht gefunden!"))
(princ (strcat "\n FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
)
)
(princ "\n6/11: (uebersprungen)")
@@ -605,8 +605,8 @@
(if (> L_GF2 0.1)
(progn
(princ (strcat "\n\n9/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF2 2 2) " mm)"))
(setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
(if (findfile blockname)
(setq blockname "Staustrecke_SP_1000_mm")
(if (tblsearch "BLOCK" blockname)
(progn
(setq block (vla-InsertBlock modelspace
(vlax-3D-point aktueller-punkt)
@@ -623,7 +623,7 @@
(cadr aktueller-punkt)
(+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF2))))
)
(princ (strcat "\n FEHLER: " blockname " nicht gefunden!"))
(princ (strcat "\n FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
)
)
(princ "\n9/11: (uebersprungen)")