vba - 如何使用 API 在 SolidWorks 中获取对象的坐标数据

Question

我想知道如何通过使用 VBA 的 API 访问 SolidWorks 特征树中不同对象的坐标。我个人的问题是找到正确的语句来提取根据所选对象而变化的位置数据。我的对象是通过它们自己的坐标系和原点来描述的。

提前致谢

Answer 1

对于组件，您可以使用 .Transform2 属性(property)。这将返回一个 MathTransform 对象，其中包含组件的变换矩阵数据。您可以使用 访问 MathTransform 对象的数据。 .ArrayData 属性(property)。这将返回 16 个 double 数组。前 9 个元素定义了 3x3 旋转矩阵，接下来的 3 个元素定义了平移组件(组件的 xyz 原点)。在 API 帮助中，您可以找到详细信息。

在 API 帮助中是如何获取装配组件转换的示例:http://help.solidworks.com/2019/English/api/sldworksapi/Get_Transforms_of_Assembly_Components_Example_VB.htm

My objects are described through their own coordinate system and an origin point

如果您使用引用几何“坐标系”作为自定义原点，您可以通过 访问 MathTransform .转换其 坐标系统特征数据 目的。

要获得 CoordinateSystemFeatureData 对象，您必须首先获得 专题 您坐标系的对象 - 然后调用 .GetDefinition

例子:

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("FEATURE NAME OF COORDINATE SYSTEM", "COORDSYS", 0, 0, 0, False, 0, Nothing, 0)

Dim swSelMgr As SelectionMgr
Set swSelMgr = Part.SelectionManager

Dim swFeat As Feature
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)

Dim swFeatData As CoordinateSystemFeatureData
Set swFeatData = swFeat.GetDefinition

End Sub