[编程交流] 快速帮助？？？g实体图案填充

(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)
)