;;--------------------------------------------------------------------------*
;; Dateiname: Info-Bohrung.lsp
;; Version  : 1.0
;; Datum    : 04.10.2004
;; Author   : Tasche
;; Version   :12.01D
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Informationen ueber Bohrungen abfragen die mit                                                                                                    
;; Machining erzeugt wurden                                                                                                  
;;--------------------------------------------------------------------------*
(in-package :training)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; globale Variablen
;;--------------------------------------------------------------------------*

(sd-defdialog  'Info-Bohrung
   :dialog-titlte "BohrInfo"
   :variables
   '(
          (Teil  
          		:value-type :feature
               :title "Bohrung"
          );Teil		     
		     

   );variables

  :ok-action
  '(progn
      (display :clear)
     	  (display (format nil "Lochtype ~A" (sd-inq-3d-annotation-props Teil :values :EDITED_VALUE )))
     	  
     	

    );progn
);sd-defdialog