zgyxn 发表于 2003-10-19 17:08:00

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

在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 发表于 2003-10-19 20:09:00

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

zgyxn 发表于 2003-10-20 11:55:00

我已经炸开它了

mccad 发表于 2003-10-20 21:10:00

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

zgyxn 发表于 2003-10-21 12:29:00

请看（请先炸开）

zgyxn 发表于 2003-10-21 12:33:00

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

zeng29 发表于 2003-10-21 14:35:00

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

zgyxn 发表于 2003-10-21 15:18:00

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

zgyxn 发表于 2003-10-22 11:06:00

mccad 发表于 2003-10-22 19:30:00

只可惜ActiveX没有提供修改标注样式的方法(一个很大的BUG吧)。
通过程序把要修改的标注样式设为当前，再修改系统变量也达不到目的(不能起作用)。
如果要在程序里改，只能是一个对象一个对象修改了，也就是说先判断标注对象的标注样式，如果是指定名称的样式，则修改其ScaleFactor 属性为0.001，ScaleFactor 属性就是控制标注对象的外观显示比例。
页: [1] 2
查看完整版本: 请高手帮我一下：一个关于标注的问题