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,15 @@
+(defun c:zblock()
+  (setq a (ssget))
+; (setq a (entsel))
+  (while (not (null a))           
+    (setq e (entnext a))
+;    (setq e (entget (car a)))
+    (setq d (assoc 41 e))
+    (setq d1 (assoc 43 e))
+    (setq e (subst '(43 . 1) d1 e))
+    (setq e (subst '(41 . 1) d e))
+    (entmod e)
+    (setq a1 (cdr a))
+  )
+)
+