ThisDrawing.Regen acAllViewports实现什么功能？

nym

   Dim oStyle As AcadTextStyle   

    Set oStyle = ThisDrawing.TextStyles.Add("KANJI")
    oStyle.fontFile = "TXT.shx"
    oStyle.BigFontFile = "EXTFONT.shx"
    oStyle.Height = 0
    oStyle.Width = 1
    oStyle.ObliqueAngle = 0
    oStyle.TextGenerationFlag = 0
   
    ThisDrawing.ActiveTextStyle = oStyle
 
    ThisDrawing.Regen acAllViewports

该段程序实现追加一个TEXT样式，并且设置一些属性，

请问这段程序里面的最后一个语句（ThisDrawing.Regen acAllViewports）有什么作用，

偶也查看了一些资料：重生整个图形以及刷新计算所有对象的屏幕坐标值及视图精度，

但是由于本人刚接触这个东西，所以没有理解，

请知道的朋友帮忙解答，

谢谢！！！！

songzhi

ThisDrawing.Regen acAllViewports可以让修改过的东东立即显现出效果来，如果是添加一个样式的话不要可能也无所谓吧！

不对之处请高手指点。

nym

首先感谢你的回复，

其次我不是什么高手，朋友抬举了，，

我的程序中是只添加一个样式，

我去掉了ThisDrawing.Regen acAllViewports语句试过，的确没有影响，

所以朋友说的没错，，

非常感谢！！！！