;;--------------------------------------------------------------------------*
;;  Copyright 2003  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: menu_beispiel.lsp

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

; (sd-create-menu "my 3D tools"
  ; :title "Meine 3D Tools"
  ; :contents
  ; `(
    ; (:buttonBox "teile"
     ; :title "3D Befehle"
	 ; :toolbox-button t
     ; :buttons
     ; (
      ; (dc4-teile-bilanz-dialog :label "zaehlen")
      ; (sko_select_edges_with_len :label "Kanten")  ;;weitere Eintraege
	  ; (df_pg_aussengewinde :label "Gewinde")
	  ; (thread_extension :label "Gewinde Def.")
	  ; (df_pg_cp_ex :label "Eigenst.Exemplar")
	  ; (dc4-druckfeder-dialog :label "Druckfeder erst.")
	  ; (dc4-zugfeder-dialog :label "Zugfeder erst.")
	  ; (df_pg_Flaechenteile_weg :label "Flaechen weg")
	  ; (dichte_waehlen :label "Dichte suchen")
	  ; (dichte-suchen-dialog :label "Dichte =1") 
	  ; (GD_vieleck_2d :label "Reg.Vieleck")
	  ; (schloss_weg :label "Schlossweg ?")
	  ; (rem-act-list :label "Liste merken")
	  ; (baugruppenquerschnitt :label "Baugruppenquerschnitt")
	  ; (os-gew-a-freistich :label "Gewindefreistich")
	  ; (pipe :label "Rohre erstellen")
	  ; (dc4-ansichtsliste-laden-dialog :label "Lade Ansichtsliste")
	  ; (dc4-ansichtsliste-speichern-dialog :label "Speichere Ansichtsliste")
	  ; (ts-land-punkte-datei-dialog :label "Punkte lesen")
	  ; (ts-land-kurven-datei-dialog :label "Kurve lesen")
	  ; (gr_Inhalts-ID :label "Inhalts-ID uebernehmen")
	  ; (dc4-desman-mminfo-to-basename-dialog :label "Namen ändern")
	  ; (Flat-Spirale :label "Flat-Spirale")
	  ; (dc4-normteil-dichte-dialog :label "Gewicht festlegen")
	  ; (dc4-positionieren-dialog :label "Kegel Positionieren")
	  ; (dc4-teil-vervielfaeltigen-dialog :label "Vervielf. 2 Punkte")
	  ; (cp2ex :label "Kopie2Exemplar")
	  ; (sd-exemplaranzeige :label "Exemplaranzeige")
	  ; (gb_ex_pa :label "Teile/Bgr tauschen")
	  ; (dc4-teil-vervielfaeltigen-pr-dialog :label "Vervielf. Punkt/Richtg")
	  ; (wendeln :label "Teile Wendeln")
	  ; (diag-show-ids :label "System-ID")
	  ; (KL_CROSS_SECTION_ASSY :label "AE-Querschnitt")
     ; )
    ; )
  ; )
; )

; (sd-add-menu-button "my 3D tools"
    ; :label "Meine 3D Tools"
;    :parent '("TASK" "Annotation")
    ; :parent '("TASK" "SolidDesigner")
    ; :mapmenu "my 3D tools"
; )

(sd-fluentui-add-ribbon-tab "MY 3D TOOLS"
	:title "Meine 3D Tools")
	
(sd-fluentui-add-ribbon-group "3D BEFEHLE"
  :parent "MY 3D TOOLS"
  :title "3D Befehle"
)

(sd-fluentui-add-ribbon-button 
  :parent '("MY 3D TOOLS" "3D BEFEHLE")
  :label "Namen ändern"
  :enable dc4-desman-mminfo-to-basename-dialog
  )

(sd-fluentui-add-ribbon-button 
  :parent '("my 3D Tools")
  :name "3D Befehle"
  :splitButton t
  :largeImage t
  :label "3D Befehle"
  :contents
    `(
	   (:label "2D Teile umfärben")
	   ))
      ; (dc4-anno-teile-umfaerben-dialog :label "2D Teile umfärben")
      ; (random_hatch :label "Zufalls Schraffur")
	  ; (am-ansicht-speichern :label "Ansicht speichern")
	  ; (mark-dwg-new-dialog :label "dupliZeichng")
	  ; (dc4-anno-ansicht-mit-rcht-dialog :label "Ans. mit Richtung")
	  ; (dc4-anno-blatt-rek-loeschen-dialog :label "Blatt rekursiv löschen")
	  ; (dc4-anno-desman-show-owner-dialog :label "3D-Besitzer zeigen")
     ))
  ; )
; )  
  

; (sd-create-menu "my 2D tools"
  ; :title "Meine 2D Tools"
  ; :contents
  ; `(
    ; (:buttonBox "teile"
     ; :title "2D Befehle"
	 ; :toolbox-button t
     ; :buttons
     ; (
      ; (dc4-anno-teile-umfaerben-dialog :label "2D Teile umfärben")
      ; (random_hatch :label "Zufalls Schraffur")
	  ; (am-ansicht-speichern :label "Ansicht speichern")
	  ; (mark-dwg-new-dialog :label "dupliZeichng")
	  ; (dc4-anno-ansicht-mit-rcht-dialog :label "Ans. mit Richtung")
	  ; (dc4-anno-blatt-rek-loeschen-dialog :label "Blatt rekursiv löschen")
	  ; (dc4-anno-desman-show-owner-dialog :label "3D-Besitzer zeigen")
     ; )
    ; )
  ; )
; )

; (sd-add-menu-button "my 2D tools"
    ; :label "Meine 2D Tools"
    ; :parent '("TASK" "Annotation")
;    :parent '("TASK" "SolidDesigner")
    ; :mapmenu "my 2D tools"
; )

(sd-fluentui-add-ribbon-tab "my 2D tools"
	:annotationRibbon t
	:application "Annotation"
	:title "Meine 2D Tools"
)