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,24 @@
+;--------------------------
+; Layerloeschen  AW 30.6.91
+;--------------------------
+
+(Defun C:DellayA ()
+  (Setvar "Cmdecho" 0)
+  (Setq A (Getstring "\nLayer to delete - Name: "))
+  (Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
+  (Princ)
+)
+
+(Defun C:DellayB ()
+  (Setvar "Cmdecho" 0)
+  (Setq A (Entsel "\nLayer to delete - select object: "))
+  (If
+    A
+      (Progn
+        (Setq A (Cdr (Assoc 8 (Entget (Car A)))))
+        (Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
+      )
+  )
+  (Princ)
+)
+