#|===================================================================================================
SW-Anno-loeschen.lsp
2016-05-23 SW: erstellt von Wolfgang Seel

--------------------------------------------------------------------------*
ä=Ì Ä=Ø Î=Î Î=Ú ü=Ï Ü=Û ß=Þ °=³  ø=Ö ö=Î Ø=Ò Ö=Ú
--------------------------------------------------------------------------*
|#

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

(setf FLAECHE NIL)
(sd-defdialog 'SW-Anno-loeschen
    :toolbox-button t							;; Wird in Werkzeugliste eingetragen
	:dialog-title "SW-Anno-loeschen"	  					;; Überschrift 
	:variables  				
     '(
;	(FLAECHE	:value-type :feature
	(FLAECHE	:value-type :face
				:title "Zyl.-Flaeche"
				:prompt-text "Bitte Zylinderflaeche eingeben"
) ; Flaeche
 
   (Gewinde-Infos
    :title "Gewinde-Infos"   
    :initial-enable t
    :toggle-type :wide-toggle
    :push-action
    (progn
	(setf props (sd-inq-geo-props FLAECHE :dest-space :global))
    (setf result (oli::sd-inq-thread FLAECHE))
	(if result
	  (progn
	    (display (format nil "Erkanntes Gewinde:~%~%~{:~A ~A~%~}~%Weitere Infos im Konsolen-Fenster.~%" (nthcdr 2 result)))
	   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	   ;; Variablen nomi-dia; pitch und tpi vom Typ float 
	   ;; werden wieder in string umgewandelt, damit diese im Dialogfenster wieder 
	   ;; richtig angezeigt werden koennen.
	   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	    (if (getf result :nominal-diameter-inch)
		(setf nomi-dia-inch  	(getf result :nominal-diameter-inch))
	    (setf nomi-dia    (sd-num-to-string (getf result :nominal-diameter)))
	     ) ;endif
	    (setf core-dia   		(getf result :core-diameter))
	    (if (getf result :TPI)
		(setf TPI1     (sd-num-to-string  (getf result :tpi)))
	    (setf pitch1      (sd-num-to-string (getf result :pitch)))
	     ) ;endif
	    (setf thread-type   (case (getf result :thread-type)(:inner :Innen ) (:outer :Aussen )))
	    (setf profile       (getf result :thread-profile))
	    (setf chamfer       (getf result :include-chamfer))
	    (setf a-dir-reverse (NOT (sd-vec-equal-p (getf result :thread-direction) (sd-cylinder-axis-dir props))))
	    (setf thread-name   (getf result :thread-name))
	    ) ; end progn
	(display "Keine Gewindeinformationen (sd-define-thread) Informationen verfÏgbar.")
	) ;endif
    ) ;progn
    ) ;; end t-inq
 
 
(Gewinde-Entfernen
    :title "Gewinde-Entfernen"
    :initial-enable t
    :toggle-type :wide-toggle
    :push-action
    (progn
	  (setf result (oli::sd-destroy-thread FLAECHE))
      (if result
		(display "Gewinde entfernt")
		(display "Keine Gewindeinformation verfÏgbar bzw. Gewinde nicht entfernt."))
		(setf result nil)
		
		
;; (setf FLAECHE2 (sd-inq-feature-components :feat-sel-item  FLAECHE)) ;; Wandelt gewähltes FEATURE in dazugehörige gewählte Fläche 
;; Wird genau anders herum benötigt da ja nicht immer eine 3D-Anno dranhängt. Die sollte gelöscht werden, wenn vorhanden.


;;	(delete_custom_feature :any_category :display-ui :with_geo :off :start :select FLAECHE)		 ;; geht mit Featurewahl	
;;  (doc3d_delete_anno FLAECHE) ;; :geht mit Featurewahl
;; doc3d_delete_anno :3d_texts :all_annotations complete ;; alle Annotations aus der kompletten Zeichnung löschen ist etwas zu viel, ...
;; (sd-call-cmds (remove_feature FLAECHE)) ;; funktioniert wenn Feature gewählt wurde	

	
;		(sd-end-feedback ACHSEN-FEEDBACK)
		(setf FLAECHE nil)			 

      ) ;progn
    ) ;; end t-destroy
) ; variables
) ; sd-Defdialog