;;--------------------------------------------------------------------------*
;;  Dateiname: HK_Loaecher.lsp
;;  Version  : 1.0
;;  Datum    : 14.06.04
;;  Author   : Tasche
;;--------------------------------------------------------------------------*
;;  Beschreibung:                                                                    
;;  Teileinfos anzeigen                                                                                                 
;;
;;   Durch :modifies nil wird der Schreibschutz ignoriert                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; globale Variablen
;;--------------------------------------------------------------------------*


(sd-defdialog 'hk_loecher
  :toolbox-button t
  :dialog-title "Loecher bohren"
  :prompt-text "Teil angeben"
  :variables
  '(
		(TEIL :value-type :part
            :title "Teil"
            :modifies nil 
            :prompt-text "Teil angeben"
      );Teil
   );variables


		:ok-action
         '(let* ((part (sd-inq-curr-part))
		(axis-start-pos origin)
		(axis-dir	0,0,-1)
		(feature-name)
		(feature-type)
	        (poly_points '(0,0 60,0 60,20 50,20 50,10 10,10 10,20 0,20 :close))
		)
	      (cad-cam-link-ui::machadv-define-hole
	          :part (oli::sd-inq-curr-part)
		  :axis-start-pos axis-start-pos
		  :axis-dir axis-dir
		  :feature-name feature-name
		  :feature-type feature-type
		  :constructor 
		  `(let (
			 (curr-wp (sd-inq-curr-wp))
			 (geo-mode (sd-inq-geometry-mode))
		     )
		     (unless (eq geo-mode :real) 
			 (geometry_mode :real)
		     )
		     (create_workplane 
		         :new :pt_dir 
		         :origin ,axis-start-pos 
		         :normal :x :u_dir ,axis-dir
		     )
		     (apply #'polygon ',poly_points)
		     (bore :axis ,axis-dir :turn_angle (* 2.0 pi))
		     (chamfer :check :dist_angle
			 (sd-vec-add ,axis-start-pos  20,0,0)	:new_angle_dist 1 45 
			 (sd-vec-add ,axis-start-pos  10,0,-10)	:new_angle_dist 2 45 
			 (sd-vec-add ,axis-start-pos  10,0,-50)	:new_angle_dist 3 45
			 (sd-vec-add ,axis-start-pos  20,0,-60)	:new_angle_dist .5 45
		     )
		     (delete_3d (sd-inq-curr-wp))
		     (when curr-wp (CURRENT_WP curr-wp))
		     (unless (eq geo-mode :real)
			 (geometry_mode geo-mode)
		     )
		  )
	      )
	 )
            
 
 
);;sd-defdialog