#|
Hilfe dazu siehe unter:
**Installationspfad**\CoCreate\OSD_Modeling_2005\help\osdm\german\WebHelp\machadv\machadv_customization\machadv_cust0012.html
**Installationspfad**\CoCreate\OSD_Modeling_2005\help\osdm\german\WebHelp\machadv\machadv_customization\MachAdv_custTable.html
|#

(in-package :cad-cam-link-customization)
(use-package :oli)

;; Meldung fuer "Durchgangsbohrung mit Teilflächentiefe und Kegelsenkung" abstellen
(defun check-mach_adv_library-countersunk_partially_toleranced_throughhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Durchgangsbohrung mit Teilflächentiefe und Kegelsenkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Durchgangsbohrung mit Senkung" abstellen
(defun check-mach_adv_library-countersunk_throughhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Durchgangsbohrung mit Senkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Durchgangsbohrung mit Zapfensenkung" abstellen
(defun check-mach_adv_library-counterbored_throughhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Durchgangsbohrung mit Zapfensenkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Durchgangsbohrung mit Zapfensenkung und Fase" abstellen
(defun check-mach_adv_library-counterbored_throughhole_with_chamfer-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Durchgangsbohrung mit Zapfensenkung und Fase geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Durchgangsgewindebohrung" abstellen
(defun check-mach_adv_library-threaded_throughhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Durchgangsgewindebohrung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Teilgewinde Durchgangsbohrung" abstellen
(defun check-mach_adv_library-partially_threaded_throughhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Teilgewinde Durchgangsbohrung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochgewindebohrung" abstellen
(defun check-mach_adv_library-partially_threaded_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochgewindebohrung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung mit Zapfensenkung" abstellen
(defun check-mach_adv_library-flat_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung mit Zapfensenkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung mit Zapfensenkung mit Teilflächentiefe und Kegelsenkung" abstellen
(defun check-mach_adv_library-countersunk_partially_toleranced_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung mit Zapfensenkung mit Teilflächentiefe und Kegelsenkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung mit Teilflächentiefe" abstellen
(defun check-mach_adv_library-countersunk_partially_toleranced_flat_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung mit Teilflächentiefe geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung mit Zapfensenkung mit Senkung" abstellen
(defun check-mach_adv_library-countersunk_flat_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung mit Zapfensenkung mit Senkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung mit Senkung" abstellen
(defun check-mach_adv_library-countersunk_blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung mit Senkung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)

;; Meldung fuer "Sacklochbohrung" abstellen
(defun check-mach_adv_library-blindhole-parameter-fnc (a b c d e f g h i j k l m n)
  (let ()
    (progn
      ;;(display "Sacklochbohrung geprueft")
      (setf status :ok message "" severity :none)
      (values status message severity)
    )
  )
)