(in-package :costum) (use-package :OLI) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ä Ì Ä Ø ö Î Ö Ú ü Ï Ü Û ß Þ ; 65280 Grün ; 16776960 Gelb ; 16777215 Weiss ; 16711680 Rot ; 255 Blau ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;----------------------------------------------------------------------------------------------* ;; Vorgaben setzen: ;; Moeglicher Vorgabewerte: ;;----------------------------------------------------------------------------------------------* ;;; Name Rahmenbeschriftung (setf bg_sketch_Rah "Rahmenbeschr") ;;; Name SCHRIFTFELD ;;; (setf bg_sketch_Sch "Schriftfeld") ;;; Position / Name Änderung ;;; (setf bg_sketch_AE "Ønderung") (setf pos_sketch_AE -30.5,42.5) ;;; Position / Name Änderung ;;; (setf bg_sketch_PAS "Passung") (setf pos_sketch_PAS -145.5,48) ;;; Position / Name Kostenstellen;;; (setf bg_sketch_Ko "Kostenstellen") (setf bg_kos_230 -18.875,72.55) (setf bg_kos_240 -3.625,72.55) (setf bg_kos_250 -18.875,67.7) (setf bg_kos_270 -18.875,62.9) (sd-defdialog 'Schriftfeld_Ko :dialog-title "Schriftfeld" :after-initialization '(progn (DateTime) (Kasten-definieren) (BenutzerAE) (AnzeigSCH)) :variables '( ;;; Hauptauswahl -> Schriftfeld, Kostenstellen, Änderung, Passung ;;; (Schrift_KO :value-type :boolean :toggle-type :grouped-toggle :title "Schriftfeld" :after-input (AnzeigSCH) :initial-value t) (Kosten_KO :value-type :boolean :toggle-type :grouped-toggle :title "Kostenstellen" :after-input (AnzeigKo) :initial-value nil) (Aender_KO :value-type :boolean :toggle-type :grouped-toggle :title "Ønderung" :after-input (AnzeigAE) :initial-value nil) (Passung_KO :value-type :boolean :toggle-type :grouped-toggle :title "Passung" :after-input (Anzeig_PAS) :initial-value nil) ("Eingaben") ;;; Variable Schriftfeld ;;; (NAM_SCH :value-type :boolean :toggle-type :grouped-toggle :title "Name" :prompt-text "Name" :initial-value t) (DAT_SCH :value-type :boolean :toggle-type :grouped-toggle :title "Datum" :prompt-text "Datum" :initial-value t) (RAH_SCH :value-type :boolean :toggle-type :wide-toggle :title "Rahmen hinzuf." :prompt-text "Rahmen hinzufügen" :initial-value t) (ERF_SCH :value-type :string :prompt-text "Ersatz fÏr" :title "Ersatz fÏr" :initial-value nil) (ERFD_SCH :value-type :boolean :toggle-type :wide-toggle :title "Ersatz fÏr streichen" :prompt-text "Ersatz fÏr durchstreichen" :initial-value nil) (ERD_SCH :value-type :string :prompt-text "Ersatz durch" :title "Ersatz durch" :initial-value nil) (ERDD_SCH :value-type :boolean :toggle-type :wide-toggle :title "Ersatz durch streichen" :prompt-text "Ersatz durch durchstreichen" :initial-value nil) (WV3_SCH :value-type :string :prompt-text "wird verwendet 3" :title "wird verw. 3" :initial-value nil) (WV2_SCH :value-type :string :prompt-text "wird verwendet 2" :title "wird verw. 2" :initial-value nil) (WV1_SCH :value-type :string :prompt-text "wird verwendet 1" :title "wird verw. 1" :initial-value nil) ;;; Variable Änderung (Zeile_AE :value-type :number :prompt-text "Zeile auswaehlen" :title "Zeile" :proposals (1 2 3 4 5 6 7 8 9 10 ) :auto-add-proposal nil :persistent-proposals nil :initial-value 1) (buchstabe_AE :value-type :string :prompt-text "Buchstabe" :title "Buchstabe" :proposals ("a" "b" "c" "d" "e" "f" "g" ) :auto-add-proposal nil :persistent-proposals nil :initial-value "a") (anzahl_AE :value-type :number :prompt-text "Kommt vor" :title "Kommt vor" :proposals (1 2 3 4 5 6 7 8 9 10) :auto-add-proposal nil :persistent-proposals nil :initial-value 1 ) (SUCH_AE :title "Anzahl suchen" :push-action (suche_index) :toggle-type :right-toggle :after-input (SUCHE_INDEX) ) (nummer_AE :value-type :number :prompt-text "Mitteilungsnummer" :title "Mitteilungsnr" :initial-value 37000) (art_AE :value-type :string :prompt-text "Art der Mitteilung" :title "Art der Mitt." :initial-value "siehe Mitteilung") ;;; Variable Kostenstellen ;;; (KOST_230 :value-type :boolean :toggle-type :grouped-toggle :title "2430" :prompt-text "2430" :initial-value nil) (KOST_240 :value-type :boolean :toggle-type :grouped-toggle :title "2440" :prompt-text "2440" :initial-value nil) (KOST_250 :value-type :boolean :toggle-type :left-toggle :title "2450" :prompt-text "2450" :initial-value nil) (KOST_270 :value-type :boolean :toggle-type :grouped-toggle :title "2470" :prompt-text "2470" :initial-value nil) ;;; Variable Passung (Zeile_PAS :value-type :number :prompt-text "Zeile auswaehlen" :title "Zeile" :proposals (1 2 3 4 5 6 7 8 9 10 ) :auto-add-proposal nil :persistent-proposals nil :initial-value 1) (Nennm_PAS :value-type :string :prompt-text "NennmaÞ" :title "NennmaÞ" :initial-value "" ) (Toler_PAS :value-type :string :prompt-text "Toleranz" :title "Toleranz" :proposals ("H7" "H8") :auto-add-proposal nil :persistent-proposals nil :initial-value "H7" ) (Oben_PAS :value-type :string :prompt-text "Obere Toleranz" :title "Obere Toleranz" :initial-value "+0.000") (Unten_PAS :value-type :string :prompt-text "Untere Toleranz" :title "Untere Toleranz" :initial-value "-0.000") ("-") ;;; Push-Button -> Schriftfeld, Kostenstellen, Änderung, Passung ;;; (Eintragen_AE :title "Ûbernehmen" :push-action (sd-call-cmds (Eintragen_AR)) :toggle-type :right-toggle) (Eintragen_KO :title "Ûbernehmen" :push-action (sd-call-cmds (Eintragen_KS)) :toggle-type :right-toggle) (Loesch_SCH :title "Vorg. lÎschen" :push-action (Loes_SCH) :toggle-type :grouped-toggle ) (Eintragen_SCH :title "Ûbernehmen" :push-action (sd-call-cmds (Eintragen_SC)) :toggle-type :grouped-toggle ) (AnzeigPAS :title "Ûbernehmen" :push-action (sd-call-cmds (Eintragen_PAS)) :toggle-type :right-toggle :after-input (setf Zeile_PAS (+ Zeile_PAS 1)) ) ) ;; end variables :mutual-exclusion '(Schrift_KO Kosten_KO Aender_KO Passung_KO) :ok-action '() :help-action '(progn (display :show ) (display :clear ) (display " ") (display "!!! Hilfe !!!") );progn - help-action ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;; Lokale Funktionen ;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; :local-functions '( ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Blattposition ermitteln ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (Kasten-definieren () (let (x-of-ll y-of-ll x-of-ur y-of-ur) (progn (setq part-id (sd-am-inq-unique-name (sd-am-sheet-struct-frame (sd-am-inq-sheet (sd-am-inq-curr-sheet))))) (setq x-of-ll (sd-read-from-string (car (getf (oli::sd-execute-annotator-function :fnc (format nil "Docu_get_part_box '~A'" part-id)) :LL)))) (setq y-of-ll (sd-read-from-string(cadr (getf (oli::sd-execute-annotator-function :fnc (format nil "Docu_get_part_box '~A'" part-id)) :LL)))) (setq x-of-ur (sd-read-from-string(car (getf (oli::sd-execute-annotator-function :fnc (format nil "Docu_get_part_box '~A'" part-id)) :ur)))) (setq y-of-ur (sd-read-from-string(cadr (getf (oli::sd-execute-annotator-function :fnc (format nil "Docu_get_part_box '~A'" part-id)) :ur)))) (setq xy-of-ll (make-gpnt2d :x x-of-ll :y y-of-ll)) (setq xy-of-ur (make-gpnt2d :x x-of-ur :y y-of-ur)) (setq xy-of-llur (make-gpnt2d :x x-of-ll :y y-of-ur)) (setq xy-of-urll (make-gpnt2d :x x-of-ur :y y-of-ll)) ) ;end progn ) ;end let ) ;end Kasten definieren ;;;;;;;;;;;;;;;;;;;;;;; ;;; Datum ermitteln ;;; ;;;;;;;;;;;;;;;;;;;;;;; (DateTime () (progn (multiple-value-bind (second minute hour date month year day daylight-p zone) (get-decoded-time) (progn (setf time (format nil "~A:~A:~A" hour minute second)) (setf bg_edatum (format nil "~A.~A.~A" date month (- year 2000))) (setf bg_dmdatum (format nil "~A.~A." date month )) (setf bg_ydatum (format nil "~A" (- year 2000))) );;progn );;multiple-value-bind );;end progn );;Datum bis hier ;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Besitzer ermitteln ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; (BenutzerAE () ;(setq Akt_sd_user "Unbekannt") (setq Akt_cad_user "Unbekannt") (setq Akt_sd_user (sd-sys-getenv "USERNAME")) (cond ((string= Akt_sd_user "jbongert") (setq Akt_cad_user "Bongert")) ((string= Akt_sd_user "mbreuers") (setq Akt_cad_user "Breuers")) ) ;end cond ) ;end BenutzerAE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Änderungstexte eintragen ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (Eintragen_AR () ; Rahmenbeschriftung (progn (setf csn (sd-am-inq-curr-sheet-name)) (setf Rahmenbe_DA nil) (setf alle_skizzen nil) (setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet))) (dolist (skizzen alle_skizzen) (when (sd-string-match-pattern-p bg_sketch_Rah (sd-am-inq-name skizzen)) (setf Rahmenbe_DA t) );;when );end dolist );;progn (if (equal Rahmenbe_DA nil) (progn (AM_SKETCH_CREATE :sketch_name bg_sketch_Rah :owner :current_sheet :ref_point xy-of-urll ); end AM_SKETCH );end progn );end If ; end Rahmenbeschriftung (progn (setf csn (sd-am-inq-curr-sheet-name)) (setf skizzenname_AE (format nil "~a ~a" bg_sketch_AE Zeile_AE)) ;; Skizze sketch1 erstellen (AM_SKETCH_CREATE :sketch_name skizzenname_AE :owner :sketch (format nil "/~a/~a" csn bg_sketch_Rah) :ref_point (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) );;am_sketch );;progn (progn (setf docu::*docu-hide-wrong-owner-warning* t) (AM_CREATE_TEXT :docu-text (format nil "~a" buchstabe_AE) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 111)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" anzahl_AE) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 102)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" nummer_AE) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 88)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" art_AE) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 52.5)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" bg_edatum) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.55 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 21)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" Akt_cad_user) :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) :size 3.5 :color 16776960 :done :ratio 0.55 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 8)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 3))) );end AM_CREATE_TEXT (if (> Zeile_AE 4) (progn (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :VIEW_NORMAL_LINE) (am_geo_polygon :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_AE) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 79)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 79)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 115)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 115)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :SECTION_LEADER) (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 16)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 16)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 26)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 26)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 97)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 97)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 107)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6) (- 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 107)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :BEZLINIE) (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) (gpnt2d (+(gpnt2d_x pos_sketch_AE) (gpnt2d_x xy-of-urll) (- 115)) (+(gpnt2d_y pos_sketch_AE) (gpnt2d_y xy-of-urll) (* Zeile_AE 6))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) ); end Progn ); end if (setf docu::*docu-hide-wrong-owner-warning* nil) ); end Progn );end Eintragen_AR ;;;;;;;;;;;;;;;;;;;;; ;;; Indexe suchen ;;; ;;;;;;;;;;;;;;;;;;;;; (suche_index () (setf anzahl_AE 99) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Kostenstellen eintragen ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (Eintragen_KS () (progn (setf csn (sd-am-inq-curr-sheet-name)) ;; Vorhandende skizze sketch1 falls vorhanden suchen und löschen (setf alle_skizzen nil) (setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet))) (dolist (skizzen alle_skizzen) (when (sd-string-match-pattern-p bg_sketch_KO (sd-am-inq-name skizzen)) (AM_SKETCH_DELETE :sketch (format nil "/~a/~a" csn bg_sketch_KO) :YES) (display (format nil " ~%Achtung, vorhandende Skizze~%Kostenstellen ersetzt!")) );;when );;dolist ;; Skizze sketch1 erstellen (AM_SKETCH_CREATE :sketch_name bg_sketch_KO :owner :current_sheet :ref_point xy-of-urll );;am_sketch );;progn (progn (setf docu::*docu-hide-wrong-owner-warning* t) (if (equal KOST_230 t) (progn (AM_CREATE_TEXT :docu-text "X" :owner (format nil "/~a/~a" csn bg_sketch_KO) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x bg_kos_230) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y bg_kos_230) (gpnt2d_y xy-of-urll))) );end AM_CREATE_TEXT ); end Progn ); end if (if (equal KOST_240 t) (progn (AM_CREATE_TEXT :docu-text "X" :owner (format nil "/~a/~a" csn bg_sketch_KO) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x bg_kos_240) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y bg_kos_240) (gpnt2d_y xy-of-urll))) );end AM_CREATE_TEXT ); end Progn ); end if (if (equal KOST_250 t) (progn (AM_CREATE_TEXT :docu-text "X" :owner (format nil "/~a/~a" csn bg_sketch_KO) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x bg_kos_250) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y bg_kos_250) (gpnt2d_y xy-of-urll))) );end AM_CREATE_TEXT ); end Progn ); end if (if (equal KOST_270 t) (progn (AM_CREATE_TEXT :docu-text "X" :owner (format nil "/~a/~a" csn bg_sketch_KO) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x bg_kos_270) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y bg_kos_270) (gpnt2d_y xy-of-urll))) );end AM_CREATE_TEXT ); end Progn ); end if (setf docu::*docu-hide-wrong-owner-warning* nil) );end prog );end Eintragen_KS ;;;;;;;;;;;;;;;;;;;;;;;; ;;; Vorgaben löschen ;;; ;;;;;;;;;;;;;;;;;;;;;;;; (Loes_SCH () (progn (setf NAM_SCH nil) (setf DAT_SCH nil) (setf RAH_SCH nil) (setf ERF_SCH nil) (setf ERFD_SCH nil) (setf ERD_SCH nil) (setf ERDD_SCH nil) (setf WV3_SCH nil) (setf WV2_SCH nil) (setf WV1_SCH nil) ) ; end Progn ); end Loes_SCH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Schriftfeld ausfüllen ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (Eintragen_SC () ; Skizze erstellen (progn (setf csn (sd-am-inq-curr-sheet-name)) (setf Skizze_DA nil) (setf alle_skizzen nil) (setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet))) (dolist (skizzen alle_skizzen) (when (sd-string-match-pattern-p bg_sketch_Sch (sd-am-inq-name skizzen)) (setf Skizze_DA t) );;when );end dolist );;progn (if (equal Skizze_DA nil) (progn (AM_SKETCH_CREATE :sketch_name bg_sketch_Sch :owner :current_sheet :ref_point xy-of-urll ); edn AM_SKETCH );end progn );end If ; Werte eintragen (progn (setf docu::*docu-hide-wrong-owner-warning* t) (if (equal NAM_SCH t) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" Akt_cad_user) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 2.5 :color 255 :done :ratio 0.6 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 151.5)) (+ (gpnt2d_y xy-of-urll) (+ 35.25))) );end AM_CREATE_TEXT );end progn );end if (if (equal DAT_SCH t) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" bg_dmdatum) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 2.5 :color 255 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 162.25)) (+ (gpnt2d_y xy-of-urll) (+ 35.25))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" bg_ydatum) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 2.5 :color 255 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 173)) (+ (gpnt2d_y xy-of-urll) (+ 40.3))) );end AM_CREATE_TEXT );end progn );end if (if (not(equal ERF_SCH nil)) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" ERF_SCH) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 3 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 71)) (+ (gpnt2d_y xy-of-urll) (+ 7.5))) );end AM_CREATE_TEXT );end progn );end if (if (not(equal ERD_SCH nil)) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" ERD_SCH) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 3 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 71)) (+ (gpnt2d_y xy-of-urll) (+ 2.5))) );end AM_CREATE_TEXT );end progn );end if (if (not(equal WV3_SCH nil)) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" WV3_SCH) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 3 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 15.25)) (+ (gpnt2d_y xy-of-urll) (+ 18.5))) );end AM_CREATE_TEXT );end progn );end if (if (not(equal WV2_SCH nil)) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" WV2_SCH) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 3 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 15.25)) (+ (gpnt2d_y xy-of-urll) (+ 13.1))) );end AM_CREATE_TEXT );end progn );end if (if (not(equal WV1_SCH nil)) (progn (AM_CREATE_TEXT :docu-text (format nil "~a" WV1_SCH) :owner (format nil "/~a/~a" csn bg_sketch_Sch) :size 3 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 15.25)) (+ (gpnt2d_y xy-of-urll) (+ 7.7))) );end AM_CREATE_TEXT );end progn );end if ; Geometrie erstellen (if (equal RAH_SCH t) (progn (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Color" :parent_style :MITTELLINIE :A_COLOR 65535 :done) (am_geo_polygon :owner (format nil "/~a/~a" csn bg_sketch_Sch) (gpnt2d (+ (gpnt2d_x xy-of-urll)) (+ (gpnt2d_y xy-of-urll))) (gpnt2d (+ (gpnt2d_x xy-of-ll)) (+ (gpnt2d_y xy-of-ll))) (gpnt2d (+ (gpnt2d_x xy-of-llur)) (+ (gpnt2d_y xy-of-llur))) (gpnt2d (+ (gpnt2d_x xy-of-ur)) (+ (gpnt2d_y xy-of-ur))) (gpnt2d (+ (gpnt2d_x xy-of-urll)) (+ (gpnt2d_y xy-of-urll))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Color" :parent_style :MITTELLINIE :A_COLOR 16776960 :done) );end progn );end if (if (equal ERFD_SCH t) (progn (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :VIEW_TANGENT_LINE) (am_geo_polygon :owner (format nil "/~a/~a" csn bg_sketch_Sch) (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 109)) (+ (gpnt2d_y xy-of-urll) (+ 7.3))) (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 92)) (+ (gpnt2d_y xy-of-urll) (+ 7.3))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) );end progn );end if (if (equal ERDD_SCH t) (progn (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :VIEW_TANGENT_LINE) (am_geo_polygon :owner (format nil "/~a/~a" csn bg_sketch_Sch) (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 109)) (+ (gpnt2d_y xy-of-urll) (+ 1.8))) (gpnt2d (+ (gpnt2d_x xy-of-urll) (- 87)) (+ (gpnt2d_y xy-of-urll) (+ 1.8))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) );end progn );end if (setf docu::*docu-hide-wrong-owner-warning* nil) ) ); end ;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Passung eintragen ;;; ;;;;;;;;;;;;;;;;;;;;;;;;; (Eintragen_PAS () ; Rahmenbeschriftung (progn (setf csn (sd-am-inq-curr-sheet-name)) (setf Rahmenbe_DA nil) (setf alle_skizzen nil) (setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet))) (dolist (skizzen alle_skizzen) (when (sd-string-match-pattern-p bg_sketch_Rah (sd-am-inq-name skizzen)) (setf Rahmenbe_DA t) );;when );end dolist );;progn (if (equal Rahmenbe_DA nil) (progn (AM_SKETCH_CREATE :sketch_name bg_sketch_Rah :owner :current_sheet :ref_point xy-of-urll ); end AM_SKETCH );end progn );end If ; end Rahmenbeschriftung (progn (setf csn (sd-am-inq-curr-sheet-name)) (setf skizzenname_PAS (format nil "~a ~a" bg_sketch_PAS Zeile_PAS)) ;; Skizze sketch1 erstellen (AM_SKETCH_CREATE :sketch_name skizzenname_PAS :owner :sketch (format nil "/~a/~a" csn bg_sketch_Rah) :ref_point (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 7.5))) );;am_sketch );;progn (progn (setf docu::*docu-hide-wrong-owner-warning* t) (AM_CREATE_TEXT :docu-text (format nil "~a ~a" Nennm_PAS Toler_PAS) :owner (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_PAS) :size 3.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 25.5)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 3.75))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" Oben_PAS) :size 2.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 8.5)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 1.875))) );end AM_CREATE_TEXT (AM_CREATE_TEXT :docu-text (format nil "~a" Unten_PAS) :size 2.5 :color 16776960 :done :ratio 0.8 :adjust 5 (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 8.5)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 5.625))) );end AM_CREATE_TEXT (if (> Zeile_PAS 4) (progn (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :VIEW_NORMAL_LINE) (am_geo_polygon :owner :sketch (format nil "/~a/~a/~a" csn bg_sketch_Rah skizzenname_PAS) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5))) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 7.5))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 34)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5))) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 34)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 7.5))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :SECTION_LEADER) (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 17)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5))) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 17)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 7.5))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :BEZLINIE) (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 3.75))) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 17)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5) (- 3.75))) );am_geo_polygon (am_geo_polygon (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5))) (gpnt2d (+(gpnt2d_x pos_sketch_PAS) (gpnt2d_x xy-of-urll) (- 34)) (+(gpnt2d_y pos_sketch_PAS) (gpnt2d_y xy-of-urll) (* Zeile_PAS 7.5))) );am_geo_polygon (modify_default_setting :path "Annotation/Geometry/Standard" :a_range :mittellinie) ); end Progn ); end if (setf docu::*docu-hide-wrong-owner-warning* nil) ); end Progn );end Eintragen_PAS ;;;;;;;;;;;;;;;;;;;;; ;;; Menü anzeigen ;;; ;;;;;;;;;;;;;;;;;;;;; (AnzeigAE () ;Änderung (progn (sd-set-variable-status 'Zeile_AE :visible t) (sd-set-variable-status 'buchstabe_AE :visible t) (sd-set-variable-status 'anzahl_AE :visible t) (sd-set-variable-status 'SUCH_AE :visible t) (sd-set-variable-status 'nummer_AE :visible t) (sd-set-variable-status 'art_AE :visible t) (sd-set-variable-status 'Eintragen_AE :visible t) (sd-set-variable-status 'KOST_230 :visible nil) (sd-set-variable-status 'KOST_240 :visible nil) (sd-set-variable-status 'KOST_250 :visible nil) (sd-set-variable-status 'KOST_270 :visible nil) (sd-set-variable-status 'Eintragen_KO :visible nil) (sd-set-variable-status 'NAM_SCH :visible nil) (sd-set-variable-status 'DAT_SCH :visible nil) (sd-set-variable-status 'RAH_SCH :visible nil) (sd-set-variable-status 'ERF_SCH :visible nil) (sd-set-variable-status 'ERFD_SCH :visible nil) (sd-set-variable-status 'ERD_SCH :visible nil) (sd-set-variable-status 'ERDD_SCH :visible nil) (sd-set-variable-status 'WV3_SCH :visible nil) (sd-set-variable-status 'WV2_SCH :visible nil) (sd-set-variable-status 'WV1_SCH :visible nil) (sd-set-variable-status 'Loesch_SCH :visible nil) (sd-set-variable-status 'Eintragen_SCH :visible nil) (sd-set-variable-status 'Zeile_PAS :visible nil) (sd-set-variable-status 'Nennm_PAS :visible nil) (sd-set-variable-status 'Toler_PAS :visible nil) (sd-set-variable-status 'Oben_PAS :visible nil) (sd-set-variable-status 'Unten_PAS :visible nil) (sd-set-variable-status 'AnzeigPAS :visible nil) )) (AnzeigKo () ;Kostenstellen (progn (sd-set-variable-status 'Zeile_AE :visible nil) (sd-set-variable-status 'buchstabe_AE :visible nil) (sd-set-variable-status 'anzahl_AE :visible nil) (sd-set-variable-status 'SUCH_AE :visible nil) (sd-set-variable-status 'nummer_AE :visible nil) (sd-set-variable-status 'art_AE :visible nil) (sd-set-variable-status 'Eintragen_AE :visible nil) (sd-set-variable-status 'KOST_230 :visible t) (sd-set-variable-status 'KOST_240 :visible t) (sd-set-variable-status 'KOST_250 :visible t) (sd-set-variable-status 'KOST_270 :visible t) (sd-set-variable-status 'Eintragen_KO :visible t) (sd-set-variable-status 'NAM_SCH :visible nil) (sd-set-variable-status 'DAT_SCH :visible nil) (sd-set-variable-status 'RAH_SCH :visible nil) (sd-set-variable-status 'ERF_SCH :visible nil) (sd-set-variable-status 'ERFD_SCH :visible nil) (sd-set-variable-status 'ERD_SCH :visible nil) (sd-set-variable-status 'ERDD_SCH :visible nil) (sd-set-variable-status 'WV3_SCH :visible nil) (sd-set-variable-status 'WV2_SCH :visible nil) (sd-set-variable-status 'WV1_SCH :visible nil) (sd-set-variable-status 'Loesch_SCH :visible nil) (sd-set-variable-status 'Eintragen_SCH :visible nil) (sd-set-variable-status 'Zeile_PAS :visible nil) (sd-set-variable-status 'Nennm_PAS :visible nil) (sd-set-variable-status 'Toler_PAS :visible nil) (sd-set-variable-status 'Oben_PAS :visible nil) (sd-set-variable-status 'Unten_PAS :visible nil) (sd-set-variable-status 'AnzeigPAS :visible nil) )) (AnzeigSCH () ;Schriftfeld (progn (sd-set-variable-status 'Zeile_AE :visible nil) (sd-set-variable-status 'buchstabe_AE :visible nil) (sd-set-variable-status 'anzahl_AE :visible nil) (sd-set-variable-status 'SUCH_AE :visible nil) (sd-set-variable-status 'nummer_AE :visible nil) (sd-set-variable-status 'art_AE :visible nil) (sd-set-variable-status 'Eintragen_AE :visible nil) (sd-set-variable-status 'KOST_230 :visible nil) (sd-set-variable-status 'KOST_240 :visible nil) (sd-set-variable-status 'KOST_250 :visible nil) (sd-set-variable-status 'KOST_270 :visible nil) (sd-set-variable-status 'Eintragen_KO :visible nil) (sd-set-variable-status 'NAM_SCH :visible t) (sd-set-variable-status 'DAT_SCH :visible t) (sd-set-variable-status 'RAH_SCH :visible t) (sd-set-variable-status 'ERF_SCH :visible t) (sd-set-variable-status 'ERFD_SCH :visible t) (sd-set-variable-status 'ERD_SCH :visible t) (sd-set-variable-status 'ERDD_SCH :visible t) (sd-set-variable-status 'WV3_SCH :visible t) (sd-set-variable-status 'WV2_SCH :visible t) (sd-set-variable-status 'WV1_SCH :visible t) (sd-set-variable-status 'Loesch_SCH :visible t) (sd-set-variable-status 'Eintragen_SCH :visible t) (sd-set-variable-status 'Zeile_PAS :visible nil) (sd-set-variable-status 'Nennm_PAS :visible nil) (sd-set-variable-status 'Toler_PAS :visible nil) (sd-set-variable-status 'Oben_PAS :visible nil) (sd-set-variable-status 'Unten_PAS :visible nil) (sd-set-variable-status 'AnzeigPAS :visible nil) )) (Anzeig_PAS () ;Passung (progn (sd-set-variable-status 'Zeile_AE :visible nil) (sd-set-variable-status 'buchstabe_AE :visible nil) (sd-set-variable-status 'anzahl_AE :visible nil) (sd-set-variable-status 'SUCH_AE :visible nil) (sd-set-variable-status 'nummer_AE :visible nil) (sd-set-variable-status 'art_AE :visible nil) (sd-set-variable-status 'Eintragen_AE :visible nil) (sd-set-variable-status 'KOST_230 :visible nil) (sd-set-variable-status 'KOST_240 :visible nil) (sd-set-variable-status 'KOST_250 :visible nil) (sd-set-variable-status 'KOST_270 :visible nil) (sd-set-variable-status 'Eintragen_KO :visible nil) (sd-set-variable-status 'NAM_SCH :visible nil) (sd-set-variable-status 'DAT_SCH :visible nil) (sd-set-variable-status 'RAH_SCH :visible nil) (sd-set-variable-status 'ERF_SCH :visible nil) (sd-set-variable-status 'ERFD_SCH :visible nil) (sd-set-variable-status 'ERD_SCH :visible nil) (sd-set-variable-status 'ERDD_SCH :visible nil) (sd-set-variable-status 'WV3_SCH :visible nil) (sd-set-variable-status 'WV2_SCH :visible nil) (sd-set-variable-status 'WV1_SCH :visible nil) (sd-set-variable-status 'Loesch_SCH :visible nil) (sd-set-variable-status 'Eintragen_SCH :visible nil) (sd-set-variable-status 'Zeile_PAS :visible t) (sd-set-variable-status 'Nennm_PAS :visible t) (sd-set-variable-status 'Toler_PAS :visible t) (sd-set-variable-status 'Oben_PAS :visible t) (sd-set-variable-status 'Unten_PAS :visible t) (sd-set-variable-status 'AnzeigPAS :visible t) )) );end local-funktions ) ;; end dialog