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 @@
+; AW 24.10.92-----------------------------------------------
+; Das Programm erm”glicht die Žnderung der Z-Koordinaten und 
+; der Objekth”he
+; Es wird das jeweils eingestellte Koordinatensystem benutzt
+; ----------------------------------------------------------
+
+(Defun C:z_neu ()   
+(Setvar "Cmdecho" 0)
+(Setq WIEVIEL (Getreal "Neue Erhebung eingeben: "))
+(Setq A (Ssget)) 
+(Setq B (Sslength A))
+; die Objekte bearbeiten -------
+(While
+	(> B 0)
+	(Setq B (1- B))
+
+	(cond
+		((cdr (assoc 38 (entget d)))
+		(Setq D (Ssname A B))
+		(Setq ED (entget D))
+		)
+	)
+)
+