(in-package :wgc_apps)
(use-package :OLI)

(sd-defdialog 
 'ausgabe_volumen
 :dialog-title "Ausgabe Volumen"
 :toolbox-button t
 :variables
 '(
   (ASSY :value-type :assembly :modifies :nil 
    :initial-value (sd-pathname-to-obj "/") :title "Baugruppe")
   )
 
 :local-functions
 '(
   (recurse(obj)
    (dolist (child (sd-inq-obj-children obj))
      (recurse child))
    
    (when (sd-inq-part-p obj)
      (let ((dens (sd-sys-to-user-units :density (sd-inq-part-density obj)))
            (mas (sd-sys-to-user-units 
                  :volume (sd-call-cmds 
                         (get_vol_prop :for_part :part obj :tol :percent_tol .001 
                                       :volume))))
            )
        (display (format nil " ~a : ~6,2F" 
                          (sd-inq-obj-pathname obj)mas))
        ))
    )
   )
 
 :ok-action 
 '(progn
   (display "   MODEL NAME   :  Volumen mm3")
   (display "==============    =============")
   (recurse ASSY)
   )
 )