; -*lisp-*- 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
; 
;               Klaus Lörincz 
; 
; SCCS:         %W% 
; Description:  BOM - Flag start with custom settings
; Author:       Klaus Loerincz 
; Version:      1.0 
; Created:      unknown 
; Modified:     unknown  () klausl@ccws040.de10.cocreate.com 
; Language:     Lisp 
; Package:      sco,oli  
; 
; (C) no Copyright 
; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(in-package :mybomflag) 
(use-package :oli) 
 
(when (not (sd-module-active-p "ANNOTATION") ) 
    (sd-display-warning "Datei sco_del_top_geo.so erfordert aktives Annotation Modul!")
    (cancel_all) 
  )    
;; Actiondialog 
 
(sd-defdialog 'bom-flagging 
  :module "ANNOTATION" 
  :toolbox-button t 
  :dialog-title "Pos Nr" 
  :precondition 
  '(if (docu::docu-inq-highest-sheet-name) 
  		:ok 
     (values :error "Es ist Keine Zeichnung fĎr einen beflaggen mit Positionsnummern geladen !!") 
    ) 	
  	:variables 
    '( 
      (BAUGR
        :selection (*sd-assembly-seltype*)
        :title "Baugruppe"
	   )
	(COLOR
	  :value-type :positive-number
	  :initial-value 16776960
	  :initial-visible nil
	  )
	(POINTER
	  :value-type :positive-number ;1=Pfeil 2=Punkt 3=Strich 4=Dreieck 5=Pfeil ohne Füllung 6=ohne 
	  :initial-value 2
	  :initial-visible nil
	  )
	(FLAGTYPE
	  :value-type :string          ;"Company" "ISO" "DIN" and all self registered flags see Annotation customizing page
	  :initial-value "ISO"
	  :initial-visible nil
	  )
      );variables end
   :after-initialization 	 
	 '(sd-call-cmds (progn 
				(if (eql (oli::sd-inq-platform) :NT)
					(progn
	       			             (docu::SHOW-3DVP)
					     (oli::sd-show-graphical-browser g-browser::*structure-gbrowser*)
					     )
				    (progn
				    	(oli::sd-set-togglebutton "TOP-MENU-AM-3D_VP-TB" :callaction t)
	       				(oli::sd-show-graphical-browser g-browser::*structure-gbrowser*)
				        )
		             	     )
				)
			)	
			
  :cleanup-action 
	 '(sd-call-cmds (progn
				(if (eql (oli::sd-inq-platform) :NT)
					(oli::SD-SHOW-GRAPHICAL-BROWSER "AM-BROWSER")
				     (oli::sd-hide-graphical-browser g-browser::*structure-gbrowser* :ignore-pin t)
				     )
				(when (oli::sd-inq-vp-exists-p "3D VP") 
			              (delete_vp "3D VP")
			              )
				)
			)	
  :ok-action
	'(let (probe)
		(when (sd-inq-vp-exists-p "3D VP") 
			(ui::delete_vp "3D VP")
			(if (eql (oli::sd-inq-platform) :NT)
				(oli::SD-SHOW-GRAPHICAL-BROWSER "AM-BROWSER")
			    (oli::sd-hide-graphical-browser g-browser::*structure-gbrowser* :ignore-pin t)
			    )
			)
	        (when (sd-call-cmds (AM_BOM_SCAN3D :ASSY BAUGR :done :accept))
			(sd-call-cmds (AM_REFL_SETTINGS :ref_arrow_type POINTER :ref_color :color COLOR :done))
			(sd-call-cmds (AM_BOM_NUMBERS :by_step :on :by_step_start 1 :by_step_incr 1 :done))
			(sd-put-buffer (format nil "AM_POS_CREATE  :BOM_ENTRY_PART :flag_layout ~S" FLAGTYPE))
			)
              )
)