VISIO VB 获取 动态连接线 geometry 值

在 Microsoft Visio 中，VB (Visual Basic for Applications) 提供了对 Visio 对象模型的访问，包括动态连接线（Dynamic Connector）。动态连接线是 Visio 中用于表示不同形状之间关系的对象。要获取动态连接线的几何值，比如长度、角度等，你需要通过编程操作。

首先，你需要创建一个 `Visio.Document` 对象来代表当前文档，然后使用 `Connectors` 属性获取所有连接器的集合。接着，你可以通过索引来获取特定动态连接线 (`Connector` 类型)：

Dim doc As Object ' 创建 Visio.Document 对象
Set doc = ThisDrawing ' "ThisDrawing" 替换为你实际的图纸引用

Dim connectors As Visio.Connectors
Set connectors = doc_connectors.Connectors

Dim dynamic_connector As Visio.Connector
For Each dynamic_connector In connectors
    If dynamic_connector.Type = visLine Then ' 判断是否为动态直线连接线
        Dim geom As Visio.Geometry ' 获取几何信息
        geom = dynamic_connector.Geometry
        ' 现在你可以访问geom的各种属性，如Length 或 Bendpoints
        Debug.Print "动态连接线长度：" & geom.Length
    Next
End With

在这个例子中，`visLine` 是动态连接线的类型枚举，你可以根据实际情况检查连接线的类型。`Geometry` 对象包含了关于连接线路径的几何数据，你可以从中提取所需的长度、弯曲点等信息。