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

Lisp/SSG_LIB_Commands.lsp

@@ -16,11 +16,6 @@
 )
 
 ;; --- ILS / Foerderer ---
-(defun c:ILS_ETF_Etagenfoerderer ()
-  (princ "\n[DUMMY] ILS_ETF_Etagenfoerderer aufgerufen")
-  (princ)
-)
-
 (defun c:ILS_TEF_Strecke ()
   (princ "\n[DUMMY] ILS_TEF_Strecke aufgerufen")
   (princ)

Lisp/ssg_core.lsp

@@ -370,7 +370,7 @@
           (progn
             (setq tag (cdr (assoc 2 ed)))
             (setq wert (cdr (assoc tag attrib-alist)))
-            (if (and wert (> (strlen wert) 0))
+            (if (and wert (= (type wert) 'STR) (> (strlen wert) 0))
               (progn
                 (entmod (subst (cons 1 wert) (assoc 1 ed) ed))
                 (entupd obj)

Lisp/vf_standard.lsp

@@ -70,7 +70,7 @@
       )
       (setq missing '())
       (foreach bname required-blocks
-        (setq datei (strcat block-pfad bname ".dxf"))
+        (setq datei (strcat block-pfad bname ".dwg"))
         (if (not (findfile datei))
           (setq missing (cons datei missing))
         )