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

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

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


Public Sub test()<BR>                       ThisDrawing.SetVariable "DIMSCALE", 2<BR>End Sub

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

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

s305040093 发表于 2011-6-15 20:56:57

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

chengaokkk 发表于 2011-6-16 19:02:33

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

wylong 发表于 2011-6-18 15:04:56

本帖最后由 wylong 于 2011-6-18 15:06 编辑

当用户修改标注系统变量，实际上是对活动的标注样式设定标注替代；用户不能改变活动的标注样式本身。也就是说所有新创建的标注仍将会使用活动的标注样式来创建，并将不受替代系统变量影响。系统变量的替代在活动的标注样式被更新前不会在新的标注中体现。要修改任何标注样式的设置，可使用 CopyFrom 方法。该方法可从一个文件、标注或是其它标注样式中复制一个包含替代的标注样式。
具体代码如下：
ThisDrawing.SetVariable "DIMSCALE", 2
ThisDrawing.ActiveDimStyle.CopyFrom ThisDrawing
页: [1]
查看完整版本: 求助：如何通过VBA编程修改全局比例而不影响当前标注样式