s.ayadi
45044cdcba
The TRO markers written by sps_skel (lib/tro_annotate.py) are blocks TRO_SYM_<type> carrying ID and TYPE as attributes. This wires them into the existing SSG_LIB mechanisms rather than adding new ones. The double-click hook and the EATTEDIT override already exist: ***DOUBLECLICK routes [INSERT] to SSG_BLOCKEDIT, and c:EATTEDIT is undefined and forwarded to the same dispatcher. So all that was missing was a branch: Blockname TRO_* -> c:TRO_EDIT (Lisp/Tro_Edit.lsp) -> dcl/tro_edit.dcl Tro_Edit.lsp follows the conventions of the other edit commands: DCL path from DXFM_DCL, ssg-start/ssg-end around the command, ssg-attrib-read and ssg-attrib-set-on for the attributes, all user-visible text via ssg-text/ ssg-textf with keys in lang/de_DE.json and en_GB.json. Implied selection is read before ssg-start, since ssg-start clears it - the same note Gefaellestrecke.lsp carries. TYPE is a picklist rather than free text so it cannot drift from the type catalogue. The list comes from Lisp/tro_types.lsp, generated on the sps_skel side by "tro_annotate.py --emit-lisp" into DXFM_LISP. If that file is absent the dialog offers the block's current type and still works. Loading is lazy: the module is not preloaded in the MNL. The menu macros and the dispatcher pull it with (ssg-ensure "Tro_Edit") on first use, and the dispatcher falls back to native EATTEDIT if the module cannot be found. ssg_load.lsp loads it for the non-menu path. Menu: SSG_LIB > TRO with "Marker bearbeiten" and "Bearbeiten (Auto)", plus an entry in the POP501 edit context menu. The dialog changes attributes only. The marker shape belongs to the block definition of the type and FB_BLOCK is derived from it, so both follow on the next tro_annotate.py run; the dialog states this and the command prints a reminder when the type was changed. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
44 lines
2.1 KiB
Common Lisp
44 lines
2.1 KiB
Common Lisp
;; ============================================================
|
|
;; SSG_LOAD.LSP - Laderoutine fuer die SSG-Standardbibliotheken
|
|
;;
|
|
;; Laedt alle SSG-Kernbibliotheken in der richtigen Reihenfolge.
|
|
;; In acad.lsp oder manuell aufrufen:
|
|
;; (load "pfad/ssg_load.lsp")
|
|
;;
|
|
;; Alternativ nur einzelne Bibliotheken laden:
|
|
;; (load "pfad/ssg_core.lsp")
|
|
;; (load "pfad/ssg_layer.lsp")
|
|
;; (load "pfad/ssg_dialog.lsp")
|
|
;; ============================================================
|
|
|
|
(defun ssg-load-libs (/ base-path found)
|
|
;; Pfad ermitteln: 1) DXFM_LISP, 2) findfile, 3) DWGPREFIX
|
|
(setq base-path
|
|
(cond
|
|
((getenv "DXFM_LISP")
|
|
(strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/"))
|
|
((setq found (findfile "ssg_core.lsp"))
|
|
(substr found 1 (- (strlen found) (strlen "ssg_core.lsp"))))
|
|
(t (getvar "DWGPREFIX"))
|
|
)
|
|
)
|
|
(load (strcat base-path "ssg_core.lsp") "ssg_core.lsp nicht gefunden")
|
|
(ssg-load-config)
|
|
(load (strcat base-path "ssg_lang.lsp") "ssg_lang.lsp nicht gefunden")
|
|
(load (strcat base-path "ssg_dbg.lsp") "ssg_dbg.lsp nicht gefunden")
|
|
(load (strcat base-path "ssg_dialog.lsp") "ssg_dialog.lsp nicht gefunden")
|
|
(load (strcat base-path "ssg_layer.lsp") "ssg_layer.lsp nicht gefunden")
|
|
(load (strcat base-path "KreiselInsert.lsp") "KreiselInsert.lsp nicht gefunden")
|
|
(load (strcat base-path "VarioFoerderer.lsp") "VarioFoerderer.lsp nicht gefunden")
|
|
(load (strcat base-path "Gefaellestrecke.lsp") "Gefaellestrecke.lsp nicht gefunden")
|
|
(load (strcat base-path "export.lsp") "export.lsp nicht gefunden")
|
|
(load (strcat base-path "tests.lsp") "tests.lsp nicht gefunden")
|
|
(load (strcat base-path "OmniModulInsert.lsp") "OmniModulInsert.lsp nicht gefunden")
|
|
(load (strcat base-path "Tro_Edit.lsp") "Tro_Edit.lsp nicht gefunden")
|
|
(load (strcat base-path "SSG_LIB_Commands.lsp") "SSG_LIB_Commands.lsp nicht gefunden")
|
|
(prompt "\nSSG-Bibliotheken geladen: ssg_core, ssg_lang, ssg_dbg, ssg_dialog, ssg_layer, KreiselInsert, VarioFoerderer, Gefaellestrecke, export, tests, OmniModulInsert, SSG_LIB_Commands")
|
|
(princ)
|
|
)
|
|
|
|
(ssg-load-libs)
|