(in-package :osd.cad.de)
(use-package :oli)

(defun error-319-p (obj)

  (display :clear)

  (check_part
   :objects obj
   :maximal_check t
   :voids t
   :knife_edges t
   :inexact_geo t
   :warnings t
   :check_it)
   
  (let ((check-result (sd-get-text-control-value "OUTPUT-BOX-TX")))
   (display :clear)

   (or 
     (sd-string-match-pattern-p "*(Fehler 319)*" check-result)
     (sd-string-match-pattern-p "*(Error 319)*" check-result))))
     
	 

; test call:
; (display (error-319-p (sd-inq-curr-part)))