Setting Hatch style with visual lisp?

[jmcshane]

Hi,

I am trying to write a my first routine using Visual Lisp to copy a Hatch entity and then to change it to a solid hatch. I know in Auto Lisp I would have to get all the assoc codes etc.
to change the hatch pattern.
My question is this :
Is it the vla-setpattern command I have to use change the hatch pattern ??
and if so what how should the line be phrased ??

I am having some difficulty understanding the ActiveX and VBA Help item:

object.SetPattern PatternType, PatternName

Here is what I have so far.

(setq EntitySel (entsel "nSelect Entity: "))
(setq ENAM (car EntitySel))
(setq OldHatch (vlax-ename->vla-object ENAM))
(vla-copy Oldhatch)
(vla-get-patternname OldHatch)


Thanks in advance.

[jmcshane]

I found it ................

(vla-setpattern OldHatch acHatchPatternTypePreDefined "Solid" )

is what I needed.

Thanks anyway.

John