Extrate hatch values?

[stephen4444]

How to extract the values (like pattern, scale, angle, and layer) from a hatch pattern?

Thanks

 

[Ken Alexander]

(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nSelect
Hatch: "))))

or

(setq hent (vlax-ename->vla-object (car (entsel "\nSelect Hatch: "))) hlayer (vla-get-layer hent) hangle (vla-get-patternangle hent) hscale (vla-get-patternscale hent) ;;;what ever else you want )

 

[stephen4444]

thx much