; -*-Lisp-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; Beschreibung: Ansichten inkl. Beschriftungen kopieren
;
; Autor:        Thomas Hollerweger
; erstellt:     10.10.2008
; geändert:     
;
; (C) Copyright 2006 STIWA Fertigungstechnik Sticht GmbH
;
;; Ansichtsarten unterstützt:
;; orthogonal:: "FRONT" "BACK" "LEFT_SIDE" "RIGHT_SIDE" "TOP" "BOTTOM" 
;; iso: "FRONT_TOP_LEFT" "FRONT_TOP_RIGHT" "BACK_TOP_LEFT" "BACK_TOP_RIGHT" "FRONT_BOTTOM_LEFT" "FRONT_BOTTOM_RIGHT" "BACK_BOTTOM_LEFT" "BACK_BOTTOM_RIGHT" 
;; allgemein: "GENERAL" 
;;
;; Ansichtsarten nicht unterstützt:
;; abhängig: "SECTION" "ALIGNED_SECTION" "DETAIL" "PARTIAL" "FLAT" 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(sd-defdialog 'st_am_copy_view
  :dialog-title "Ansicht kopieren"
  :mutualexclusion '()

  :variables 
  '(
	(Source_View
		:selection *sd-anno-view-seltype*
		:check-function #'(lambda (view)
							(if (member (sd-am-view-struct-type (sd-am-inq-view view))
										(list "FRONT" "BACK" "LEFT_SIDE" "RIGHT_SIDE" "TOP" "BOTTOM" "FRONT_TOP_LEFT" "FRONT_TOP_RIGHT" "BACK_TOP_LEFT" "BACK_TOP_RIGHT" "FRONT_BOTTOM_LEFT" "FRONT_BOTTOM_RIGHT" "BACK_BOTTOM_LEFT" "BACK_BOTTOM_RIGHT" "GENERAL") 
										:test #'sd-string=)
								:ok
								(values :error (format nil "Diese Art von Ansicht (~a) kann nicht kopiert werden!" (sd-am-view-struct-type (sd-am-inq-view view))))
							)
						  )
	)
	(Copy
		:push-action (view-copy)
	)
   );variables

  :prompt-text ""
  :cancel-action
  '(progn
   );progn

  :ok-action
  '(progn
   );progn  
  
  :local-functions
  '(
	(view-copy ()
	  (let (view-type new_view new_view_item)
		(setq view-type (sd-am-view-struct-type (sd-am-inq-view Source_View)))
		(cond 
			((member view-type 
					(list "FRONT" "BACK" "LEFT_SIDE" "RIGHT_SIDE" "TOP" "BOTTOM" "FRONT_TOP_LEFT" "FRONT_TOP_RIGHT" "BACK_TOP_LEFT" "BACK_TOP_RIGHT" "FRONT_BOTTOM_LEFT" "FRONT_BOTTOM_RIGHT" "BACK_BOTTOM_LEFT" "BACK_BOTTOM_RIGHT")
					:test #'sd-string=)
				(setq new_view (sd-am-create-standard-view view-type :to_right Source_View))
				(when new_view 
					(sd-call-cmds (am_view_prop :the_view Source_View :copy_to :calcmode :on :filters :on :visibility :on :appearance :on :target_views (second new_view)))
				)
			)
			((sd-string= "GENERAL" view-type)
				(setq new_view_item (sd-call-cmds 
					(AM_CREATE_STANDARD_VIEWS :GEN_VIEW_DIRECTION :RESULT_DIR 
						(list (sd-vec-scale (sd-am-view-struct-dir (sd-am-inq-view Source_View)) -1) 0,0,0 (sd-am-view-struct-up-dir (sd-am-inq-view Source_View))))
					:failure (sd-display-error (sd-inq-error-obj :message))))
				(when new_view_item 
					(setq new_view (sd-am-view-struct-name (sd-am-inq-view new_view_item)))
					(display new_view)
					(sd-call-cmds (am_view_prop :the_view Source_View :copy_to :calcmode :on :filters :on :visibility :on :appearance :on :target_views new_view))
				)
			)
		)
	  )
	)
   );local-functions
   
);dialog