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

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

<p>Set shatch = ThisDrawing.SelectionSets.Add("shatch")<br/>shatch.SelectOnScreen FilterType, FilterData<br/>If shatch.Count = 0 Then Exit Sub<br/>For i = 0 To shatch.Count - 1<br/>&nbsp;&nbsp;&nbsp; shatch(i).PatternAngle = ra<br/>&nbsp;&nbsp;&nbsp; shatch(i).Update<br/>Next</p><p>用以上代码对填充图案的角度进行更改后,图案却不会自动更新按新的角度进行填充,不知是何原因呢?</p><p></p>
页: [1]
查看完整版本: [求助]用VB更新填充图案之后如何更新