Aus den Lisp Daten unter M:\ACADSST\MENU eine neue Standardlibrary mit Codedoku extrahiert

Lisp/ssg_load.lsp

@@ -0,0 +1,30 @@
+;; ============================================================
+;; 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)
+  ;; Pfad dieser Datei als Basis verwenden (AutoCAD 2000+)
+  (setq base-path
+    (if (findfile "ssg_core.lsp")
+      (substr (findfile "ssg_core.lsp") 1
+              (- (strlen (findfile "ssg_core.lsp")) (strlen "ssg_core.lsp")))
+      (strcat (getvar "DWGPREFIX"))
+    )
+  )
+  (load (strcat base-path "ssg_core.lsp")   "ssg_core.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")
+  (prompt "\nSSG-Bibliotheken geladen: ssg_core, ssg_dialog, ssg_layer")
+  (princ)
+)
+
+(ssg-load-libs)