;;--------------------------------------------------------------------------*
;;  Copyright 2004  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: verschiebung.lsp
;;  Version  : 1.0
;;  Datum    : 04.02.2004
;;  Author   : Gt
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)

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

(sd-defdialog 'dc4-teile-verschiebung-dialog
:dialog-title "Verschiebung"
;;:dialog-control :sequential
:variables
  '(
    (pnt-fback :initial-value nil)
    (teil  :value-type :part
           :prompt-text "Teil angeben"
           :title "Teil"
           :initial-value nil
           :after-input (after-teil-action)
           :modifies nil
    )
    ("Globale Koordinaten:")
    (globx :value-type :display-only
           :title "X"
    )
    (globy :value-type :display-only
           :title "Y"
    )
    (globz   :value-type :display-only
           :title "Z"
    )
   )
:local-functions
  '(
    (after-teil-action ()
     (let (tor)
      (setf tor (sd-vec-xform (make-gpnt3d :x 0 :y 0 :z 0) :source-space teil :dest-space :global))
      (setf globx (gpnt3d_x tor))
      (setf globy (gpnt3d_y tor))
      (setf globz (gpnt3d_z tor))
      (sd-end-feedback pnt-fback)
      (setq pnt-fback (sd-start-point-feedback tor :color 1,1,0))
     );;let
    )
    (cleanup ()
     (sd-end-feedback pnt-fback)
    )
   )
:ok-action '(cleanup)
:cancel-action '(cleanup)
)