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

ThisDrawing.Regen acAllViewports实现什么功能？

<P>&nbsp;&nbsp; Dim oStyle As AcadTextStyle&nbsp;&nbsp;&nbsp; </P>
<P>&nbsp;&nbsp; &nbsp;Set oStyle = ThisDrawing.TextStyles.Add("KANJI")<BR>&nbsp;&nbsp;&nbsp; oStyle.fontFile = "TXT.shx"<BR>&nbsp;&nbsp;&nbsp; oStyle.BigFontFile = "EXTFONT.shx"<BR>&nbsp;&nbsp;&nbsp; oStyle.Height = 0<BR>&nbsp;&nbsp;&nbsp; oStyle.Width = 1<BR>&nbsp;&nbsp;&nbsp; oStyle.ObliqueAngle = 0<BR>&nbsp;&nbsp;&nbsp; oStyle.TextGenerationFlag = 0<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle = oStyle<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.Regen acAllViewports</P>
<P>该段程序实现追加一个TEXT样式，并且设置一些属性，</P>
<P>请问这段程序里面的最后一个语句（ThisDrawing.Regen acAllViewports）有什么作用，</P>
<P>偶也查看了一些资料：重生整个图形以及刷新计算所有对象的屏幕坐标值及视图精度，</P>
<P>但是由于本人刚接触这个东西，所以没有理解，</P>
<P>请知道的朋友帮忙解答，</P>
<P>谢谢！！！！</P>

songzhi 发表于 2005-11-24 19:50:00

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

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

<P>首先感谢你的回复，</P>
<P>其次我不是什么高手，朋友抬举了，，</P>
<P>我的程序中是只添加一个样式，</P>
<P>我去掉了ThisDrawing.Regen acAllViewports语句试过，的确没有影响，</P>
<P>所以朋友说的没错，，</P>
<P>非常感谢！！！！</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: ThisDrawing.Regen acAllViewports实现什么功能？