Hatch con / sin área

Buen día señores.

Tengo una rutina donde selecciono las polilíneas de una capa específica para crear hatch a cada una de ellas. Para hacer esto, utilizo esta línea de código:

Código:


(command "_hatch" "_ansi31" "0.1" "0" ent1 "")


El problema es que cuando quiero obtener el área de ese hatch, no se muestra, no tiene área. Incluso en el cuadro de propiedades, no muestra el área. En cambio, si lo hago "a mano" seleccionando la poli y escribiendo hatch en la línea de comandos, se genera y si muestra los valores del área.

Alguna sugerencia??

Saludos y Muchas gracias

Hola a tod@s
eliasp: En Acad 2007 inglés dibujé un círculo y ahí nomás, en línea de comandos escribí
Command: (command "_hatch" "_ansi31" "0.1" "0" "last")
Me dibujó el hatch, con LIST me dió la lista de propiedades, entre ellas el área.
Aparentemente, tu lisp me funcionó.
Saludos

Hola, primero que nada gracias por contestar.

Es precisamente el punto. Con ésta rutina:

Código:


(defun c:creahat()
  (setq i 0)
  ;(setq capa "0-corte")
  (setq ob(vlax-ename->vla-object(car(entsel "\n Selecciona Objeto para obtener CAPA..."))))
  (setq capa(vlax-get-property ob 'layer))
  (setq conj(ssget "X" (list
 (cons 0 "*line")
 (cons 8 capa)
 )
   ))
  (setq cuantos(sslength conj))
  (alert (strcat (itoa cuantos)" Objetos encontrados.."))
  (setvar "clayer" capa)
  (setvar "cecolor" "ByLayer")
  (repeat cuantos
    (setq ent1(ssname conj i))
    (command "_hatch" "_ansi31" "0.1" "0" ent1 "") ;;corte
    ;(command "_hatch" "_gravel" "0.02" "0" ent1 "") ;;pedraplén
    ;(command "_hatch" "_ar-sand" "0.02" "0" ent1 "");;base
    ;(command "_hatch" "_ar-conc" "0.002" "0" ent1 "");;sr
    ;(command "_hatch" "_solid" "0" ent1 "");;carpeta
    (setq i(1+ i))
    )
  )


Hago eso, pero algunos hatch se generan sin el valor del área, como se puede observar en el anexo.
A ver si con el archivo queda mas claro, saludos y gracias.

Enlace a archivo:
https://we.tl/t-XVxpEKHCzl