31 lines
1.1 KiB
Common Lisp
31 lines
1.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)
|
|
;; 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)
|