;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                               for CoCreate SolidDesigner
;;  Description:
;;      remove thread information on cylinder faces
;;      here the variant as sequential loop, "remove-by-click"
;;
;;  Reference  : https://ww3.cad.de/foren/ubb/Forum29/HTML/003609.shtml
;;  Docu       : https://support.ptc.com/help/creo_elements_direct/...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Filename   : cadde-29-003609.lsp
;;  Version    : 1.0
;;  Created    : Thu Apr 18 19:03:42 CEST 2024
;;  Modified   : Fri Apr 19 11:16:53 CEST 2024
;;  Author     : der_Wolfgang@forum@cad.de
;;  Download   : cad.de
;;  SD-Version : developed with PE80, should work with all modern versions
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package :cadde-wt)
(use-package :OLI)

(sd-defdialog 'remove_thread_info
  :dialog-title '(sd-multi-lang-string "Remove Thread Info" :german "Gewinde Info entfernen")
  :toolbox-button t
  :dialog-control :sequential-loop
  :variables
  '(
    (time-show :initial-value 7)
    (cyl_face
      :selection (*sd-cylinder-seltype*)
      :modifies :contents
      :prompt-text (sd-multi-lang-string "Select cylindrical face with thread information to be removed."
                     :german "Wählen Sie die zylindrische Fläche mit den zu entfernenden Gewindeinformationen")
      :check-function
      #'(lambda (cyl-face)
         (if (sd-inq-thread cyl-face)
           :ok
           (values :error (sd-multi-lang-string "There is no thread information at the face."
                            :german "Diese Flaeche besitzt keine Informationen zu Gewinde."))
           ))
     :after-input
     (let ((t-name(getf (sd-inq-thread cyl_face) :thread-name)))
       (when (> time-show 0)
         (sd-display-alert (format nil "~A: ~S"
                             (sd-multi-lang-string "Removed" :german "Entfernt")
                             t-name)
                            :icon :info
                            :auto-close-time time-show)
         (decf time-show) ;; giggle
         )
       (sd-destroy-thread cyl_face)
       )
     )
   )
  :help-action '(sd-display-url "https://ww3.cad.de/foren/ubb/Forum29/HTML/003609.shtml#000006")
  )