Seems like I was supposed to use GradientAngle
, not PatternAngle
.
(progn
(setq hatch (vla-addHatch mspace
acPreDefinedGradient
"LINEAR"
:vlax-true
acGradientObject)
)
(vlax-put hatch 'GradientAngle (/ pi 2))
(vlax-invoke hatch 'AppendOuterLoop (list pline))
(vla-evaluate hatch)
)
Sheesh, I wish there was proper documentation on these things.