概要 - オブジェクトを延長、トリムする(VBA/ActiveX)

円弧の角度を変更したり、開いた線分、円弧、開いたポリライン、楕円弧、および開いたスプラインの長さを変更できます。結果は、オブジェクトの延長やトリムに似ています。

プロパティを編集することにより、オブジェクトを延長またはトリムできます。たとえば線分を延長するには、StartPoint または EndPoint プロパティの座標を変更します。円弧の角度を変更するには、円弧の StartAngle または EndAngle プロパティを変更します。オブジェクトの 1 つまたは複数のプロパティを変更したら、Update メソッドを使用して図面上で変更を確認できます。

線分の長さを変更する

次の例は、線分を作成してからその終点を変更し、より長い線分にします。

Sub Ch4_LengthenLine()
  ' Define and create the line
  Dim lineObj As AcadLine
  Dim startPoint(0 To 2) As Double
  Dim endPoint(0 To 2)  As Double
  startPoint(0) = 0
  startPoint(1) = 0
  startPoint(2) = 0
  endPoint(0) = 1
  endPoint(1) = 1
  endPoint(2) = 1
  Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
  lineObj.Update

  ' Lengthen the line by changing the
  ' endpoint to 4, 4, 4
  endPoint(0) = 4
  endPoint(1) = 4
  endPoint(2) = 4
  lineObj.endPoint = endPoint
  lineObj.Update
End Sub