概要 - 線分を作成する(VBA/ActiveX)

線分は、AutoCAD の中で最も基本的なオブジェクトです。単線、円弧を伴う、あるいは伴わない多重線セグメントなど、各種の線分を作成できます。

一般に線分は、座標点を指定して作図されます。既定の線種は、連続線を表す Continuous ですが、点やダッシュを使用するさまざまな線種を使用できます。

線分を作成するには、次のいずれかのメソッドを使用します。

AddLine

2 点間を通過する線分を作成します。

AddLightweightPolyline

頂点リストから簡単なポリラインを作成します。

AddMLine

マルチラインを作成します。

AddPolyline

2D または 3D ポリラインを作成します。

標準的な線分とマルチラインは、ワールド座標系(WCS)の XY 平面上に作成されます。ポリラインと最適化ポリラインはオブジェクト座標系(OCS)で作成されます。

ポリライン オブジェクトを作成する

次の例は、AddLightweightPolyline メソッドを使って、2D 座標(2,4)、(4,2)、および(6,4)を使用する単純な 2 セグメント ポリラインを作成します。

Sub Ch4_AddLightWeightPolyline()
  Dim plineObj As AcadLWPolyline
  Dim points(0 To 5) As Double

  ' Define the 2D polyline points
  points(0) = 2: points(1) = 4
  points(2) = 4: points(3) = 2
  points(4) = 6: points(5) = 4

  ' Create a light weight Polyline object in model space
  Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
  ThisDrawing.Application.ZoomAll
End Sub