(vl-load-com)
(defun c:suplienha ( / tsbo);; suprime lien hachure
  (setq accro (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 1)
 
(or acadObj (setq acadObj (vlax-get-acad-object)))
(or *doc*(setq *doc* (vla-get-ActiveDocument acadObj)))
(vla-StartUndoMark *doc*)
(vlax-for bl1 (vla-get-Blocks *doc*)
(vlax-for tsbo bl1
(setq namestsbo (vla-get-ObjectName tsbo))
;(princ namestbo)
;(setq assotsbo (vla-get-AssociativeHatch  tsbo))
;(princ assotsbo)
(if	(and (= namestsbo "AcDbHatch" )(/=  (vla-get-AssociativeHatch  tsbo) :vlax-false ));solide
(vla-put-AssociativeHatch  tsbo :vlax-false))
)

) 
(vla-EndUndoMark *doc*)




 (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
  (setvar "osmode" accro)
  (princ )
)