Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros

Lisp/SSG_LIB_Commands.lsp

@@ -133,18 +133,17 @@
 ;; ============================================================
 
 (defun c:SSG_BLOCKEDIT ( / ss ent ed bname attribs teileart)
-  ;; Implied Selection pruefen (Block muss vorselektiert sein)
+  ;; Block ermitteln: zuerst Implied Selection, dann Picking
   (setq ss (ssget "I"))
-  (if (null ss)
+  (if (or (null ss) (/= (sslength ss) 1))
     (progn
-      (princ "\nBitte zuerst einen Block auswaehlen.")
-      (princ)
-      (exit)
+      (princ "\nBlock auswaehlen: ")
+      (setq ss (ssget ":S" '((0 . "INSERT"))))
     )
   )
-  (if (/= (sslength ss) 1)
+  (if (null ss)
     (progn
-      (princ "\nBitte genau einen Block auswaehlen.")
+      (princ "\nKein Block ausgewaehlt.")
       (princ)
       (exit)
     )
@@ -191,14 +190,30 @@
       (c:OMNI_EDIT)
     )
 
-    ;; Unbekannter Blocktyp -> Standard BEDIT
+    ;; Unbekannter Blocktyp -> natives EATTEDIT (Attribut-Editor)
     (t
-      (princ (strcat "\nBlock bearbeiten (BEDIT): " bname))
-      (command "_.BEDIT" bname)
+      (princ (strcat "\nAttribute bearbeiten: " bname))
+      (command "_.EATTEDIT")
     )
   )
   (princ)
 )
 
+;; ============================================================
+;; C:EATTEDIT - Abfangen des eingebauten Doppelklick-Befehls
+;; UNDEFINE zwingt BricsCAD, auch interne Aufrufe ueber LISP
+;; zu leiten. Fallback auf _.EATTEDIT (Dot-Prefix = nativ,
+;; kein Loop) fuer unbekannte Bloecke.
+;; ============================================================
+(defun c:EATTEDIT ()
+  (c:SSG_BLOCKEDIT)
+)
+(if (not *ssg-eattedit-undefined*)
+  (progn
+    (command "_.UNDEFINE" "EATTEDIT")
+    (setq *ssg-eattedit-undefined* t)
+  )
+)
+
 (princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
 (princ)

Lisp/export.lsp

@@ -140,13 +140,9 @@
 ;; csv-name = Ergebnis-CSV-Name (z.B. "export.csv")
 (defun csv:run-export (label py-name csv-name / ss i ename fh out-pfad
                         py-skript ergebnis-pfad cmd first-block count)
-  ;; Vor dem Export: Doppelte IDs pruefen und korrigieren
-  (if (atoms-family 1 '("ssg-id-check-all"))
-    (progn
-      (princ (strcat "\n[" label "] Pruefe IDs auf Duplikate..."))
-      (ssg-id-check-all)
-    )
-  )
+  ;; Vor dem Export: IDs aller Bloecke sicherstellen und Duplikate korrigieren
+  (princ (strcat "\n[" label "] Pruefe und vergebe IDs..."))
+  (ssg-id-check-all)
   ;; Vor dem Export HOEHE/DREHUNG aller Omniflo-Elemente aktualisieren
   (princ (strcat "\n[" label "] Aktualisiere Hoehe/Drehung..."))
   (omni:update-all-attribs)
@@ -351,17 +347,6 @@
 )
 
 
-;; --- CSV-Zeile fuer ein Omniflo-Element bauen ---
-(defun csv:omni-csv-line (elem-nr teileart bezeichnung merkmale-json)
-  (strcat (itoa elem-nr)
-          ";\"" teileart "\""
-          ";\"shape_" (substr (rtos (* (getvar "CDATE") 1000000.0) 2 0) 1 8)
-                      (substr (rtos (* (getvar "TDUSRTIMER") 1000000.0) 2 0) 1 8) "\""
-          ";\"" bezeichnung "\""
-          ";1"
-          ";" merkmale-json)
-)
-
 
 ;; ============================================================
 ;; C:OMNI_EXPORT - Omniflo-Elemente zaehlen und als CSV exportieren
@@ -373,6 +358,9 @@
                          len-ap110 len-ap60 laenge-str
                          fh out-pfad lines subtyp merkmale)
 
+  ;; Vor dem Export: IDs aller Bloecke sicherstellen und Duplikate korrigieren
+  (princ "\n[OMNI_EXPORT] Pruefe und vergebe IDs...")
+  (ssg-id-check-all)
   ;; Vor dem Export HOEHE/DREHUNG aller Omniflo-Elemente aktualisieren
   (princ "\n[OMNI_EXPORT] Aktualisiere Hoehe/Drehung...")
   (omni:update-all-attribs)
@@ -403,8 +391,12 @@
            (setq cnt-boegen (1+ cnt-boegen))
            (setq merkmale (csv:omni-bogen-merkmale ename rotation))
            (setq lines (cons
-             (csv:omni-csv-line elem-nr "Omniflo Kurve"
-               (strcat "OFBogen :" (itoa cnt-boegen)) merkmale)
+             (strcat (itoa elem-nr)
+                     ";\"Omniflo Kurve\""
+                     ";\"" (or (csv:get-attrib ename "ID") "0000") "\""
+                     ";\"" (strcat "OFBogen :" (itoa cnt-boegen)) "\""
+                     ";1"
+                     ";" merkmale)
              lines))
           )
 
@@ -421,8 +413,12 @@
            )
            (setq merkmale (csv:omni-weiche-merkmale ename rotation))
            (setq lines (cons
-             (csv:omni-csv-line elem-nr "Omniflo Weiche"
-               (strcat "OFWeiche :" (itoa cnt-weichen)) merkmale)
+             (strcat (itoa elem-nr)
+                     ";\"Omniflo Weiche\""
+                     ";\"" (or (csv:get-attrib ename "ID") "0000") "\""
+                     ";\"" (strcat "OFWeiche :" (itoa cnt-weichen)) "\""
+                     ";1"
+                     ";" merkmale)
              lines))
           )
 
@@ -437,8 +433,12 @@
            )
            (setq merkmale (csv:omni-gerade-merkmale ename rotation))
            (setq lines (cons
-             (csv:omni-csv-line elem-nr "Omniflo Gerade"
-               (strcat "OFGerade :" (itoa cnt-geraden)) merkmale)
+             (strcat (itoa elem-nr)
+                     ";\"Omniflo Gerade\""
+                     ";\"" (or (csv:get-attrib ename "ID") "0000") "\""
+                     ";\"" (strcat "OFGerade :" (itoa cnt-geraden)) "\""
+                     ";1"
+                     ";" merkmale)
              lines))
           )
         )

