; -*-Lisp-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; Beschreibung: 
;
; Autor:        Thomas Hollerweger
; erstellt:     
; geändert:     19.02.2009 Silke Arnold, PTC
;
; (C) Copyright 2006 STIWA Fertigungstechnik Sticht GmbH
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(sd-defdialog 'am_text_hole
  :dialog-title "Schraffur Textfenster"
  :variables 
  '(
	(Annotation
		:selection (*sd-anno-dimension-seltype* *sd-anno-text-seltype*)
	)
	(Schraffur
		:selection *sd-anno-face-seltype*
	)
   );variables

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

  :ok-action
  '(progn
	(text-freisparung)
   );progn  
   
  :local-functions
  '(
	(text-freisparung ()
		(sd-execute-annotator-command :cmd (format nil "STI_am_text_hole ~a ~a" (sd-get-annotator-position :object Annotation) (sd-get-annotator-reference :object Schraffur)))
	)
   );local-functions
   
);dialog


(sd-execute-annotator-command :cmd
 (format nil "~a ~a ~a ~a ~a ~a ~a ~a ~a ~a  ~a "
 "DEFINE STI_am_text_hole"
   "PARAMETER Textpos"
   "PARAMETER Hatchpntr"
   "LOCAL Pid"
     "INQ_ENV 7"
     "LET Pid ('~' + (INQ 302))"
	 "INQ_SELECTED_ELEM GLOBAL POINTER Hatchpntr"
     "EDIT_PART (INQ 309)"
     "DIM_TEXT_HOLE Textpos END"
     "EDIT_PART Pid"
 "END_DEFINE"
 )
)