嘿，刚好你已经有了绘制闭合轻量多段线的代码，要获取它的形心坐标其实很简单，AutoCAD的VBA对象模型为AcadLWPolyline（轻量多段线）提供了专门的方法来提取形心。

核心思路 #

对于闭合的2D轻量多段线，我们可以使用GetCentroid方法来提取形心的X、Y坐标。这个方法会将形心坐标存储到一个双精度数组中，直接读取数组元素就能得到对应的坐标值。

修改后的完整代码 #

我已经把获取形心的逻辑整合到你的现有代码里了，你可以直接使用：

Sub Drawline()
    Dim point(0 To 7) As Double
    Dim myapp As Object
    Dim AcadDwg As AcadDocument
    Dim B As Double
    Dim line As AcadLWPolyline
    Dim centroid(0 To 1) As Double ' 存储形心的X、Y坐标

    On Error GoTo ERRORHANDLER
    Set myapp = GetObject(, "autocad.application")
ERRORHANDLER:
    If Err.Description <> "" Then
        Err.Clear
        Set myapp = CreateObject("Autocad.Application")
    End If
    myapp.Visible = True
    Set AcadDwg = myapp.ActiveDocument

    ' 定义多段线顶点坐标（闭合）
    point(0) = 0: point(1) = 0
    point(2) = 1: point(3) = 1
    point(4) = 2: point(5) = 0
    point(6) = 0: point(7) = 0
    Set line = AcadDwg.ModelSpace.AddLightWeightPolyline(point)

    ' 设置多段线属性
    Dim t As AcadLayer
    Set t = AcadDwg.Layers.Add("pline")
    line.ConstantWidth = 0.1

    ' 获取多段线面积
    B = line.Area
    MsgBox "多段线面积：" & B

    ' 获取形心坐标
    line.GetCentroid centroid
    MsgBox "形心X坐标：" & centroid(0) & vbCrLf & "形心Y坐标：" & centroid(1)
End Sub

关键代码解释 #

• Dim centroid(0 To 1) As Double：声明一个长度为2的双精度数组，用来存储形心的X（索引0）和Y（索引1）坐标。
• line.GetCentroid centroid：调用多段线的GetCentroid方法，将形心坐标写入centroid数组中。
• 最后用MsgBox展示坐标，你也可以把这些坐标赋值给变量，用于后续的绘图或计算操作。

注意事项 #

• 这个方法仅适用于闭合的多段线，如果你的多段线是开放的，GetCentroid会返回错误，所以要确保多段线首尾顶点重合（就像你代码里做的那样）。
• 如果你使用的是普通多段线（AcadPolyline），逻辑完全一致，同样可以用GetCentroid方法获取形心。

内容的提问来源于stack exchange，提问作者Roushdy