这段代码有误帮帮忙阿！！！

tsxvvv

Public sub ChangHatchPatternSpace()
Dim hatchObj AS Acadhatch
Dim PatternName AS String
Dim PatternType AS Long
Dim bAssociativity AS Boolean
PatternName="ANSI31"
PatternType=0
bAssociativity=true
Set hatchObj=ThisDrawing.ModelSpace.Addhatch _ (patternName,PatternType,bAssociativity)
Dim outerloop AS AcadEntity
Dim center(0 To 2) AS Double
Dim radius AS Double
center(0)=5
center(1)=3
center(2)=0
radius=5
Set outerloop=ThisDrawing.ModelSpace.AddCircle(center,radius)
hatchObj.appendouterloop(outerloop)
hatchObj.evaluate
End Sub
但在运行时“Set hatchObj=ThisDrawing.ModelSpace.Addhatch _ (patternName,PatternType,bAssociativity)“出了错误“对象变量或with块变量未设置“
请问这是怎么回事，问题出在那里阿？？？//

mccad

tsxvvv

不是那里啊！！那时我在上传时由于一行写不了才加上的。
我想说的是‘在进行填充阴影时是不是还需要在应用里增加什么东西啊‘
要不为什么我的这段代码会没有结果呢？？？