Lisp/ssg_core.lsp

@@ -620,6 +620,41 @@
   )
 )
 
+;; --- JSON-Array von flachen Objekten parsen ---
+;; Verwendet ssg-cfg-trim und ssg-cfg-parse-kv aus ssg_core.
+;; Rueckgabe: Liste von Alists (("key" . wert) ...)
+(defun ssg-parse-json-array (zeilen / in-obj obj ergebnis zeile kv trimmed)
+  (setq in-obj nil  obj nil  ergebnis nil)
+  (foreach zeile zeilen
+    (setq trimmed (ssg-cfg-trim zeile))
+    (cond
+      ((= trimmed "{")
+        (setq in-obj T  obj nil))
+      ((or (= trimmed "}") (= trimmed "},"))
+        (if (and in-obj obj)
+          (setq ergebnis (cons (reverse obj) ergebnis)))
+        (setq in-obj nil))
+      (in-obj
+        (setq kv (ssg-cfg-parse-kv trimmed))
+        (if kv (setq obj (cons kv obj))))
+    )
+  )
+  (reverse ergebnis)
+)
+
+;; JSON-Datei als flaches Array laden
+;; Rueckgabe: Liste von Alists oder nil bei Fehler
+(defun ssg-load-json (datei / zeilen)
+  (setq zeilen (ssg-read-file-lines datei))
+  (if zeilen (ssg-parse-json-array zeilen))
+)
+
+;; Wert aus Alist lesen: (ssg-val alist "key")
+(defun ssg-val (alist key)
+  (cdr (assoc key alist))
+)
+
+
 ;; Verschachteltes JSON-Objekt parsen (1 Ebene tief)
 ;; {"section": {"key": val, ...}, ...}
 ;; -> (("section" ("key" . val) ...) ...)