如何统计钣金文档中向上和向下折弯的个数

前段时间在在Autodesk Inventor论坛解答了一个问题，觉得对钣金操作的开发者有用，现总结于此。

钣金里折弯是很常用的特征。而折弯基于基准面方向，可能向上，也可能向下。而实际生产中，需要知道哪些折弯向上，哪些向下。API提供的相关方法FlatBendResult.IsDirectionUp 可以解决。以下VBA代码假定当前激活的是一个钣金文档，它将进行统计，并弹出消息。

Public Sub GetBendResults()

'获取当前文档

Dim oPartDoc As PartDocument

oPartDoc = _InvApplication.ActiveDocument

'判断是否是钣金文档

If oPartDoc.SubType <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then

MsgBox("必须打开钣金文档！")

Exit Sub

End If

'获取钣金文档定义

Dim oSheetMetalCompDef As SheetMetalComponentDefinition

oSheetMetalCompDef = oPartDoc.ComponentDefinition

'如果还没有展开，则调用Unfold创建展开

If (Not oSheetMetalCompDef.HasFlatPattern) Then

oSheetMetalCompDef.Unfold()

End If

‘获取展开

Dim oFlatPattern As FlatPattern

oFlatPattern = oSheetMetalCompDef.FlatPattern

’遍历展开折弯结果对象

Dim oBendResult As FlatBendResult

For Each oBendResult In oFlatPattern.FlatBendResults

‘ 折弯的内部名

Dim strResult As String

strResult = "Internal Name: " & oBendResult.InternalName & ", "

’折弯在底面还是顶面

If oBendResult.IsOnBottomFace Then

strResult = strResult & "On Bottom, "

Else

strResult = strResult & "On Top, "

End If

‘折弯角度，并考虑了用缺省角度单位制

strResult = strResult & "Angle: " & _InvApplication.ActiveDocument.UnitsOfMeasure.GetS tringFromValue(oBendResult.Angle, UnitsTypeEnum.kDefaultDisplayAngleUnits) & ", "

‘折弯半径，并考虑了用缺省长度单位制

strResult = strResult & "Inner Radius: " & _InvApplication.ActiveDocument.UnitsOfMeasure.GetS tringFromValue(oBendResult.InnerRadius, UnitsTypeEnum.kDefaultDisplayLengthUnits) & ", "

’折弯方向，向上还是向下

If oBendResult.IsDirectionUp Then

strResult = strResult & "Bend Direction: " & "Bend Up"

Else

strResult = strResult & "Bend Direction: " & "Bend Down"

End If

‘在调试窗口打印出以上信息

Debug.Print(strResult)

End Sub

如何统计钣金文档中向上和向下折弯的个数相关推荐

python统计word词频_python统计word文档中的词频
如何将统计word文档中的词频呢?先用docx模块将word文档转变成txt格式,然后使用jieba模块进行分词,并统计词频.是不是很简单- #2020年3月10日 #Elizabeth from d ...
Excel VBA 统计一个文档中所有sheet的已用行数
Sub countrownum()Dim i, num, rownumnum = Worksheets.CountFor i = 2 To num'Worksheets(i).Select rownu ...
python生成word文档的表格_2018-10-04 [日常]用Python读取word文档中的表格并比较
演示如下. 两个简单的word文档, 各有一个表格: 读取文档中的表格到列表(为演示只对单列表格操作): import docx def 取表格(文件名): 文件 = docx.Document(文件 ...
（详细）如何使用Freemarker生成Word文档中的文本、图片、表格、附件？
前言-Freemarker简单介绍近期项目工作中需要编写大量格式相同但数据不同的Word文档,需要实现自动生成文档的效果,但是通过网上冲浪和官方文档搜索,相对来说,没有分类整理的文档,因此自己抽空简 ...
word文档纯字数统计_如何在您的Word文档中插入字数统计
word文档纯字数统计 Word tracks certain summary information about documents, such as the number of words in ...
如何美观的把SPSS统计结果复制粘贴到Word文档中？
我们用SPSS做统计分析后,通常会摘取一部分结果放入Word文档中,比如你写科研论文,会把方差分析表.误差条形图这些结果粘贴到Word文档中进行统一编辑. 文字.表格.图形的组合,这是Word基本操作 ...
python用字典统计单词出现次数_python - 如何使用字典理解来计算文档中每个单词的出现次数...
我有一个用python编写的列表,其中充满了文本.就像每个文档中的固定单词.所以对于每个文档,我都有一个列表,然后在列表中列出所有文档. 所有列表只包含唯一的单词.我的目的是计算完整文档中每个单词的出 ...
Python批量修改Word文档中特定关键字的颜色
关于Word文件的大致结构请参考使用Python写入docx文件并控制字体颜色代码功能:读取docx文档中的文字,在尽量不影响原来字体样式的情况下,只把特定的文字都修改为红色. 表格中的文字请参考P ...
Python提取Word文档中所有超链接地址和文本
使用Python扩展库python-docx操作Word文档的相关文章,可以阅读: Python批量导入图片到Word文件 Python查找Word文件中红色和加粗的文字(附元宵节送书活动中奖名单) ...

如何统计钣金文档中向上和向下折弯的个数

如何统计钣金文档中向上和向下折弯的个数相关推荐

最新文章

热门文章