neue Folder LAYOUT MENU und MODULE dazu

2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
@@ -0,0 +1,16 @@
+(defun c:blockliste (/ datei block objekt)
+  (setq datei (open (strcat (getvar "DWGNAME") ".BLK") "w"))
+  (setq block (tblnext "BLOCK" t))
+  (while block
+    (print block datei)
+    (setq objekt (cdr (assoc -2 block)))
+    (while objekt
+      (print (entget objekt) datei)
+      (setq objekt (entnext objekt))
+    )
+    (setq block (tblnext "BLOCK"))
+  )
+  (close datei)
+  (princ)
+)
+