;;-----------------------------------------------------------------------------
;;                                    for CoCreate SolidDesigner
;;  Description:
;;    store workplanes as MI files
;;      completes registration of file type MI_OUT for Modeling PE
;;
;;-----------------------------------------------------------------------------
;;  Filename   : reg-file-type-mi-out.lsp
;;  Version    : 1.0
;;  Datum      : Fri Nov 10 13:23:35 CET 2023
;;  Author     : der_Wolfgang@forum@cad.de
;;  Modified   : Fri Nov 10 13:32:40 CET 2023  der_Wolfgang@forum@cad.de
;;  Download   : cad.de
;;  SD-Version : developed with PE80, desinged for PE Version only
;;
;;  reference: https://ww3.cad.de/foren/ubb/Forum29/HTML/004939.shtml
;;
;;-----------------------------------------------------------------------------
;; changes:
;;  11.11.2023 prefer *.mi as file extension - by der_Wolfgang@forum@Cad.de

;; to be loaded in sd_customize of PE Version only

(in-package  :cadde-wt)
(use-package  :oli)

;; schnipsel:
;;   (mi_out :select :workplane wptje :FILENAME "C:/local/temp/plot.mi" :OVERWRITE )

;; ----------------- :MI_OUT ----------
;;   :ENABLE-FORM (NOT DOCU::*ANNOTATION-ACTIVE-FLAG*)
;;   :PATTERNS ("*.MI_OUT")
;;   :TITLE "MI_OUT"

; alternative (sd-modify-file-type  ....
; (unless (sd-inquire-file-type :mi_out :out-cmd)  ;; registration in complete / detect PE / Express version

; let's do a forced registration
(sd-register-file-type :MI_OUT
  :title '(sd-multi-lang-string "MI Out" :german "MI speichern")
  :patterns '("*.mi" "*.MI_OUT") ; prefer MI
  :out-cmd "mi_out"
  :out-cmd-file-token :filename
  :enable-form '(NOT DOCU::*ANNOTATION-ACTIVE-FLAG*)
  :force t
  )