编辑多段线

AutoCAD ActiveX/VBA

 
编辑多段线
 
 
 

二维和三维多段线、矩形、多边形和三维多边形网格都是多段线的变化形式而且编辑方式都相同。

AutoCAD 可以识别拟合多段线和样条曲线拟合多段线。样条曲线拟合多段线使用曲线进行拟合,类似于 B 样条曲线。有两种样条曲线拟合多段线:二次和三次。这两种多段线均由 SPLINETYPE 系统变量控制。拟合多段线使用标准曲线来进行曲线拟合,并利用所有在给定顶点上设置的切线方向。

要编辑多段线,请使用 LightweightPolyline 或 Polyline 对象的特性和方法。请使用以下特性和方法开放或闭合多段线、修改多段线顶点的坐标或添加顶点:

Closed 特性

开放或闭合多段线。

Coordinates 特性

指定多段线中每个顶点的坐标值。

AddVertex 方法

向优化多段线添加顶点。

使用以下方法来更新多段线的凸度或宽度:

SetBulge

设置多段线的凸度(给定线段索引)。

SetWidth

设置多段线的起始宽度和终止宽度(给定线段索引)。

有关编辑多段线的详细信息,请参见《用户手册》中的“修改或合并多段线”。

编辑多段线

本例创建一条优化多段线,然后向多段线的第三段添加凸度,向多段线附加顶点,修改最后一段的宽度,最后闭合多段线。

Sub Ch4_EditPolyline()
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
      
    ' 定义二维多段线的点
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
      
    ' 创建优化多段线对象
    Set plineObj = ThisDrawing.ModelSpace. _
                   AddLightWeightPolyline(points)
      
    ' 向线段 3 添加凸度
    plineObj.SetBulge 3, -0.5
      
    ' 定义新的顶点
    Dim newVertex(0 To 1) As Double
    newVertex(0) = 4: newVertex(1) = 1
      
    ' 向多段线添加顶点
    plineObj.AddVertex 5, newVertex
      
    ' 设置新线段的宽度
    plineObj.SetWidth 4, 0.1, 0.5
      
    ' 闭合多段线
    plineObj.Closed = True
    plineObj.Update
End Sub