(use-package :oli)

(sd-defdialog 'set_drawlist_and_fit
              :dialog-title "Set Drawlist and Fit"
              :variables '((vport :value-type :viewport :initial-value (oli:sd-inq-current-vp))
                           (objects :value-type :part-assembly :multiple-items t :modifies nil :initial-value nil)
                           )
              :toolbox-button t
              :ok-action '
              (progn
                (sd-call-cmds (set_vp_drawlist vport objects))
                (sd-call-cmds (fit_vp vport))
                )
)