unfeltboy 发表于 2008-4-15 20:23:00

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

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
用以上代码对填充图案的角度进行更改后,图案却不会自动更新按新的角度进行填充,不知是何原因呢?
页: [1]
查看完整版本: [求助]用VB更新填充图案之后如何更新