为什么无法保存ThisDrawing.ActiveTextStyle的当前值？？？

dazhangyu

先阅读一下下面这段程序好吗？
    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

你觉得这几个对话框的值会是什么？跟你想象的一样吗？
欢迎各位来讨论哟

efan2000

这是概念上有错误，虽然你定义了textstyle这个文字样式，但是它指向的还是activetextstyle，也就是当前活动的文字样式，而 curtextstyle也是指向它，所以对其中的任何一个进行操作，都会影响另一个，这就是不能保留的原因。它们的样式名称都是activetextstyle.name。

dazhangyu

这就是所谓的句柄吧？可我要是想在一段操作之前保留当前值，然后在操作完成后，再恢复初值，那我该怎么办呢？