[ADD] JAM_EDIT: Dialog fuer Staubereiche (JAM_AREA) aus sps_skel

Neuer Befehl JAM_EDIT (Lisp/Jam_Edit.lsp, dcl/jam_edit.dcl): aendert
Foerderer und laufende Nummer eines Staubereichs Jam<NNNN>_<k>, den
sps_skel (lib/tro_annotate.py --anlage) als Block JAM_AREA einzeichnet;
Knopf zurueck auf den abgeleiteten Wert, Warnung bei doppeltem Namen.
SSG_BLOCKEDIT leitet JAM_* per Doppelklick dorthin; ssg_load.lsp laedt
das Modul; Texte in de_DE/en_GB. In die SCL kommt die Aenderung mit
tro_annotate --read-jams.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
2026-10-23 12:47:12 +02:00
parent fb567949be
commit a4357aba85
6 changed files with 273 additions and 0 deletions
+17
View File
@@ -382,6 +382,23 @@
)
)
;; Staubereiche (JAM_AREA) -> JAM_EDIT (DCL-Dialog)
;; Ebenfalls aus der Beschriftung von sps_skel (tro_annotate.py --anlage);
;; Foerderer und laufende Nummer des Staubereichs Jam<NNNN>_<k>.
((wcmatch bname "JAM_*")
(princ (ssg-textf "cmd-jam-bearbeiten" (list bname)))
(if (and (null *ssg-Jam_Edit-loaded*) (atoms-family 1 '("SSG-ENSURE")))
(ssg-ensure "Jam_Edit")
)
(if (atoms-family 1 '("C:JAM_EDIT"))
(c:JAM_EDIT)
(progn
(princ (ssg-textf "tro-edit-modul-fehlt" (list "Jam_Edit.lsp")))
(command "_.EATTEDIT")
)
)
)
;; TRO-Marker (TRO_SYM_<Typ>) -> TRO_EDIT (DCL-Dialog)
;; Die Marker kommen aus sps_skel (lib/tro_annotate.py) und tragen die
;; Attribute ID und TYPE. Modul bei Bedarf nachladen, damit der Doppelklick