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

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:tofnyzht5qe.dwg
下载次数:0 文件大小:38.91 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

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

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

发表回复

精选推荐