;;--------------------------------------------------------------------------*
;;  Copyright 2002  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: load_sketch.lsp
;;  Version  : 1.0
;;  Datum    : 10.04.2002
;;  Author   : Gt
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)

;;--------------------------------------------------------------------------*
(sd-defdialog 'dc4-anno-load-sketch-dialog
:dialog-title "Skizze laden"
  :dialog-type :terminate
;;:dialog-control :sequential
:variables
  '(
     (name   :value-type :filename
             :title "Datei"
             :direction :input
             :prompt-text "Dateinamen der Skizze angeben."
             :filename-incl-path t
             :initialPattern "*.mi"
             :initialdirectory "C:/temp" ;; oder welcher Pfad auch immer
;;             :initial-value '("C:/temp/mysketch.mi" nil)  ;;bei Bedarf auskommentieren und eigenen Pfad eingeben, das "nil" muß sein!!!!
             :add-suffix nil
     )
     (rpnt   :range ((:LOWER_LEFT :label "1")
                     (:LOWER_MIDDLE :label "2")
                     (:LOWER_RIGHT :label "3")
                     (:MIDDLE_LEFT :label "4")
                     (:MIDDLE_MIDDLE :label "5")
                     (:MIDDLE_RIGHT :label "6")
                     (:UPPER_LEFT :label "7")
                     (:UPPER_MIDDLE :label "8")
                     (:UPPER_RIGHT :label "9")
                    )
             :title "CursorPos"
     )
     (rpnt7 :push-action (sd-set-variable-status 'rpnt :value :UPPER_LEFT)
            :size :third
            :title "7"
            :toggle-type :grouped-toggle
     )
     (rpnt8 :push-action (sd-set-variable-status 'rpnt :value :UPPER_MIDDLE)
            :size :third
            :title "8"
            :toggle-type :grouped-toggle
     )
     (rpnt9 :push-action (sd-set-variable-status 'rpnt :value :UPPER_RIGHT)
            :size :third
            :title "9"
            :toggle-type :grouped-toggle
     )
     (rpnt4 :push-action (sd-set-variable-status 'rpnt :value :MIDDLE_LEFT)
            :size :third
            :title "4"
            :toggle-type :grouped-toggle
     )
     (rpnt5 :push-action (sd-set-variable-status 'rpnt :value :MIDDLE_MIDDLE)
            :size :third
            :title "5"
            :toggle-type :grouped-toggle
     )
     (rpnt6 :push-action (sd-set-variable-status 'rpnt :value :MIDDLE_RIGHT)
            :size :third
            :title "6"
            :toggle-type :grouped-toggle
     )
     (rpnt1 :push-action (sd-set-variable-status 'rpnt :value :LOWER_LEFT)
            :size :third
            :title "1"
            :toggle-type :grouped-toggle
     )
     (rpnt2 :push-action (sd-set-variable-status 'rpnt :value :LOWER_MIDDLE)
            :size :third
            :title "2"
            :toggle-type :grouped-toggle
     )
     (rpnt3 :push-action (sd-set-variable-status 'rpnt :value :LOWER_RIGHT)
            :size :third
            :title "3"
            :toggle-type :grouped-toggle
     )
     (zpnt  :value-type :docupntcnp
            :title "Zielpunkt"
            :prompt-text "Zielpunkt fuer Skizze angeben"
     )
   )
:local-functions
  '(
    (ok-action ()
     (let (p0 ohne_warn)
      (setf p0 (make-gpnt2d :x (oli::gpntdocu_x zpnt)
                            :y (oli::gpntdocu_y zpnt)))
      (setf ohne_warn docu::*docu-hide-wrong-owner-warning*)
      (oli::sd-am-set-default-owner :sketch :current-sheet)
      (docu::am_load_sketch :go :ok :filename (first name) :cursor_adjustment :on rpnt p0 complete)
      (setf docu::*docu-hide-wrong-owner-warning* ohne_warn)
     );;let
    )
   )
 :ok-action
    '(ok-action)
 :help-action '()
)

;;--------------------------------------------------------------------------*