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,131 @@
+;------------------------------------------------------------------------;
+; DIN-Blatt einf�gen                                                     ;
+;------------------------------------------------------------------------;
+; AW 05.12.93                                                            ;
+;------------------------------------------------------------------------;
+(defun Dbox (/ Dat)
+  (setq Dat (load_dialog (strcat lw "/acadsst/menu/DINFORM.DCL")))
+  (if (not (new_dialog "DINFORM" Dat)) (exit))
+  (action_tile "accept" "(SetPara) (done_dialog)")
+  (action_tile "cancel" "(exit) (done_dialog)")
+  (start_dialog)
+  (unload_dialog Dat)
+)
+
+(defun SetPara ()
+  (setq DD_DIN  (get_tile "DIN"))
+  (setq DD_MS   (get_tile "MS"))  
+  (setq DD_SF   (get_tile "SF"))
+  (setq DD_QUER (get_tile "QUER"))
+  ;------ Format definieren-----------
+  (if (= DD_DIN "0")
+    (setq BL-NAME "A0")
+  )
+  (if (= DD_DIN "1")
+    (setq BL-NAME "A1")
+  )
+  (if (= DD_DIN "2")
+    (setq BL-NAME "A2")
+  )
+  (if (= DD_DIN "3")
+    (setq BL-NAME "A3")
+  )
+  (if (= DD_DIN "4")
+    (progn
+      (if (= DD_QUER "1")
+        (setq BL-NAME "A4Q")
+        (setq BL-NAME "A4H")
+      )
+    )
+  )
+  (setq BL-NAME (strcat lw "/acadsst/koepfe/" BL-NAME))
+  ;------------------------------------------------------
+  ; Maástab definieren
+  (if (= DD_MS "0")
+    (progn
+      (setq FAKTOR "1")
+      (setq FAKTOR1 "0.01")
+    )
+  )
+  (if (= DD_MS "1")  ; 1:10
+    (progn
+      (setq FAKTOR "10")
+      (setq FAKTOR1 "0.1")
+    )
+  )
+  (if (= DD_MS "2")  ; 1:20
+    (progn
+      (setq FAKTOR "20")
+      (setq FAKTOR1 "0,2")
+    )
+  )
+  (if (= DD_MS "3")  ; 1:25
+    (progn
+      (setq FAKTOR "25")
+      (setq FAKTOR1 "0.25")
+    )
+  )
+  (if (= DD_MS "4")  ; 1:50
+    (progn
+      (setq FAKTOR "50")
+      (setq FAKTOR1 "0.5")
+    )
+  )
+  (if (= DD_MS "5")  ; 1:75
+    (progn
+      (setq FAKTOR "75")
+      (setq FAKTOR1 "0.75")
+    )
+  )
+  (if (= DD_MS "6")  ; 1:100
+    (progn
+      (setq FAKTOR  "100")
+      (setq FAKTOR1 "1")
+    )
+  )
+  (if (= DD_MS "7")  ; 1:200
+    (progn
+      (setq FAKTOR "200")
+      (setq FAKTOR1 "2")
+    )
+  )
+  (if (= DD_MS "8")  ; 1:500
+    (progn
+      (setq FAKTOR "500")
+      (setq FAKTOR1 "5")
+    )
+  )
+  (if (= DD_MS "9")  ; 1:1000
+    (progn
+      (setq FAKTOR "1000")
+      (setq FAKTOR1 "10")
+    )
+  )
+)
+(defun datain ()  
+  (setq AUSWAHL-SATZ nil)
+)
+(defun geometrie()
+  (command "_layer" "_m" "RAHMEN" "_c" "7" "" "")
+  (setq P0  (getpoint "\nPick BORDER Insertion-Point (LOWER-LEFT): "))
+  (command "_insert" BL-NAME P0 FAKTOR "" "0")
+  (if (= DD_SF "1")
+    (progn
+      (setq P1  (getpoint "\nPick HEADER Insertion-Point (LOWER-RIGHT): "))
+      (command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11") P1 FAKTOR1 "" "0")
+    )
+  )
+)
+
+;------------------------------------------------------------------------------
+(defun c:DINFORM(/ DIN QUER HOCH MS SF FAKTOR BL-NAME) 
+  (setvar "limcheck" 0)
+  (setvar "CMDECHO" 0)
+  (setvar "BLIPMODE" 0)
+  (prompt "**** INSERT DRAWING BORDER & HEADER *******")
+  (Dbox)
+  (prompt "")
+  (datain)
+  (geometrie)
+)
+