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

構築線は 3D 空間のどこにでも配置でき、両方向に無限に延長できます。

構築線を作成するには、AddXline メソッドを使用します。このメソッドは、2 点を入力または選択して方向を定義する、2 点メソッドによって線分を指定します。基点である最初の点は、構築線の中点とみなされます。

構築線を追加する

次のコード例は、2 つの点(5、0、0) と (1、1、0)を使用して XLine オブジェクトを作成します。

Sub Ch3_AddXLine()
  Dim xlineObj As AcadXline
  Dim basePoint(0 To 2) As Double
  Dim directionVec(0 To 2) As Double

  ' Define the xline
  basePoint(0) = 2#: basePoint(1) = 2#: basePoint(2) = 0#
  directionVec(0) = 1#: directionVec(1) = 1#: directionVec(2) = 0#

  ' Create the xline in model space
  Set xlineObj = ThisDrawing.ModelSpace.AddXLine(basePoint, directionVec)
  ThisDrawing.Application.ZoomAll
End Sub