为什么无法保存ThisDrawing.ActiveTextStyle的当前值？？？
先阅读一下下面这段程序好吗？Dim textstyle As AcadTextStyle
Dim curtextstyle As AcadTextStyle
'保存当前激活textstyle的状态
Set curtextstyle = ThisDrawing.ActiveTextStyle
MsgBox " fontFile的当前值是 " & curtextstyle.fontFile, vbInformation, "FontFile 范例"
Set textstyle = ThisDrawing.ActiveTextStyle
textstyle.FontFile = "宋体"
'为当前激活的textstyle赋新值
ThisDrawing.ActiveTextStyle =textstyle
MsgBox " fontFile的新值是 " & textstyle.fontFile, vbInformation, "FontFile 范例"
.
.
'恢复从前的保留状态 .
ThisDrawing.ActiveTextStyle =curtextstyle
MsgBox "这是 fontFile的原值吗" & curtextstyle.fontFile, vbInformation, "FontFile 范例"
ThisDrawing.Regen acActiveViewport
你觉得这几个对话框的值会是什么？跟你想象的一样吗？
欢迎各位来讨论哟 这是概念上有错误，虽然你定义了textstyle这个文字样式，但是它指向的还是activetextstyle，也就是当前活动的文字样式，而 curtextstyle也是指向它，所以对其中的任何一个进行操作，都会影响另一个，这就是不能保留的原因。它们的样式名称都是activetextstyle.name。 这就是所谓的句柄吧？可我要是想在一段操作之前保留当前值，然后在操作完成后，再恢复初值，那我该怎么办呢？
页:
[1]