131 lines
3.0 KiB
Common Lisp
131 lines
3.0 KiB
Common Lisp
;------------------------------------------------------------------------;
|
|
; 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)
|
|
)
|
|
|