Inventor 工程图标题栏中“比例”和“重量”解决方法

2010-11-30 23:43阅读：

http://blog.sina.cn/dpool/blog/u/1914695810

1 比例
1. 在idw模版标题栏中加入一个名为比例的提示条目
2. 在idw的VBA写入如下的代码
'自动计算比例
Dim oTitBloDef As TitleBlockDefinition
Dim oTexBox As TextBox
Dim oSheet As Sheet
On Error Resume Next
For Each oSheet In ThisApplication.ActiveDocument.Sheets

Set oTitBloDef = ThisApplication.ActiveDocument.TitleBlockDefinitions(oSheet.TitleBlock.Definition.Name)

For I = 1 To oTitBloDef.Sketch.TextBoxes.Count

If InStr(1, oTitBloDef.Sketch.TextBoxes(I).FormattedText, '<Prompt ReadOnlyUni

queID') <> 0 And InStr(1, oTitBloDef.Sketch.TextBoxes(I).FormattedText, '比例') <> 0 Then '判定标题栏中的项目是不是名为比例的提示条目

Set oTexBox = oTitBloDef.Sketch.TextBoxes(I)
If oSheet.DrawingViews.Count <> 0 Then
oSheet.TitleBlock.SetPromptResultText oTexBox, DeleteSplace(oSheet.DrawingViews(1).ScaleString)
Else
oSheet.TitleBlock.SetPromptResultText oTexBox, ':'
End If
End If
Next
Next
2重量
1.在ipt模版文件中的iproperty加入自定义项目'重量',类型为文本
? Inventor 工程图标题栏中“比例”和“重量”解决方法 - hlzone@126 - 1985的博客

Inventor 工程图标题栏中“比例”和“重量”解决方法 - hlzone@126 - 1985的博客

2. 在?ipt其VBA中写入

Dim oPart As PartDocument
Set oPart = ThisApplication.ActiveDocument
Dim oMass As MassProperties
Set oMass = oPart.ComponentDefinition.MassProperties
Dim m As String
m = Format(oMass.Mass, '0.00')
oPart.PropertySets.Item('{D5CDD505-2E9C-101B-9397-08002B2CF9AE}').Item('重量').Value = m
3.在idw标题插入模型的自定义?
? Inventor 工程图标题栏中“比例”和“重量”解决方法 - hlzone@126 - 1985的博客

Inventor 工程图标题栏中“比例”和“重量”解决方法 - hlzone@126 - 1985的博客

举报/Report

我的更多文章

下载客户端阅读体验更佳