ThisDrawing.Regen acAllViewports实现什么功能？

nym · 发表于 2005-11-24 17:55:00

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 · 发表于 2005-11-24 19:50:00

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

nym · 发表于 2005-11-25 08:58:00

首先感谢你的回复，
其次我不是什么高手，朋友抬举了，，
我的程序中是只添加一个样式，
我去掉了ThisDrawing.Regen acAllViewports语句试过，的确没有影响，
所以朋友说的没错，，
非常感谢！！！！

ThisDrawing.Regen acAllViewports实现什么功能？

发表回复

精选推荐