; Ursprung: https://ww3.cad.de/foren/ubb/Forum29/HTML/003941.shtml#000010

; in file sd_customize:
; (load (format NIL "~A/~A" (GETENV "SDSITECUSTOMIZEDIR") "/anpassungen/teil_info.lsp"))

; in file /anpassungen/teil_info.lsp:

(in-package :gd-package) ; wozu?
(use-package :oli)

(sd-defdialog 'os_teil_info_dialog
  :dialog-title "Teil-Info"
  :dialog-control :sequential-loop
  :variables
  '(
    (TEILE
     :value-type :part
     :multiple-items t
     :title "Teil(e)"
     :initial-value nil
     :modifies nil
     :prompt-text "Teil(e) angeben"
     :after-input (progn (teileinfo_anzeigen))
    ) ; end Teil
   );variables

  :local-functions
   '(
     (teileinfo_anzeigen ()
      (let (VOLUMEN DICHTE MATERIAL)
      (display :clear)
      (dolist (a-part TEILE)
        (setq VOLUMEN
          (sd-call-cmds
            (get_vol_prop
	        :for_part a-part
	        :part_asmb (sd-inq-obj-pathname a-part)
	        :volume
			)
	      :failure nil
	      );sd-call-cmds
        );;setq VOLUMEN
        (setq dichte (sd-inq-part-density a-part))
        (oli:sd-set-control-geometry "OUTPUT-BOX-DS" :width 300 :height 200)
        (display (format nil "---------------------------~%  Teil:        ~A" (sd-inq-obj-basename a-part)))
        (display (format nil "  Nummer: ~A" (sd-inq-obj-contents-name a-part))); -- mm198067
        (display (format nil "  Masse:   ~A kg"     (sd-num-to-string (* (/ VOLUMEN 1000) dichte) 1)))
        (display (format nil "(Dichte: ~A kg/dm3)" (sd-num-to-string (* 1000 dichte)3)))
      ) ;; end dolist
      (display "") ;; leerzeile
     );;let
    );;teileinfo_anzeigen
   );;local-functions
);;sd-defdialog

(sd-define-available-command "SolidDesigner" "Part and Assy" "os_teil_info_command"
  :commandTitle			"Teile Info"
  :action				"os_teil_info_dialog"
)

(sd-fluentui-add-ribbon-group "sd_analysis_custom_group"
  :parent "SDANALYSIS"
  :title "Custom"
)
  
(sd-fluentui-add-ribbon-button 
  :parent '("SDANALYSIS" "sd_analysis_custom_group")
  :availCmd '("SolidDesigner" "Part and Assy" "os_teil_info_command")
)