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

(sd-defdialog 'schnitt
:dialog-title "Schnittansicht ein/aus"
;;:dialog-control :sequential
:variables
  '(
    (vp_name :initial-value  (sd-inq-current-vp))
    (vp_clip :initial-value (sd-inq-vp-model-clipping-enabled-p vp_name))
   )
:local-functions
  '()
:ok-action
   '(sd-call-cmds (if vp_clip
                (set_vp_model_clipping vp_name :off)
                (set_vp_model_clipping vp_name :on)
     ))
)