;;--------------------------------------------------------------------------*
;;  Copyright 2008  DC4 Technisches Buero GmbH                 *
;;--------------------------------------------------------------------------*
(in-package :custom)

(use-package :OLI)

(sd-defdialog 'dc4-anno-plotten-dialog
:dialog-title "Alles Plotten"
;;:dialog-control :sequential
  :dialog-type :terminate
  :dialog-control :parallel
  :module "ANNOTATION"
  :variables
  `(
     ("Alle Blätter")
     ("der Zeichnung")
     ("formatabhängig")
     ("ausdrucken")
   )
  :local-functions
   '(
     (main-action ()
      (let (shlist sh shstruct shcorners shname breit hoch)
       (setf shlist (sd-am-inq-all-sheets))
       (dolist (sh shlist)
        (setf shstruct (sd-am-inq-sheet sh))
        (setf shname (sd-am-sheet-struct-name shstruct))
        (am_current_sheet shname)
        (setf shcorners (sd-am-sheet-struct-corners shstruct))
        (setf breit (abs (- (gpnt2d_x (second shcorners)) (gpnt2d_x (first shcorners)))))
        (setf hoch (abs (- (gpnt2d_y (second shcorners)) (gpnt2d_y (first shcorners)))))
        (if (> breit hoch)
         (progn
          ;;Querformate
          (cond
           ((< breit 298)
            (progn
             ;;A4
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen z.B.   :DC4_LASER_QUERFORMAT
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 421)
            (progn
             ;;A3
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 595)
            (progn
             ;;A2
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 842)
            (progn
             ;;A1
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 1190)
            (progn
             ;;A0
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           (t
            (progn
             ;;A00
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
          );;cond
         );;progn
         (progn
          ;;Hochformate
          (cond
           ((< breit 211)
            (progn
             ;;A4
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 298)
            (progn
             ;;A3
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 421)
            (progn
             ;;A2
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 595)
            (progn
             ;;A1
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           ((< breit 842)
            (progn
             ;;A0
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
           (t
            (progn
             ;;A00
             (sd-call-cmds
              (am_plot_ex :PLOT_STYLE ;;hier den richtigen Plotstil eintragen 
                          :PLOT
              )		   
             )
            );;progn
           );;
          );;cond
         );;progn
        );;if
       );;dolist
      );;let
     )
    )
     :ok-action
    '(main-action)
)