;;--------------------------------------------------------------------------*
;;  Dateiname: SD_Formelement-kopieren.lsp
;;  Version  : 1.0
;;  Datum    : 18.01.2016
;;  Author   : BFE
;;--------------------------------------------------------------------------*
;;  Dient zum Mehrfachen Kopieren von Formelementen
;;--------------------------------------------------------------------------*
;;Versionierung
;;  1.0 erste funktionelle Version
;;--------------------------------------------------------------------------*
;; ü => Ï      ä => Ì       ö => Î        Ä Ø        Ö => Ú         Ü =>  Û      ß => Þ     ° =>  ³

(in-package  :BFE-TOOLS)
(use-package :oli)
;;--------------------------------------------------------------------------*
(sd-defdialog 'formelement-kopieren
:dialog-title "Formelement kopieren"
:toolbox-button nil
:variables
  '(
		(flaeche
		   ;:selection *sd-feature-seltype*
		   :value-type :face
		   :title "FlÌche"
           :prompt-text "FlÌche eines Formelements wählen"
		   :initial-value nil
		   :initial-optional nil
		   :multiple-items t
		   ;:after-input 
	)
			(element
		   :selection *sd-feature-seltype*
		   :title "Formelement"
           :prompt-text "Formelement wÌhlen"
		   :initial-value nil
		   :initial-optional t
		   :initial-visible nil
		   :multiple-items nil
		   :after-input (sd-set-variable-status 'flaeche :optional t)
	)
	(start_pkt
        :value-type        :point-3d
        :title                "Startpkt"
        :prompt-text        "Startpunkt waehlen"
        );;kld_start_pkt

    (ziel_pkt
        :value-type        :point-3d
        :title                "Zielpunkt"
        :prompt-text        "Zeilpunkt waehlen"
		:after-input (progn 
						(when (and start_pkt ziel_pkt flaeche) (move-element-flaeche))
						(when (and start_pkt ziel_pkt element) (move-element-element))
						(when ziel_pkt(SD-SET-VARIABLE-STATUS 'ziel_pkt :value nil))
					 )
		);;kld_ziel_pkt

)
:local-functions
'(
(move-element-flaeche ()
(sd-call-cmds (move :feat_select :FR-boss-pocket :rec_feat flaeche :keep_boss :yes :dynamic_transformation :call-translation :two-points  :off start_pkt ziel_pkt))
)
(move-element-element ()
(sd-call-cmds (move :feat_select :FR-boss-pocket :rec_feat element :keep_boss :yes :dynamic_transformation :call-translation :two-points  :off start_pkt ziel_pkt))
)
)
:ok-action
'()
)