请高手帮我一下：一个关于标注的问题

zgyxn

在cad中有的图形比例不一样，插入不同图块时，用scale变成比例一样，可是这个标注不会变，
我就想编一个可以把这个标注的箭头、文字高缩小1000倍的程序，可是自己老学不会，我原来的
想法是这样的：

Sub redimm()
Dim dimSty As AcadDimStyle
Dim i As Integer

For Each dimSty In ThisDrawing.DimStyles
  'If dimSty.ArrowheadSize > 200 Or dimSty.ExtensionLineExtend > 100 Then
  'dimSty.ArrowheadSize = dimSty.ArrowheadSize / 1000
  'dimSty.ExtensionLineExtend = dimSty.ExtensionLineExtend / 1000
'dimSty.TextGap = dimSty.TextGap / 1000
'dimSty.TextHeight = dimSty.TextHeight / 1000
' End If
Next dimSty

End Sub

能帮帮我吗

mccad

你的问题还是说不清楚!
你的图块插入图形中有没有打散？如果没有打散，怎么改标注样式也是没用的。

zgyxn

我已经炸开它了

mccad

如果是炸开的情况，则你可以查看他的标注样式是什么，或者来个图看看

zgyxn

请看（请先炸开）

zgyxn

不行呀，上行不了，有50多k

zeng29

不会吧! 才50多K就上传不了???

zgyxn

我已经发到zeng29@163.com,请帮我上传一下

zgyxn

mccad

只可惜ActiveX没有提供修改标注样式的方法(一个很大的BUG吧)。
通过程序把要修改的标注样式设为当前，再修改系统变量也达不到目的(不能起作用)。
如果要在程序里改，只能是一个对象一个对象修改了，也就是说先判断标注对象的标注样式，如果是指定名称的样式，则修改其ScaleFactor 属性为0.001，ScaleFactor 属性就是控制标注对象的外观显示比例。