Sintaxis para el comando gradient

Buen día para todos.
Busco la sintaxis para el comando gradient
Quiero modificae el siguiente lisp, cambiando el hatch por gradient y no encuentro la forma de hacerlo

Código:



(DEFUN C:le (/       hn       rotu  msc     s1    s2   s3    punto1
         punto2 punto3 punto4 punto5 punto6 punto7   punto8 d1
         d2    d3       d4     d5     d6
       )


  (vl-load-com)
  (setvar "CMDECHO" 0)
  (setq osm (getvar "osmode"))
  (setvar "pdmode" 35)
  (command "_UNITS" "2" "3" "2" "3" "90" "_Y")

  (command "_setvar" "angdir" "1")
  (command "_setvar" "angbase" "270")

  (setq dsc (getvar "dimscale"))
  ;(setq ht (getvar "textsize"))
  (setq ht (* 2.5 dsc))
  (setq escc (* (/ 1000 1.512) ht))

  (setq msc (/ 1000 escc))
  (setq s1 (/ 2.768 msc))
  (setq s2 (/ 2.739 msc))
  (setq s3 (/ 3.210 msc))

  (setq datos "S")
  (while (= datos "S")
  (setvar "OSMODE" 45)

  (SETQ punto1 (GETPOINT "\n Marque el inicio de la flecha : "))

  (setvar "OSMODE" 512)

  (SETQ punto2 (GETPOINT punto1 "\n Marque la direccion de la flecha: "))

  (SETQ ang-rad (angle punto1 punto2))

  (setq d1 (- ang-rad 0.165149))
  (setq d2 (+ ang-rad 0.165149))
  (setq d3 (- ang-rad 0.083141))
  (setq d4 (+ ang-rad 0.083141))
  (setq d5 (- ang-rad 0.070947))
  (setq d6 (+ ang-rad 0.070947))
  (setq punto3 (polar punto1 d1 s1))
  (setq punto4 (polar punto1 d2 s1))
  (setq punto5 (polar punto1 d3 s2))
  (setq punto6 (polar punto1 d4 s2))
  (setq punto7 (polar punto1 d5 s3))
  (setq punto8 (polar punto1 d6 s3))

  (command "_ORTHO" "_OFF" "_OSNAP" "_OFF")
 ; (command "_layer" "_M" "Flechas" "_c" "206" "Flechas" "")

  (command "_layer" "_M" "Flecha" "_c" "206" "Flecha" "")

  (command "_pline" punto1 punto3 punto5   punto7 punto8 punto6 punto4 "c" )
  (setq bo (entlast))
  (command "_hatch" "_solid" (entlast) "")
   
  (setvar "clayer" "0");capa cero

  )

)

Desde ya, les agradezco la ayuda que puedan brindarme
Saludos