(in-package :custom)
(use-package :oli)

(setf Anno_symbol_Pad "P:/Tools/V19/3D/Annotation/Symbole")
(setf Icon_symbol_Pad "P:/Tools/V19/3D/Annotation/Icon")

(display (format nil "Ribbon für Symbole Annotation wird geladen......."))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Zusätlich geladene Makros ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Ende zusätzliche Makros laden ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Definieren der  Dialoge  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(sd-defdialog 'sas_load_symbole
  :dialog-title "Symbol laden"
  :dialog-type :terminate

  :variables
  '(
    (zpnt  :value-type :docupntcnp
            :title "Zielpunkt"
            :PROMPT-TEXT "Zielpunkt fuer Skizze angeben"
     )
	 
	  (fileToLoad

	:value-type :string
    )
	 
   )
  :local-functions
  '(
       (sas_load_symbole ()
	        
	   (let (p0)
      (setf p0 (make-gpnt2d :x (oli::gpntdocu_x zpnt)
                            :y (oli::gpntdocu_y zpnt)))
	   (oli::sd-am-set-default-owner :sketch :current-sheet)
       (sd-call-cmds
       (am_load_sketch :filename (format nil "~a/~a" Anno_symbol_Pad fileToLoad):cursor_adjustment  :ON :lower_left p0))
	   );; Ende let
    )
	)
  :ok-action'(sas_load_symbole)
  ) ;; Ende Dialog


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ende der Dialoge ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
  
  
  
 
  

;;;;;;;;;;;;;;;;;;;;;; Ribbonbar Symbole Annotation erzeugen;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(oli::sd-fluentui-add-ribbon-tab "Symbole"         
  :application "All" 
  :annotationRibbon t  
  :title "Symbole"
  )
 ;;;;;;;;;;;;;;;;;;;;;; Ende Ribbonbar Symbole Annotation erzeugen;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 ;;;;;;;;;;;;;;;;;;; Gruppe Schriftfelder erzeugen (1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (oli::sd-fluentui-add-ribbon-group "Symbole-Gruppe1"     
  :parent "Symbole"
  :annotationRibbon t
  :title "Schriftfelder"
  )
;;;;;;;;;;;;;;;;;;; Button Energiefeld erzeugen ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (oli::sd-fluentui-add-ribbon-button 
  :parent '("Symbole" "Symbole-Gruppe1")
  :name "Energiefeld"
  :annotationRibbon t
  :splitButton t  
  :largeImage t  
  :image  (format nil "~a/Energiefeld.bmp" Icon_symbol_Pad)
  :description "Energiefeld Deutsch/Englisch laden"
  :label "Energiefeld" 
  :pushaction "sas_load_symbole :fileToLoad \"EnergieFeld.mi\""
  ) 

   ;;;;;;;;;;;;;;;;;;; Gruppe Form & Lagetoleranz erzeugen (2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (oli::sd-fluentui-add-ribbon-group "Symbole-Gruppe2"     
  :parent "Symbole"
  :annotationRibbon t
  :title "Form & Lagetoleranz"
  )
  
  ;;;;;;;;;;;;;;;;;;; Button Bezug erzeugen ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (oli::sd-fluentui-add-ribbon-button 
  :parent '("Symbole" "Symbole-Gruppe2")
  :name "Bezug"
  :annotationRibbon t
  :splitButton t  
  :largeImage t  
  :image  (format nil "~a/Bezug.bmp" Icon_symbol_Pad)
  :description "Bezugsymbol für Form & Lagetoleranz laden"
  :label "Bezug" 
   :pushaction "sas_load_symbole :fileToLoad \"Bezug.mi\""
  ) 
  
 (display (format nil "Ribbon für Symbole Annotation geladen."))