;  Autor :   Martin Mersmann
;  Erstellt: 2003  OSD 11.60
;  Benutzung auf eigene Gefahr !!
;  Beschreibung siehe :help-action 


(in-package :EXAMPLES)
(use-package :OLI)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;

(sd-defdialog 'gr_Inhalts-ID
  :dialog-title "Inhalts-ID uebernehmen"
  :variables
  '(("Inhalts-ID")
(Rohling    :value-type :part
;	    :initial-value ""
	    :modifies :contents 
	    :prompt-text "Das Teil mit der Inhalts-ID anklicken.")

("Neue Geometrie")
(Werkzeug    :value-type :part
	    :modifies :contents 
	    :prompt-text "Das Teil mit der Inhalts-ID anklicken.")

)
  :ok-action
  '(progn 

	(create_workplane :new :name  "Inhalts-ID" :pt_pt_pt  0,0,0  1,0,0 0,1,0)
	(circle :cen_dia  0,0  100000 )

	(punch :parts Rohling :wp "/Inhalts-ID"  :keep_wp :NO :keep_profile :NO )

	(unite_3d :keep_tools :NO :blank Rohling :tools Werkzeug )
)

:help-action 
  '(progn 
	(display :show  )
	(display  " ")
	(display  "Hilfe zu 'Inhalts-ID uebernehmen'")
	(display  " ")
	(display  "Benutzung auf eigene Gefahr !!")
	(display  " ")
	(display  "Die Inhalts-ID (Zeichnungsnummer,Sys-ID) wird von einem im Workmanager gespeicherten Teil auf ein neues Modell uebernommen.")
	(display  " ")
	(display  "Die Position der neuen Geometrie wird nicht geaendert. Dies muss bei Exemplaren geprueft werden.")
	(display  " ")
	(display  "Die Geometrie des Rohlings wird im Umkreis von 100 Metern um den globalen Ursprung weggelocht.")
	(display  " ")
	(display  "Der Rohling wird danach mit dem Werkzeug vereint. Das Werkzeug wird nicht 'behalten'.")
	(display  " ")
	(display  "Rueckgaengig wird die Aktion mit vier Schritten gemacht. 'Rueckgaengig' anklicken bis die Arbeitsebene '/Inhalts-ID' verschwunden ist.")
	(display  " ")
))