屏幕刷新问题!

jimky

大家新年好!
有个问题找了很久,一直没找到答案,,请教一下大家!!
请问, 比如我用VBA循环的画3000个图块,, 每次循环画一个图块,, 屏幕也会实时更新,, 这样觉得效率有点低．．．想问一下,有没有办法直接先把屏幕更新关闭了,,等全部的3000个图块都画完了再刷新一下屏幕？　这样的效率会提高嘛?

mikewolf2k

好像默认的是不实时更新吧？在程序执行期间，鼠标不要到acad界面内移动试试。

jimky

试过了,我是看着屏幕一个一个的把图块添加上去的啊!

mikewolf2k

把窗口最小化，看看时间少不少。

chmenf087

到底是插入图块还是绘制其他图形？

jimky

不管是图块还是其他图形都一样吧! 但特别是图块,,如果是大批量,好像有点慢!!
就是经常程序输出的时候需要画大批量对象,, 想用一切办法提高效率,,小弟觉得就是把如果能屏幕刷新先关闭掉 ,这样应该效率也会提高些!

所以就请教一下大家了!!

chmenf087

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个圆也没发现你所说的问题

jimky

画基本图元(线,圆等)速度很快,不会感觉到这个问题!
如果你画30000个图块试试... 速度应该就会慢下来了,,我是想图个画图块的速度

chmenf087

注意cad图块本身就是一个外部引用，你插入图块的时候相当于CAD主程序要打开外部的块
然后读取数据处理然后传入cad数据库，再关闭外部块文件。正如我们打开文件时所见速度是比较缓慢的特别是大文件，因此你所说的屏幕刷新的速度不是太大的问题，

如果真的要关闭刷新那么请冻结除当前图层外的图层。