屏幕刷新问题!
大家新年好!有个问题找了很久,一直没找到答案,,请教一下大家!!
请问, 比如我用VBA循环的画3000个图块,, 每次循环画一个图块,, 屏幕也会实时更新,, 这样觉得效率有点低．．．想问一下,有没有办法直接先把屏幕更新关闭了,,等全部的3000个图块都画完了再刷新一下屏幕？ 这样的效率会提高嘛?
好像默认的是不实时更新吧？在程序执行期间，鼠标不要到acad界面内移动试试。 试过了,我是看着屏幕一个一个的把图块添加上去的啊!
把窗口最小化，看看时间少不少。 到底是插入图块还是绘制其他图形？ 本帖最后由 jimky 于 2011-1-4 18:44 编辑
不管是图块还是其他图形都一样吧! 但特别是图块,,如果是大批量,好像有点慢!!
就是经常程序输出的时候需要画大批量对象,, 想用一切办法提高效率,,小弟觉得就是把如果能屏幕刷新先关闭掉 ,这样应该效率也会提高些!
所以就请教一下大家了!! Option Explicit
Public Sub drawCircle()
Dim radius As Double
Dim center(2) As Double
Dim i As Integer
For i = 0 To 30000
center(0) = Rnd() * 3000
center(1) = Rnd() * 3000
center(2) = 0
radius = Rnd() * 35
Dim obj As AcadCircle
Set obj = ThisDrawing.ModelSpace.AddCircle(center, radius)
obj.color = Rnd() * 255
Next
End Sub
我画了3w个圆也没发现你所说的问题 画基本图元(线,圆等)速度很快,不会感觉到这个问题!
如果你画30000个图块试试... 速度应该就会慢下来了,,我是想图个画图块的速度 注意cad图块本身就是一个外部引用，你插入图块的时候相当于CAD主程序要打开外部的块
然后读取数据处理然后传入cad数据库，再关闭外部块文件。正如我们打开文件时所见速度是比较缓慢的特别是大文件，因此你所说的屏幕刷新的速度不是太大的问题，
如果真的要关闭刷新那么请冻结除当前图层外的图层。
页:
[1]