SOLIDWORKS VBA 如何获取当前X selection location 并打印

在SOLIDWORKS VBA (Visual Basic for Applications) 中，获取当前选中的几何体位置并打印其实现过程依赖于SolidWorks API提供的函数。假设你正在操作的是零件模型，你可以尝试使用`PartDocument`对象和`SelectObject`函数。以下是基本步骤：

Sub GetAndPrintSelectionLocation()
    '声明变量
    Dim doc As SolidWorksDoc
    Dim selObj As SelectObject
    Dim loc As Point3d
    
    '获取活动文档对象
    Set doc = ThisComponent.Document
    '检查是否有选定的对象
    If doc.SelectedItems.Count > 0 Then
        '获取选中的第一个对象
        Set selObj = doc.SelectedItems(1)
        
        '如果对象支持位置访问，获取其位置信息
        If selObj.HasProperty("Position") Then
            '创建一个Point3d对象存储位置
            loc = selObj.Position
            
            '打印位置信息，例如XYZ坐标
            Debug.Print "Selected object's location: X=" & loc.X & ", Y=" & loc.Y & ", Z=" & loc.Z
        Else
            MsgBox "Selected object does not support position property."
        End If
    Else
        MsgBox "No objects are selected."
    End If
End Sub

在这个VBA过程中，你需要确保已经引用了正确的SolidWorks API库，并且有权限访问选中的对象的位置属性。