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

liyuwen · 发表于 2004-8-11 11:44:00

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

hkoswwlrwe0.GIF

cumtjh · 发表于 2010-8-19 17:54:00

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

s305040093 · 发表于 2011-6-15 20:56:00

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

chengaokkk · 发表于 2011-6-16 19:02:00

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

wylong · 发表于 2011-6-18 15:04:00

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

copy


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

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

发表回复

精选推荐