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

(sd-defdialog 'hilfslinie-parallel
  :dialog-title "Hilfslinie parallel"
  :dialog-control :sequential-loop
  :toolbox-button t
  :variables
  '((element
      :selection (*sd-anno-line-seltype*
                  *sd-anno-c-line-seltype*
                  *sd-anno-symmetry-line-seltype*
                  *sd-anno-center-line-seltype*
                 )
      :title "Ger. Element"
      :prompt-text "Gerades Element angeben."
    )
    (richtung
      :value-type :docupntcnp
      :title "Richtung"
      :prompt-text ("Richtung angeben." 1)
      :after-input
      (progn
        (sd-call-cmds
          (am_geo_c_line_parallel :owner :current_sheet 10 20 30 40 50 60 70 80 element richtung)
          :failure (sd-display-error (format nil "~a ~%=> Beim Erstellen der Hilfslinien !" (sd-inq-error-obj :message)))
        )
      )
    )
  )
  :ok-action
  '()
)