如何获取与用户选择的面关联的零件中的螺纹在装配图中的坐标等信息？

萧闫子 · 发表于 2014-1-14 10:15:11

问题如标题所示。本来可以通过CreateGeometryProxy来创建特征的代理对象，进而获取该代理对象上的螺纹在装配图中的坐标，但是在Inventor 2012（或者之前的版本）中，得到的代理对象的坐标竟然是零件图里的坐标，所以必须想出了一个补救办法。我想到的办法是将零件图里的坐标转换成装配图里的坐标，也许有人早已经想到过这个办法。下面的VBA例子代码仅供参考：

Sub test0()
' Assuming the user selected a face in assembly
Dim fproxy As faceProxy
Set fproxy = ThisApplication.ActiveDocument.SelectSet.Item(1)
Dim cocc As ComponentOccurrence
Set cocc = fproxy.ContainingOccurrence
Dim pc As PartComponentDefinition
Set pc = cocc.Definition
Dim OccToAssMatric As Matrix
Set OccToAssMatric = cocc.Transformation
Dim oBasePoint As Point
Dim assDef As AssemblyComponentDefinition
Set assDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim threadFt As Object
If pc.Features.ThreadFeatures.Count > 0 Then For Each threadFt In pc.Features.ThreadFeatures
getinfoforthread threadFt.ThreadInfo, OccToAssMatric, assDef
Next
End If
If pc.Features.HoleFeatures.Count > 0 Then For Each threadFt In pc.Features.HoleFeatures
If threadFt.Tapped = True Then
getinfoforthread threadFt.TapInfo, OccToAssMatric, assDef
End If
Next
End If
If pc.Features.RectangularPatternFeatures.Count > 0 Then
Dim rf As RectangularPatternFeature
For Each rf In pc.Features.RectangularPatternFeatures
For Each threadFt In rf.ParentFeatures
If threadFt.Type = kHoleFeatureObject Then
If threadFt.Tapped = True Then
getinfoforthread threadFt.TapInfo, OccToAssMatric, assDef
End If
End If
Next
Next
End If
End SubSub getinfoforthread(tf As Object, OccToAssMatric As Matrix, assDef As AssemblyComponentDefinition)
Dim oBasePoint As Point
For Each oBasePoint In tf.ThreadBasePoints
Debug.Print CStr(oBasePoint.x) + "," + CStr(oBasePoint.y) + "," + CStr(oBasePoint.Z)
oBasePoint.TransformBy OccToAssMatric
Debug.Print CStr(oBasePoint.x) + "," + CStr(oBasePoint.y) + "," + CStr(oBasePoint.Z)
Call assDef.WorkPoints.AddFixed(oBasePoint)
Next
Dim dir As Vector
Set dir = tf.ThreadDirection
Debug.Print CStr(dir.x) + "," + CStr(dir.y) + "," + CStr(dir.Z)
dir.TransformBy OccToAssMatric
Debug.Print CStr(dir.x) + "," + CStr(dir.y) + "," + CStr(dir.Z)
End Sub

复制代码

文章来源：http://blog.csdn.net/barbarahan

萧闫子 · 发表于 2018-11-21 15:51:29

Invertor二次开发

中华！ · 发表于 2014-5-27 11:14:33

路过！！！
不发表意见……

EaBIM门户编辑 · 发表于 2017-3-24 09:43:39

活到老学到老

萧闫子 · 发表于 2020-3-27 15:22:20

萧闫子 · 发表于 2018-1-26 16:13:31

....

萧闫子 · 发表于 2018-1-16 15:26:45

.....

EaBIM门户编辑 · 发表于 2017-6-14 11:45:39

很好的呢

EaBIM门户编辑 · 发表于 2017-3-8 10:13:32

很赞

EaBIM门户编辑 · 发表于 2017-2-20 15:17:16

很好

EaBIM门户编辑 · 发表于 2017-2-13 09:29:07

不错

EaBIM门户编辑 · 发表于 2017-1-5 15:38:26

很好

EaBIM门户编辑 · 发表于 2016-11-4 09:27:55

不错

EaBIM门户编辑 · 发表于 2016-10-25 09:27:02

很不错

EaBIM门户编辑 · 发表于 2016-9-5 09:50:00

很好

EaBIM门户编辑 · 发表于 2016-8-29 10:24:27

好样的

帐号		自动登录	找回密码
密码			注册

如何获取与用户选择的面关联的零件中的螺纹在装配图中的坐标等信息？

相关帖子

浏览过的版块

社区QQ达人