From 13b1db8c659e6ada34649a84031c8575b2b86b07 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Mon, 7 Sep 2026 17:40:38 +0200 Subject: [PATCH] Symbol Ein und Ausgang sind jetzt frei platzierbar --- CLAUDE.md | 2 +- Lisp/SSG_LIB_Commands.lsp | 74 ++++----------------------------------- lang/de_DE.json | 2 -- lang/en_GB.json | 2 -- 4 files changed, 8 insertions(+), 72 deletions(-) diff --git a/CLAUDE.md b/CLAUDE.md index 9ca574e..4a592fa 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -104,7 +104,7 @@ Detaillierte Dokumentation aller Funktionen und Befehle: siehe `Lisp/README.md`. | `Gefaellestrecke.lsp` | GEFAELLESTRECKE, GEFAELLESTRECKE_EDIT | Gefaelle-Foerderanlage (AUS -> Staustrecke skaliert -> Separator -> EIN); Modus 1 per DCL-Dialog (Einfuegehoehe, Element-Winkel 30/90); Doppelklick auf GF_n-Block ruft GEFAELLESTRECKE_EDIT (Dialog vorbelegt, Neuaufbau) | | `export.lsp` | EXPORTSIVAS, EXPORTCSV, OMNI_UPDATE_ATTRIBS | JSON-Sammlung und Python-Export (Omniflo-Merkmale/Sum-Zeile via lib/export_csv.py) | | `OmniModulInsert.lsp` | OMNI_LOAD, OMNI_APB_*, OMNI_W*_*, OMNI_AP60/AP110, OMNI_TEF_*, OMNI_TV_*, OMNI_APBW_*, OMNI_EDIT | Omniflo-Komponenten: Boegen, Weichen, Verbinder, Transferwagen, Edit-Dialog | -| `SSG_LIB_Commands.lsp` | ILS_BTMT_Beladung, ILS_BTMT_Entladung, ILS_SCANNER_INSERT, ILS_SEPARATOR_INSERT, ILS_EINGANG_INSERT, ILS_AUSGANG_INSERT, ILS_ETF_*, ILS_GK*_*, SSG_BLOCKEDIT, SSG_DIM_SWITCH, SSG_SPRACHE | BTMT Be-/Entladung (`ils-insert-station`: wiederholtes Einfuegen von `BTMT-Beladung` bzw. `SC_Entladung`, Drehung interaktiv, Layer aus `LAYER`-Attribut, Dimension via `ssg-ils-block-laden`) + Sensoren (`ils-insert-sensor`) + Eingang-/Ausgang-Symbol (`ils-insert-einausgang`: BTMT-Station picken statt Punkt waehlen, Symbol wird lotrecht `*ils-einausgang-z-offset*` = 800mm darueber gesetzt, Bloecke `Eingang_.dwg`/`Ausgang_.dwg` in data/ils) + Dummy-Befehle fuer Menue + Doppelklick/Kontextmenue-Dispatcher + Konfiguration (2D/3D, Sprache) | +| `SSG_LIB_Commands.lsp` | ILS_BTMT_Beladung, ILS_BTMT_Entladung, ILS_SCANNER_INSERT, ILS_SEPARATOR_INSERT, ILS_EINGANG_INSERT, ILS_AUSGANG_INSERT, ILS_ETF_*, ILS_GK*_*, SSG_BLOCKEDIT, SSG_DIM_SWITCH, SSG_SPRACHE | BTMT Be-/Entladung (`ils-insert-station`: wiederholtes Einfuegen von `BTMT-Beladung` bzw. `SC_Entladung`, Drehung interaktiv, Layer aus `LAYER`-Attribut, Dimension via `ssg-ils-block-laden`) + Sensoren (`ils-insert-sensor`) + Eingang-/Ausgang-Symbol (frei platzierbar wie BTMT Be-/Entladung, ueber `ils-insert-station` mit den Rohnamen `Eingang`/`Ausgang`, Bloecke `Eingang_.dwg`/`Ausgang_.dwg` in data/ils) + Dummy-Befehle fuer Menue + Doppelklick/Kontextmenue-Dispatcher + Konfiguration (2D/3D, Sprache) | | `Tro_Edit.lsp` | TRO_INSERT, TRO_EDIT | TRO-Marker (Block `TRO_SYM_`) fuer sps_skel (lib/tro_annotate.py): TRO_INSERT fuegt eine bestehende Blockdefinition an einem gewaehlten Punkt ein und setzt ID/TYPE (bricht ab, wenn der Typ noch keine Blockdefinition in der Zeichnung hat - die entsteht nur ueber tro_annotate.py); TRO_EDIT aendert ID/TYPE eines bestehenden Markers per Dialog. Typliste aus `tro_types.lsp` (von `tro_annotate.py --emit-lisp` nach DXFM_LISP geschrieben). Der Dispatcher SSG_BLOCKEDIT leitet Blocknamen `TRO_*` zu TRO_EDIT. | | `menu-inventory.lsp` | MenuInventory | BricsCAD Diagnostik (Menuegruppen, Plugins, Startdateien) | diff --git a/Lisp/SSG_LIB_Commands.lsp b/Lisp/SSG_LIB_Commands.lsp index 0c983fe..d8698d5 100644 --- a/Lisp/SSG_LIB_Commands.lsp +++ b/Lisp/SSG_LIB_Commands.lsp @@ -103,79 +103,19 @@ (ils-insert-station *ils-btmt-entladung-block*) ) -;; --- ILS / SPS: Eingang-/Ausgang-Symbol ueber einer BTMT-Station --- +;; --- ILS / SPS: Eingang-/Ausgang-Symbol --- ;; ;; Markiert den Materialfluss-Ein-/Ausgang der Anlage (Block Eingang/Ausgang, -;; data/ils/Eingang_.dwg bzw. Ausgang_.dwg). Anders als -;; ils-insert-station (freie Punktwahl) wird hier eine bestehende -;; BTMT-Beladung/SC_Entladung-Instanz gewaehlt und das Symbol automatisch -;; lotrecht darueber gesetzt (gleiche X/Y, Z-Versatz *ils-einausgang-z-offset*) -;; - der Anwender pickt die Station, nicht den Einfuegepunkt. -(if (null *ils-einausgang-z-offset*) (setq *ils-einausgang-z-offset* 800.0)) - -;; Waehlt eine BTMT-Beladung/SC_Entladung-Instanz aus; liefert deren -;; Einfuegepunkt oder nil bei Abbruch/falschem Block. -(defun ils-pick-btmt-station ( / sel ent bname) - (setq sel (entsel (ssg-text "ils-einausgang-station-waehlen"))) - (if (null sel) - nil - (progn - (setq ent (car sel) - bname (cdr (assoc 2 (entget ent)))) - (if (not (wcmatch (strcase bname) - (strcat (strcase *ils-btmt-beladung-block*) "*," - (strcase *ils-btmt-entladung-block*) "*"))) - (progn (alert (ssg-textf "ils-einausgang-kein-btmt" (list bname))) nil) - (cdr (assoc 10 (entget ent))) - ) - ) - ) -) - -;; Fuegt rohname (Eingang/Ausgang) lotrecht ueber einer gewaehlten -;; BTMT-Station ein; wiederholbar bis ENTER/ESC. Rotation wie die uebrigen -;; ILS-Stationen interaktiv am Cursor (pause). -(defun ils-insert-einausgang (rohname / eff pt-station pt-sym n ent attribs) - (ssg-start (strcat "ILS " rohname) '(("OSMODE") ("ATTREQ") ("ATTDIA"))) - (setq eff (ssg-ils-block-laden rohname)) - (if (null eff) - (princ (ssg-textf "ils-station-fehler-blockdatei" (list (ssg-ils-blockname rohname)))) - (progn - (setvar "ATTREQ" 0) - (setvar "ATTDIA" 0) - (setq n 0) - (while (setq pt-station (ils-pick-btmt-station)) - (setq pt-sym (list (car pt-station) (cadr pt-station) - (+ (caddr pt-station) *ils-einausgang-z-offset*))) - (command "_.INSERT" eff pt-sym "" "" pause) - (if (> (getvar "CMDACTIVE") 0) (command)) - (if (> (getvar "CMDACTIVE") 0) (command)) - (setq ent (entlast)) - (if (and ent (= (cdr (assoc 0 (entget ent))) "INSERT")) - (progn - (setq attribs (ssg-attrib-read ent)) - (ils-block-layer-setzen ent eff attribs) - (if (and (assoc "ID" attribs) - (car (atoms-family 1 '("SSG-ID-GENERATE")))) - (ssg-id-generate ent) - ) - (setq n (1+ n)) - ) - ) - ) - (princ (ssg-textf "ils-station-fertig" (list (itoa n) eff))) - ) - ) - (ssg-end) - (princ) -) - +;; data/ils/Eingang_.dwg bzw. Ausgang_.dwg). Frei platzierbar wie +;; die uebrigen ILS-Stationen (ils-insert-station: Punktwahl + interaktive +;; Rotation) - keine Bindung an eine bestehende BTMT-Beladung/SC_Entladung- +;; Instanz. (defun c:ILS_EINGANG_INSERT () - (ils-insert-einausgang "Eingang") + (ils-insert-station "Eingang") ) (defun c:ILS_AUSGANG_INSERT () - (ils-insert-einausgang "Ausgang") + (ils-insert-station "Ausgang") ) ;; --- ILS / Zusatzmodul: Sensoren (Scanner / Separator) einfuegen --- diff --git a/lang/de_DE.json b/lang/de_DE.json index 5b6d471..bf9079f 100644 --- a/lang/de_DE.json +++ b/lang/de_DE.json @@ -537,8 +537,6 @@ "ils-station-prompt-punkt": "\nEinfuegepunkt fuer %1 [ENTER=Ende]: ", "ils-station-fehler-blockdatei": "\n>>> FEHLER: Blockdatei '%1.dwg' nicht gefunden (data/ils pruefen).", "ils-station-fertig": "\n>>> %1 x %2 eingefuegt.", - "ils-einausgang-station-waehlen": "\nBTMT-Beladung/-Entladung waehlen [ENTER=Ende]: ", - "ils-einausgang-kein-btmt": "Block %1 ist keine BTMT-Beladung/-Entladung.", "layer-prompt-ziel-layer": "\nObjekt auf dem Ziel-Layer waehlen: ", "layer-prompt-objekt": "\nObjekt waehlen: ", "layer-prompt-referenz-objekt": "\nReferenz-Objekt waehlen (bestimmt Typ und Layer): ", diff --git a/lang/en_GB.json b/lang/en_GB.json index 298973b..b6c3011 100644 --- a/lang/en_GB.json +++ b/lang/en_GB.json @@ -537,8 +537,6 @@ "ils-station-prompt-punkt": "\nInsertion point for %1 [ENTER=End]: ", "ils-station-fehler-blockdatei": "\n>>> ERROR: block file '%1.dwg' not found (check data/ils).", "ils-station-fertig": "\n>>> %1 x %2 inserted.", - "ils-einausgang-station-waehlen": "\nSelect BTMT loading/unloading station [ENTER=end]: ", - "ils-einausgang-kein-btmt": "Block %1 is not a BTMT loading/unloading station.", "layer-prompt-ziel-layer": "\nSelect object on the target layer: ", "layer-prompt-objekt": "\nSelect object: ", "layer-prompt-referenz-objekt": "\nSelect reference object (determines type and layer): ",