(in-package  :examples)
(use-package :oli)

(sd-defdialog 'MF_Kopieren_Einfuegen
  :toolbox-button t
  :dialog-title "MF-Kopieren/Einfuegen"
  :variables
  '((flaechen
      :selection (*sd-face-seltype*)
      :show-select-menu t
      :incremental-selection t
      :multiple-items t
      :title "Flaeche(n)"
      :prompt-text "Flaeche(n) angeben."
    )
    (referenzpunkt
      :value-type :point-3d
      :multiple-items nil
      :title "Ref.-Pkt"
      :prompt-text "Referenzpunkt angeben."
    )
    (punkte
      :selection (*sd-c-vertex-2d-seltype*)
      :show-select-menu t
      :incremental-selection t
      :multiple-items t
      :title "Ziel-Pkt(e)"
      :prompt-text "Ziel-Punkt(e) angeben."
    )
  )
  :ok-action
  '(progn
     (dolist (punkt punkte)
       (progn
         (sd-call-cmds
           (copy_faces
             :to_part "/mf_kopieren_einfuegen_pseudoflaechen"
             :faces flaechen
             :geometry_only :off
             :translate :two_pt referenzpunkt (sd-point-pnt (sd-inq-geo-props punkt :dest-space :global))
           )
           :success (sd-call-cmds
                      (paste_dia
                        :to-part (sd-inq-curr-part)
                        :tool "/mf_kopieren_einfuegen_pseudoflaechen"
                        :extend :on
                        :keep-blend :on
                        :keep-tool :off
                        :chk-fix :on
                      )
                      :failure (progn
                                 (sd-display-error (format nil "~a ~%=> Beim Einfuegen der hervorgehobenen Flaechen !" (sd-inq-error-obj :message)))
                                 (delete_3d "/mf_kopieren_einfuegen_pseudoflaechen")
                               )
                    )
           :failure (progn
                      (sd-display-error (format nil "~a ~%=> Beim Kopieren der hervorgehobenen Flaechen !" (sd-inq-error-obj :message)))
                      (delete_3d "/mf_kopieren_einfuegen_pseudoflaechen")
                    )
         )
       )
     )
   )
)