概要 - 塗り潰し領域を作成する(VBA/ActiveX)

ある色で塗り潰した三角形および四辺形領域を作成できます。

結果をすぐに表示するには、AutoCAD のシステム変数 FILLMODE をオフにし、その後 FILLMODE を再びオンにして、完成した領域を塗り潰します。

四辺形塗り潰し領域を作成する場合、第 3 の点と第 4 の点のシーケンスがその形状を決定します。次の図を比較してください。

最初の 2 点は、多角形の 1 辺を定義します。第 3 の点は、第 2 の点の対角線上の向かい合った点として定義されます。第 4 の点が第 3 の点と等しく設定されると、塗り潰し三角形が作成されます。

塗り潰し領域を作成するには、AddSolid メソッドを使用します。

塗り潰しオブジェクトを作成する

次のサンプル コードは、座標 (0, 0, 0)、(5, 0, 0)、(5, 8, 0)、(0, 8, 0)) を使って、モデル空間に四辺形ソリッドを作成します。

Sub Ch4_CreateSolid()
  Dim solidObj As AcadSolid
  Dim point1(0 To 2) As Double
  Dim point2(0 To 2) As Double
  Dim point3(0 To 2) As Double
  Dim point4(0 To 2) As Double

  ' Define the solid
  point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
  point2(0) = 5#: point2(1) = 0#: point2(2) = 0#
  point3(0) = 5#: point3(1) = 8#: point3(2) = 0#
  point4(0) = 0#: point4(1) = 8#: point4(2) = 0#

  ' Create the solid object in model space
  Set solidObj = ThisDrawing.ModelSpace.AddSolid(point1, point2, point3, point4)
  ZoomAll
End Sub