ポリラインを編集する(.NET)

2D および 3D ポリライン、長方形、ポリゴン、ドーナツ、3D ポリゴン メッシュは、すべてポリラインの一種で、同じ方法で編集できます。

AutoCAD は、フィット ポリラインとスプライン フィット ポリラインのどちらも認識します。スプライン フィット ポリラインは、B-スプラインに似たカーブ フィットを使用します。スプライン フィット ポリラインには、 2 次と 3 次の 2 種類があります。どちらのポリラインも、システム変数 SPLINETYPE によりコントロールできます。フィット ポリラインは、カーブ フィットの標準曲線を使用するとともに、指定したすべての頂点の接線方向のセットを利用します。

ポリラインを編集するには、Polyline、Polyline2d、または Polyline3d オブジェクトのプロパティとメソッドを使用します。次に示すプロパティを使用すると、ポリラインを開いたり閉じたり、ポリライン頂点の座標を変更したり頂点を追加できます。

Closed プロパティ

ポリラインを開いたり閉じます。

ConstantWidth プロパティ

ライトウェイト ポリラインと 2D ポリラインに一定の幅を設定します。

AppendVertex メソッド

2D または 3D ポリラインに頂点を追加します。

AddVertexAt メソッド

ライトウェイト ポリラインに頂点を追加します。

ReverseCurve

ポリラインの方向を反転します。

次のメソッドを使用すると、ポリラインのふくらみ、または幅を更新できます。

SetBulgeAt

セグメント インデックスを指定してライトウェイト ポリラインのふくらみ値を設定します。

SetStartWidthAt

セグメント インデックスを指定してライトウェイト ポリラインの開始幅を設定します。

Straighten

2D または 3D ポリラインを直線化します。

ポリラインを編集する

次の例は、ライトウェイト ポリラインを作成します。次に、ポリラインの 3 番目のセグメントにふくらみを追加し、ポリラインに頂点を追加し、最後のセグメントの幅を変更してポリラインを閉じます。

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
 
<CommandMethod("EditPolyline")> _
Public Sub EditPolyline()
    '' Get the current document and database
    Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    Dim acCurDb As Database = acDoc.Database

    '' Start a transaction
    Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

        '' Open the Block table for read
        Dim acBlkTbl As BlockTable
        acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                     OpenMode.ForRead)

        '' Open the Block table record Model space for write
        Dim acBlkTblRec As BlockTableRecord
        acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                        OpenMode.ForWrite)

        '' Create a lightweight polyline
        Using acPoly As Polyline = New Polyline()
            acPoly.AddVertexAt(0, New Point2d(1, 1), 0, 0, 0)
            acPoly.AddVertexAt(1, New Point2d(1, 2), 0, 0, 0)
            acPoly.AddVertexAt(2, New Point2d(2, 2), 0, 0, 0)
            acPoly.AddVertexAt(3, New Point2d(3, 2), 0, 0, 0)
            acPoly.AddVertexAt(4, New Point2d(4, 4), 0, 0, 0)

            '' Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acPoly)
            acTrans.AddNewlyCreatedDBObject(acPoly, True)

            '' Sets the bulge at index 3
            acPoly.SetBulgeAt(3, -0.5)

            '' Add a new vertex
            acPoly.AddVertexAt(5, New Point2d(4, 1), 0, 0, 0)

            '' Sets the start and end width at index 4
            acPoly.SetStartWidthAt(4, 0.1)
            acPoly.SetEndWidthAt(4, 0.5)

            '' Close the polyline
            acPoly.Closed = True
        End Using

        '' Save the new objects to the database
        acTrans.Commit()
    End Using
End Sub

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
 
[CommandMethod("EditPolyline")]
public static void EditPolyline()
{
    // Get the current document and database
    Document acDoc = Application.DocumentManager.MdiActiveDocument;
    Database acCurDb = acDoc.Database;

    // Start a transaction
    using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
    {
        // Open the Block table for read
        BlockTable acBlkTbl;
        acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
                                        OpenMode.ForRead) as BlockTable;

        // Open the Block table record Model space for write
        BlockTableRecord acBlkTblRec;
        acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                        OpenMode.ForWrite) as BlockTableRecord;

        // Create a lightweight polyline
        using (Polyline acPoly = new Polyline())
        {
            acPoly.AddVertexAt(0, new Point2d(1, 1), 0, 0, 0);
            acPoly.AddVertexAt(1, new Point2d(1, 2), 0, 0, 0);
            acPoly.AddVertexAt(2, new Point2d(2, 2), 0, 0, 0);
            acPoly.AddVertexAt(3, new Point2d(3, 2), 0, 0, 0);
            acPoly.AddVertexAt(4, new Point2d(4, 4), 0, 0, 0);

            // Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acPoly);
            acTrans.AddNewlyCreatedDBObject(acPoly, true);

            // Sets the bulge at index 3
            acPoly.SetBulgeAt(3, -0.5);

            // Add a new vertex
            acPoly.AddVertexAt(5, new Point2d(4, 1), 0, 0, 0);

            // Sets the start and end width at index 4
            acPoly.SetStartWidthAt(4, 0.1);
            acPoly.SetEndWidthAt(4, 0.5);

            // Close the polyline
            acPoly.Closed = true;
        }

        // Save the new objects to the database
        acTrans.Commit();
    }
}

VBA/ActiveX コード リファレンス

Sub EditPolyline()
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
 
    ' Define the 2D polyline points
    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
 
    ' Create a light weight Polyline object
    Set plineObj = ThisDrawing.ModelSpace. _
                                 AddLightWeightPolyline(points)
 
    ' Add a bulge to segment 3
    plineObj.SetBulge 3, -0.5
 
    ' Define the new vertex
    Dim newVertex(0 To 1) As Double
    newVertex(0) = 4: newVertex(1) = 1
 
    ' Add the vertex to the polyline
    plineObj.AddVertex 5, newVertex
 
    ' Set the width of the new segment
    plineObj.SetWidth 4, 0.1, 0.5
 
    ' Close the polyline
    plineObj.Closed = True
    plineObj.Update
End Sub