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,46 @@
+(Defun C:O2LA ()
+  (Setvar "Cmdecho" 0)
+  (Setq A (SSget))
+  (If
+    A
+      (Progn
+        (Setq B (Getstring "\nName of the Target-Layer: "))
+;        (Setq farbe (Getstring "\nTarget-Color: "))
+        (If
+          (= nil (Tblsearch "Layer" B))
+            (Progn
+              (Princ (Strcat "\nLayer " B " do not exist!"))
+              (Initget 1 "J N")
+              (Setq C (Getkword "\nMake a new layer ? (Y/N): "))
+              (If
+                (= "Y" C)
+                  (Command "_Layer" "_New" B "" "_change" A "" "_prop" "_LA" B "")
+              )
+            )
+            (Command "_change" A "" "_prop" "_LA" B "")
+;            (Command "_change" A "_prop" "_color" farbe "")
+           )
+      )
+  )
+  (Princ)
+)
+
+(Defun C:O2LB ()
+  (Setvar "Cmdecho" 0)
+  (Setq A (SSget))
+  (If
+    A
+      (Progn
+        (Setq B (Entsel "\nSelect object on the Target-Layer: "))
+        (If
+          B
+            (Progn
+              (Setq B (Cdr (Assoc 8 (Entget (Car B)))))
+              (Command "_change" A "" "_prop" "_LA" B "")
+            )
+        )
+      )
+  )
+  (Princ)
+)
+