;;--------------------------------------------------------------------------*
;;  Copyright 2012                                                          *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: load_stp.lsp
;;  Version  : 2.0
;;  Datum    : 26.04.2012
;;  Author   : sas
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;=== Logical table ===
(sd-create-logical-table 
     "sas_step_accuracy"
     :columns     '(:beschr                    :Aufloesung )
     :columnNames '( " "                      "Genauigkeit")
     :types       '( :string                        :length)
     :units       '(  nil                               :mm)
     :contents  '(
	              (   "10 hoch  -1 "                   0.1 )
				  (   "10 hoch  -2 "                  0.01 )
				  (   "10 hoch  -3 "                 0.001 )
				  (   "10 hoch  -4 "                0.0001 )
				  (   "10 hoch  -5 "               0.00001 )
				  (   "10 hoch  -6 "              0.000001 )
				  
		  );;contents
 );;sd-create-logical-table
;=== End Logical table ===
(sd-create-display-table
     "sas_step_accuracy"
     :tableTitle         "Genauigkeit waehlen"
     :logicalTable       "sas_step_accuracy"
     :columns            '(:beschr :Aufloesung)
     :columnSortUI       t
     :entryAlignment     '(:right :left)
     :applyColumns       '(:Aufloesung)
     :formatFunctions    '(sd-display-table-format-1-digit)
     :displayWidth       180
	 :displayHeight      150
     :filterStatusLine   nil
     :selectionMode      :single-row 
     :applyAction        :default-tokens
);;sd-create-display-table
;;=============================
;;--------------------------------------------------------------------------*
(sd-defdialog 'sas_load_stp
:dialog-title "Lade STEP"
;;:dialog-control :sequential
:variables
  '(
    (datei :value-type :filename
           :direction :input
		   :initialPattern "*.stp;*.step;*.STP;*.STEP"
           :prompt-text "Dateiname angeben"
           :title "Datei"
           :size :third
    )
	(Aufloesung
     :value-type :positive-number
     :title "Genauigkeit"
     :show-input-tool (sd-show-display-table "sas_step_accuracy" :position '("TOP-MENU-TOOLBOX-TB" :bottomleft 330 250))
     :hide-input-tool (sd-hide-display-table "sas_step_accuracy" :ignorePin t)
     :prompt-text "Aufloesung waehlen")
   )
:local-functions
  '()
:ok-action
   '(sd-call-cmds (STEP_IMPORT
                        :check-part :yes
						:processor-direct
						:CONNECTED :YES
                        :CUSTOMER-ACCU :up-accuracy Aufloesung
						:FILEACCU :no
						 :FILENAME (first datei)
						)
						)
)