quick HELP??? solid hatch to gradient hatch

anyone knows some lisp to make solid hatch into gradient sphere hatch???

i attached a dwg file for the one i need

solid to gradient.dwg

ouch no one bothered

This should get you started. Note - no error checking:

(defun c:GRH ( / doc i obj ss clr)
   (vl-load-com)
   (setq doc (vla-get-activedocument (setq acd (vlax-get-acad-object)))
         i 0
   )
   (if (setq ss (ssget '((0 . "HATCH"))))
      (repeat (sslength ss)
         (setq obj (vlax-ename->vla-object (ssname ss i))
               clr (vla-get-truecolor obj)
         )
         (vla-put-hatchobjecttype obj acGradientObject)
         (vla-put-gradientname obj "Spherical")
         (vla-put-gradientcolor1 obj clr)
         (vla-SetRGB clr 255 255 255)
         (vla-put-gradientcolor2 obj clr)
         (setq i (1+ i))
      )
   )
   (princ)
)

This should get you started. Note - no error checking:

 

 

(defun c:GRH ( / doc i obj ss clr)
   (vl-load-com)
   (setq doc (vla-get-activedocument (setq acd (vlax-get-acad-object)))
         i 0
   )
   (if (setq ss (ssget '((0 . "HATCH"))))
      (repeat (sslength ss)
         (setq obj (vlax-ename->vla-object (ssname ss i))
               clr (vla-get-truecolor obj)
         )
         (vla-put-hatchobjecttype obj acGradientObject)
         (vla-put-gradientname obj "Spherical")
         (vla-put-gradientcolor1 obj clr)
         (vla-SetRGB clr 255 255 255)
         (vla-put-gradientcolor2 obj clr)
         (setq i (1+ i))
      )
   )
   (princ)
)

thank you so much sir! this is exactly what we needed!!!