(in-package :custom)
(use-package :OLI)
(use-package :docu)

(sd-defdialog 'tp_am_rev_wolke
  :dialog-title "Rev.Wolke"
  :after-initialization '(progn
		(sd-freeze-setting-value)
		(setf tp_line_stil (sd-get-setting-value "Annotation/Geometry/Standard"))
		(sd-call-cmds (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Ltype" :parent_style tp_line_stil :A_RANGE tp_linien))
		(sd-call-cmds (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Color" :parent_style tp_line_stil :A_COLOR tp_farbe))
	)
  :toolbox-button t
  :variables
  '(
	(tp_revWolkeBaseName
		:initial-value  "revWolke"
	)
	(tp_revWolkePath
		:initial-value (concatenate 'string "/" (sd-am-inq-curr-sheet-name) "/" tp_revWolkeBaseName)
	)
	("Besitzer")
	(tp_ansicht
		:selection  (*sd-anno-view-seltype* *sd-anno-sketch-seltype*)
		:title "Ansicht/Skizze"
		:prompt-text "Ansicht wählen"
		:initial-visible t
	)
	(tp_linien
		:title "Linienart"
		:range (
			(:SOLID :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_solid.bmp"))
			(:DASHED :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_dashed.bmp"))
			(:LONG_DASHED :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_longdashed.bmp"))
			(:DOT_CENTER :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_dotcenter.bmp"))
			(:DASH_CENTER :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_dashcenter.bmp"))
			(:PHANTOM :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_phantom.bmp"))
			(:CENTER_DASH_DASH :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_centerdashdash.bmp"))
			(:DOTTED :pixmap-file (concatenate 'string (sd-inq-install-dir) "/personality/bitmaps/bmp/Annotation/am_dotted.bmp"))
		)
		:after-input
			(progn
				(sd-call-cmds (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Ltype" :parent_style tp_line_stil :A_RANGE tp_linien))
			);;ende progn
		:initial-value :SOLID
	)
 	(tp_farbe
		:title "Farbe"
		:value-type :rgb-color
		:initial-value 16777215 ;;grau
		:after-input
			(progn
				(sd-call-cmds (MODIFY_DEFAULT_SETTING :path "Annotation/General/LineStyle/Color" :parent_style tp_line_stil :A_COLOR tp_farbe))
			);;ende progn
	)
	(ppnt_skz
		:value-type :docupntcnp
		:initial-visible t
		:prompt-text "Punkt angeben"
		:title "1.Punkt"
		:after-input
			(progn
				(sd-am-create-sketch :name tp_revWolkeBaseName :position ppnt_skz :owner_type :current-sheet)
				(sd-set-variable-status 'ppnt :visible t)
				(sd-set-variable-status 'ppnt_skz :visible nil)
				(setq ppnt ppnt_skz)
				(sd-execute-annotator-command :cmd
								(format nil "ARC DIAMETER ~A,~A"
										(oli::gpntdocu_x ppnt_skz)
										(oli::gpntdocu_y ppnt_skz)))
			)
			:next-variable 'epnt
    )
	(ppnt
		:value-type :docupntcnp
		:initial-visible nil
		:prompt-text "Punkt angeben"
		:title "1.Punkt"
		:after-input
			(progn
				(sd-execute-annotator-command :cmd
					(format nil "ARC DIAMETER ~A,~A"
						(oli::gpntdocu_x ppnt)
						(oli::gpntdocu_y ppnt))
				)
			);;ende progn
		:next-variable 'epnt
    )
	(epnt
		:value-type :docupntcnp
		:prompt-text "Punkt angeben"
		:title "2.Punkt"
		:after-input
			(progn
				(sd-call-cmds (AM_GEO_ARC_DIAMETER :owner tp_revWolkePath ppnt epnt))

				(if (and (= (oli::gpntdocu_x ppnt_skz) (oli::gpntdocu_x epnt)) (= (oli::gpntdocu_y ppnt_skz) (oli::gpntdocu_y epnt)))
				(progn
					(if (sd-am-sketch-p tp_ansicht) (sd-call-cmds (am_sketch_owner :sketch tp_revWolkePath :owner_sketch tp_ansicht)))
					(if (sd-am-view-p tp_ansicht) (sd-call-cmds (am_sketch_owner :sketch tp_revWolkePath :owner_view tp_ansicht)))
								
					(sd-execute-annotator-command :cmd "END")
					(sd-unfreeze-setting-value)
					(cancel_all)
				)
				(progn
					(setq ppnt epnt)
					(sd-execute-annotator-command :cmd
					(format nil "ARC DIAMETER ~A,~A"
						(oli::gpntdocu_x ppnt)
						(oli::gpntdocu_y ppnt))
					)
					(setq epnt nil)
				));;ende if
			);;ende progn
		:next-variable 'epnt
	)
	("created by t. peter")
) ;; end variables

:cancel-action '(progn (exit-strategie))

:local-functions '(
	(exit-strategie ()
		(sd-execute-annotator-command :cmd "END")
		(setf alle_skizzen nil)
		(setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet)))
		(dolist (skizze alle_skizzen)
		(when (sd-string-match-pattern-p tp_revWolkeBaseName (sd-am-inq-name skizze))
				(sd-call-cmds (AM_SKETCH_DELETE :sketch tp_revWolkePath :yes))
		))
		(sd-unfreeze-setting-value)
	);;ende exit-strategie
) ;; end local functions
) ;; end dialog