(in-package :my-add-ons)
(use-package :oli)

(defun mei::annotation-toggle-free-dim-placement ()
  (if (eql 0 (sd-get-setting-value "Annotation/Dimension/AutoPlace/MinimalSpace"))
    (progn
      ;(sd-set-setting-value "Annotation/Dimension/AutoPlace/Mode" :value :auto)
      ;(sd-set-setting-value "Annotation/Dimension/AutoPlace/MinimalSpace" :value 10)
      ;; alternative: reset setting....
      (sd-delete-setting-value :path "Annotation/Dimension/AutoPlace/MinimalSpace")
     )
    ;; else  
    (progn
      ;(sd-set-setting-value "Annotation/Dimension/AutoPlace/Mode" :value :manual)
      (sd-set-setting-value "Annotation/Dimension/AutoPlace/MinimalSpace" :value 0)
      )
    )
  )    
  
;; nice icon + commmand for toolbar  
(sd-define-available-command "Annotation" "Dimension" "FreePlaceToggle"
  :commandTitle    (sd-multi-lang-string "Free Dim Place"
                      :german "Bemassung frei")
  :action          '(mei::annotation-toggle-free-dim-placement)
  :description     (sd-multi-lang-string "Toggle free dimensions placing" 
                     :german "Freie Bemassungsplazierung wechseln")
  :image           "Annotation/Dimension/dim_set_autoplace"
  :ui-behavior     :relative
  )
  
;; last step.. after loading the lisp ...   place icon on toolbar of your choice