(in-package :kld_loh_prg)     ;;(
(use-package '(:OLI :SYSTEM ))

(sd-defdialog 'kld_bewege_form
        :dialog-title "Formelement"
        :dialog-control :sequential-loop
        :variables '(
        
       (kld_formelement                        
         :title                 "Formelement"
         :prompt-text           "Formelement waehlen"
         :value-type            :feature
         );;kld_formelement

        (kld_start_pkt
        :value-type        :point-3d
        :title                "Startpkt"
        :prompt-text        "Startpunkt waehlen"
        );;kld_start_pkt

        (kld_ziel_pkt
        :value-type        :point-3d
        :title                "Zielpunkt"
        :prompt-text        "Zeilpunkt waehlen"
        :after-input        (sd-call-cmds (next_action kld_formelement kld_start_pkt 
                                                                       kld_ziel_pkt))
        );;kld_ziel_pkt

        );;variables
);;sd-defdialog kld_bewege_form



(defun next_action (kld_formelement kld_start_pkt kld_ziel_pkt)
;;#|
  (sd-call-cmds
    (move 
        :boss_pocket     kld_formelement
        :transformation
        :translate       :two_ptv  kld_start_pkt  kld_ziel_pkt
        :check
        :keep_tangent   :no
        :blend_auto     :yes
        :update_rels    :yes
	:do_it
     );;move

  );;sd-call-cmds
;;|#
	(display kld_formelement)
	(display kld_start_pkt)
	(display kld_ziel_pkt)
 
);;defun