[求助]用VB更新填充图案之后如何更新

unfeltboy

Set shatch = ThisDrawing.SelectionSets.Add("shatch")
shatch.SelectOnScreen FilterType, FilterData
If shatch.Count = 0 Then Exit Sub
For i = 0 To shatch.Count - 1
    shatch(i).PatternAngle = ra
    shatch(i).Update
Next

用以上代码对填充图案的角度进行更改后，图案却不会自动更新按新的角度进行填充，不知是何原因呢？