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

问题如标题所示。本来可以通过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 IfEnd Sub

Sub 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

有的旅行是为了拓宽眼界，浏览风景名胜。