(defun C:LAY_A0() ;;; Einfügepunkt abfragen. Wenn keiner angegeben, dann 0,0,0 (if (setq EFGPT (getpoint "\nEinfügepunkt angeben <0,0>:")) "Erhalten" (setq EFGPT '(0 0 0))) ;;; Objektfang status speichern und deaktivieren (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0) ;;; Variablen Definieren (setq R1_A '(0 0 0)) ; Linke untere Ecke, äuseres rechteck (setq R1_E '(1189 841 0)) ; Rechte obere Ecke, äuseres Rechteck (setq R2_A '(20 5 0)) ; Linke untere Ecke, inneres Rechteck (setq R2_E '(1184 836 0)) ; Rechte obere Ecke, inneres Rechteck (setq LM1_A '(0 68.5 0)) ; Untere Lochmarke, links (setq LM1_E '(10 68.5 0)) ; Untere Lochmarke, rechts (setq LM2_A '(0 148.5 0)) ; Mittlere Lochmarke, links (setq LM2_E '(20 148.5 0)) ; Mittlere Lochmarke, rechts (setq LM3_A '(0 228.5 0)) ; Obere Lochmarke, links (setq LM3_E '(10 228.5 0)) ; Obere Lochmarke, rechts (setq FM1_A '(0 297 0)) ; A4, waagrecht, links (setq FM1_E '(20 297 0)) ; A4, waagrecht, rechts (setq FM18_A '(210 0 0)) ; A4, senkrecht, unten (setq FM18_E '(210 5 0)) ; A4, senkrecht, oben ; Ab hier layoutabhänige faltmarken (UZS) (setq FM2_A '(0 297 0)) (setq FM2_E '(20 400.619 0)) (setq FM3_A '(0 594 0)) (setq FM3_E '(20 594 0)) (setq FM4_A '(104.3495 836 0)) (setq FM4_E '(105 841 0)) (setq FM5_A '(210 836 0)) (setq FM5_E '(210 841 0)) (setq FM6_A '(319.5 836 0)) (setq FM6_E '(319.5 841 0)) (setq FM7_A '(429 836 0)) (setq FM7_E '(429 841 0)) (setq FM8_A '(619 836 0)) (setq FM8_E '(619 841 0)) (setq FM9_A '(809 836 0)) (setq FM9_E '(809 841 0)) (setq FM10_A '(999 836 0)) (setq FM10_E '(999 841 0)) (setq FM11_A '(1184 594 0)) (setq FM11_E '(1189 594 0)) (setq FM12_A '(1184 297 0)) (setq FM12_E '(1189 297 0)) (setq FM13_A '(999 0 0)) (setq FM13_E '(999 5 0)) (setq FM14_A '(809 0 0)) (setq FM14_E '(809 5 0)) (setq FM15_A '(619 0 0)) (setq FM15_E '(619 5 0)) (setq FM16_A '(429 0 0)) (setq FM16_E '(429 5 0)) (setq FM17_A '(319.5 0 0)) (setq FM17_E '(319.5 5 0)) ;;; Ab hier kommandos: ;;; R = Rechteck, LM = Lochmarke, FM = Faltmarke (command "_rectang" (mapcar '+ EFGPT R1_A) (mapcar '+ EFGPT R1_E)) (command "_rectang" (mapcar '+ EFGPT R2_A) (mapcar '+ EFGPT R2_E)) (command "_line" (mapcar '+ EFGPT LM1_A) (mapcar '+ EFGPT LM1_E) "") (command "_line" (mapcar '+ EFGPT LM2_A) (mapcar '+ EFGPT LM2_E) "") (command "_line" (mapcar '+ EFGPT LM3_A) (mapcar '+ EFGPT LM3_E) "") (command "_line" (mapcar '+ EFGPT FM1_A) (mapcar '+ EFGPT FM1_E) "") (command "_line" (mapcar '+ EFGPT FM2_A) (mapcar '+ EFGPT FM2_E) "") (command "_line" (mapcar '+ EFGPT FM3_A) (mapcar '+ EFGPT FM3_E) "") (command "_line" (mapcar '+ EFGPT FM4_A) (mapcar '+ EFGPT FM4_E) "") (command "_line" (mapcar '+ EFGPT FM5_A) (mapcar '+ EFGPT FM5_E) "") (command "_line" (mapcar '+ EFGPT FM6_A) (mapcar '+ EFGPT FM6_E) "") (command "_line" (mapcar '+ EFGPT FM7_A) (mapcar '+ EFGPT FM7_E) "") (command "_line" (mapcar '+ EFGPT FM8_A) (mapcar '+ EFGPT FM8_E) "") (command "_line" (mapcar '+ EFGPT FM9_A) (mapcar '+ EFGPT FM9_E) "") (command "_line" (mapcar '+ EFGPT FM10_A) (mapcar '+ EFGPT FM10_E) "") (command "_line" (mapcar '+ EFGPT FM11_A) (mapcar '+ EFGPT FM11_E) "") (command "_line" (mapcar '+ EFGPT FM12_A) (mapcar '+ EFGPT FM12_E) "") (command "_line" (mapcar '+ EFGPT FM13_A) (mapcar '+ EFGPT FM13_E) "") (command "_line" (mapcar '+ EFGPT FM14_A) (mapcar '+ EFGPT FM14_E) "") (command "_line" (mapcar '+ EFGPT FM15_A) (mapcar '+ EFGPT FM15_E) "") (command "_line" (mapcar '+ EFGPT FM16_A) (mapcar '+ EFGPT FM16_E) "") (command "_line" (mapcar '+ EFGPT FM17_A) (mapcar '+ EFGPT FM17_E) "") (command "_line" (mapcar '+ EFGPT FM18_A) (mapcar '+ EFGPT FM18_E) "") ;;; Wenn Einfügepunkt gleich 0,0,0 ist, dann zoom grenzen (if (equal EFGPT '(0 0 0)) (command "_zoom" "g")) (setvar "OSMODE" OldOsmode) ) (defun C:LAY_A1() ;;; Einfügepunkt abfragen. Wenn keiner angegeben, dann 0,0,0 (if (setq EFGPT (getpoint "\nEinfügepunkt angeben <0,0>:")) "Erhalten" (setq EFGPT '(0 0 0))) ;;; Objektfang status speichern und deaktivieren (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0) ;;; Variablen Definieren (setq R1_A '(0 0 0)) ; Linke untere Ecke, äuseres rechteck (setq R1_E '(841 594 0)) ; Rechte obere Ecke, äuseres Rechteck (setq R2_A '(20 5 0)) ; Linke untere Ecke, inneres Rechteck (setq R2_E '(836 589 0)) ; Rechte obere Ecke, inneres Rechteck (setq LM1_A '(0 68.5 0)) ; Untere Lochmarke, links (setq LM1_E '(10 68.5 0)) ; Untere Lochmarke, rechts (setq LM2_A '(0 148.5 0)) ; Mittlere Lochmarke, links (setq LM2_E '(20 148.5 0)) ; Mittlere Lochmarke, rechts (setq LM3_A '(0 228.5 0)) ; Obere Lochmarke, links (setq LM3_E '(10 228.5 0)) ; Obere Lochmarke, rechts (setq FM1_A '(0 297 0)) ; A4, waagrecht, links (setq FM1_E '(20 297 0)) ; A4, waagrecht, rechts (setq FM12_A '(210 0 0)) ; A4, senkrecht, unten (setq FM12_E '(210 5 0)) ; A4, senkrecht, oben ; Ab hier layoutabhänige faltmarken (UZS) (setq FM2_A '(0 297 0)) (setq FM2_E '(20 353.5714 0)) (setq FM3_A '(103.2323 589 0)) (setq FM3_E '(105 594 0)) (setq FM4_A '(210 589 0)) (setq FM4_E '(210 594 0)) (setq FM5_A '(335.5 589 0)) (setq FM5_E '(335.5 594 0)) (setq FM6_A '(461 589 0)) (setq FM6_E '(461 594 0)) (setq FM7_A '(651 589 0)) (setq FM7_E '(651 594 0)) (setq FM8_A '(836 297 0)) (setq FM8_E '(841 297 0)) (setq FM9_A '(651 0 0)) (setq FM9_E '(651 5 0)) (setq FM10_A '(461 0 0)) (setq FM10_E '(461 5 0)) (setq FM11_A '(335.5 0 0)) (setq FM11_E '(335.5 5 0)) ;;; Ab hier kommandos: ;;; R = Rechteck, LM = Lochmarke, FM = Faltmarke (command "_rectang" (mapcar '+ EFGPT R1_A) (mapcar '+ EFGPT R1_E)) (command "_rectang" (mapcar '+ EFGPT R2_A) (mapcar '+ EFGPT R2_E)) (command "_line" (mapcar '+ EFGPT LM1_A) (mapcar '+ EFGPT LM1_E) "") (command "_line" (mapcar '+ EFGPT LM2_A) (mapcar '+ EFGPT LM2_E) "") (command "_line" (mapcar '+ EFGPT LM3_A) (mapcar '+ EFGPT LM3_E) "") (command "_line" (mapcar '+ EFGPT FM1_A) (mapcar '+ EFGPT FM1_E) "") (command "_line" (mapcar '+ EFGPT FM2_A) (mapcar '+ EFGPT FM2_E) "") (command "_line" (mapcar '+ EFGPT FM3_A) (mapcar '+ EFGPT FM3_E) "") (command "_line" (mapcar '+ EFGPT FM4_A) (mapcar '+ EFGPT FM4_E) "") (command "_line" (mapcar '+ EFGPT FM5_A) (mapcar '+ EFGPT FM5_E) "") (command "_line" (mapcar '+ EFGPT FM6_A) (mapcar '+ EFGPT FM6_E) "") (command "_line" (mapcar '+ EFGPT FM7_A) (mapcar '+ EFGPT FM7_E) "") (command "_line" (mapcar '+ EFGPT FM8_A) (mapcar '+ EFGPT FM8_E) "") (command "_line" (mapcar '+ EFGPT FM9_A) (mapcar '+ EFGPT FM9_E) "") (command "_line" (mapcar '+ EFGPT FM10_A) (mapcar '+ EFGPT FM10_E) "") (command "_line" (mapcar '+ EFGPT FM11_A) (mapcar '+ EFGPT FM11_E) "") (command "_line" (mapcar '+ EFGPT FM12_A) (mapcar '+ EFGPT FM12_E) "") ;;; Wenn Einfügepunkt gleich 0,0,0 ist, dann zoom grenzen (if (equal EFGPT '(0 0 0)) (command "_zoom" "g")) (setvar "OSMODE" OldOsmode) ) (defun C:LAY_A2() ;;; Einfügepunkt abfragen. Wenn keiner angegeben, dann 0,0,0 (if (setq EFGPT (getpoint "\nEinfügepunkt angeben <0,0>:")) "Erhalten" (setq EFGPT '(0 0 0))) ;;; Objektfang status speichern und deaktivieren (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0) ;;; Variablen Definieren (setq R1_A '(0 0 0)) ; Linke untere Ecke, äuseres rechteck (setq R1_E '(594 420 0)) ; Rechte obere Ecke, äuseres Rechteck (setq R2_A '(20 5 0)) ; Linke untere Ecke, inneres Rechteck (setq R2_E '(589 415 0)) ; Rechte obere Ecke, inneres Rechteck (setq LM1_A '(0 68.5 0)) ; Untere Lochmarke, links (setq LM1_E '(10 68.5 0)) ; Untere Lochmarke, rechts (setq LM2_A '(0 148.5 0)) ; Mittlere Lochmarke, links (setq LM2_E '(20 148.5 0)) ; Mittlere Lochmarke, rechts (setq LM3_A '(0 228.5 0)) ; Obere Lochmarke, links (setq LM3_E '(10 228.5 0)) ; Obere Lochmarke, rechts (setq FM1_A '(0 297 0)) ; A4, waagrecht, links (setq FM1_E '(20 297 0)) ; A4, waagrecht, rechts (setq FM8_A '(210 0 0)) ; A4, senkrecht, unten (setq FM8_E '(210 5 0)) ; A4, senkrecht, oben ; Ab hier layoutabhänige faltmarken (UZS) (setq FM2_A '(0 297 0)) (setq FM2_E '(20 320.4286 0)) (setq FM3_A '(100.7317 415 0)) (setq FM3_E '(105 420 0)) (setq FM4_A '(210 415 0)) (setq FM4_E '(210 420 0)) (setq FM5_A '(402 415 0)) (setq FM5_E '(402 420 0)) (setq FM6_A '(589 297 0)) (setq FM6_E '(594 297 0)) (setq FM7_A '(402 0 0)) (setq FM7_E '(402 5 0)) ;;; Ab hier kommandos: ;;; R = Rechteck, LM = Lochmarke, FM = Faltmarke (command "_rectang" (mapcar '+ EFGPT R1_A) (mapcar '+ EFGPT R1_E)) (command "_rectang" (mapcar '+ EFGPT R2_A) (mapcar '+ EFGPT R2_E)) (command "_line" (mapcar '+ EFGPT LM1_A) (mapcar '+ EFGPT LM1_E) "") (command "_line" (mapcar '+ EFGPT LM2_A) (mapcar '+ EFGPT LM2_E) "") (command "_line" (mapcar '+ EFGPT LM3_A) (mapcar '+ EFGPT LM3_E) "") (command "_line" (mapcar '+ EFGPT FM1_A) (mapcar '+ EFGPT FM1_E) "") (command "_line" (mapcar '+ EFGPT FM2_A) (mapcar '+ EFGPT FM2_E) "") (command "_line" (mapcar '+ EFGPT FM3_A) (mapcar '+ EFGPT FM3_E) "") (command "_line" (mapcar '+ EFGPT FM4_A) (mapcar '+ EFGPT FM4_E) "") (command "_line" (mapcar '+ EFGPT FM5_A) (mapcar '+ EFGPT FM5_E) "") (command "_line" (mapcar '+ EFGPT FM6_A) (mapcar '+ EFGPT FM6_E) "") (command "_line" (mapcar '+ EFGPT FM7_A) (mapcar '+ EFGPT FM7_E) "") (command "_line" (mapcar '+ EFGPT FM8_A) (mapcar '+ EFGPT FM8_E) "") ;;; Wenn Einfügepunkt gleich 0,0,0 ist, dann zoom grenzen (if (equal EFGPT '(0 0 0)) (command "_zoom" "g")) (setvar "OSMODE" OldOsmode) ) (defun C:LAY_A3() ;;; Einfügepunkt abfragen. Wenn keiner angegeben, dann 0,0,0 (if (setq EFGPT (getpoint "\nEinfügepunkt angeben <0,0>:")) "Erhalten" (setq EFGPT '(0 0 0))) ;;; Objektfang status speichern und deaktivieren (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0) ;;; Variablen Definieren (setq R1_A '(0 0 0)) ; Linke untere Ecke, äuseres rechteck (setq R1_E '(420 297 0)) ; Rechte obere Ecke, äuseres Rechteck (setq R2_A '(20 5 0)) ; Linke untere Ecke, inneres Rechteck (setq R2_E '(415 292 0)) ; Rechte obere Ecke, inneres Rechteck (setq LM1_A '(0 68.5 0)) ; Untere Lochmarke, links (setq LM1_E '(10 68.5 0)) ; Untere Lochmarke, rechts (setq LM2_A '(0 148.5 0)) ; Mittlere Lochmarke, links (setq LM2_E '(20 148.5 0)) ; Mittlere Lochmarke, rechts (setq LM3_A '(0 228.5 0)) ; Obere Lochmarke, links (setq LM3_E '(10 228.5 0)) ; Obere Lochmarke, rechts ; Ab hier layoutabhänige faltmarken (UZS) (setq FM1_A '(125 292 0)) (setq FM1_E '(125 297 0)) (setq FM2_A '(230 292 0)) (setq FM2_E '(230 297 0)) (setq FM3_A '(230 0 0)) (setq FM3_E '(230 5 0)) (setq FM4_A '(125 0 0)) (setq FM4_E '(125 5 0)) ;;; Ab hier kommandos: ;;; R = Rechteck, LM = Lochmarke, FM = Faltmarke (command "_rectang" (mapcar '+ EFGPT R1_A) (mapcar '+ EFGPT R1_E)) (command "_rectang" (mapcar '+ EFGPT R2_A) (mapcar '+ EFGPT R2_E)) (command "_line" (mapcar '+ EFGPT LM1_A) (mapcar '+ EFGPT LM1_E) "") (command "_line" (mapcar '+ EFGPT LM2_A) (mapcar '+ EFGPT LM2_E) "") (command "_line" (mapcar '+ EFGPT LM3_A) (mapcar '+ EFGPT LM3_E) "") (command "_line" (mapcar '+ EFGPT FM1_A) (mapcar '+ EFGPT FM1_E) "") (command "_line" (mapcar '+ EFGPT FM2_A) (mapcar '+ EFGPT FM2_E) "") (command "_line" (mapcar '+ EFGPT FM3_A) (mapcar '+ EFGPT FM3_E) "") (command "_line" (mapcar '+ EFGPT FM4_A) (mapcar '+ EFGPT FM4_E) "") ;;; Wenn Einfügepunkt gleich 0,0,0 ist, dann zoom grenzen (if (equal EFGPT '(0 0 0)) (command "_zoom" "g")) (setvar "OSMODE" OldOsmode) )