VISIO VB 获取 geometry

在Microsoft Visio中，VB (Visual Basic for Applications) 是一种脚本语言，可以用于自动化和扩展Visio的功能。如果你想要获取某个形状（Shape）的几何信息，如位置、大小或边框等，你可以通过访问其Geometry属性来实现。

例如，假设你有一个名为"shape1"的形状，你可以使用下面的VB代码：

Dim shape As Shape
Set shape = ThisDrawing.Pages("页1").Shapes("形状名称") '替换"页1"和"形状名称"为实际页名和形状ID

Dim geometryInfo As Object '声明将存储几何信息的对象
geometryInfo = shape.Geometry '获取形状的几何对象

'现在你可以访问其中的具体属性，比如矩形的宽度和高度：
Dim width As Double
width = geometryInfo.Width

Dim height As Double
height = geometryInfo.Height

在这个例子中，`Width` 和 `Height` 就是你可以从`geometryInfo`中得到的几何属性。

相关问题

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` 对象包含了关于连接线路径的几何数据，你可以从中提取所需的长度、弯曲点等信息。