求助：如何通过VBA编程修改全局比例而不影响当前标注样式

liyuwen

比如，想通过VBA编程将全局比例修改为2，笔者发现如下方法尽管确实将全局比例修改为2，但同时会影响当前标注样式（如附图中红圈所示，多了个“样式替代”），不知大侠们有何高招。谢谢！ Public Sub test()
ThisDrawing.SetVariable "DIMSCALE", 2
End Sub

cumtjh

很想知道如何解决？？？？？

s305040093

这也是我需要解决的问题啊

chengaokkk

标注本身也有个比例，尝试吧标注比例也改成2试试

wylong

当用户修改标注系统变量，实际上是对活动的标注样式设定标注替代；用户不能改变活动的标注样式本身。也就是说所有新创建的标注仍将会使用活动的标注样式来创建，并将不受替代系统变量影响。系统变量的替代在活动的标注样式被更新前不会在新的标注中体现。要修改任何标注样式的设置，可使用 CopyFrom 方法。该方法可从一个文件、标注或是其它标注样式中复制一个包含替代的标注样式。
具体代码如下：

2. ThisDrawing.SetVariable "DIMSCALE", 2
   
3. ThisDrawing.ActiveDimStyle.CopyFrom ThisDrawing

ThisDrawing.SetVariable "DIMSCALE", 2<br /> ThisDrawing.ActiveDimStyle.CopyFrom ThisDrawing