我想用VB程序填充一个自定义图案，图案定义不放在acad.pat文件中，程序如下：
patternName = tam
PatternType = acHatchPatternTypeUserDefined
bAssociativity = True
' Create the associative Hatch object in model space
Set hatchObj = .Application.ActiveDocument.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
可改变PatternType的值
怎么不行呢，请各位指教
置顶卡
