用户可以更改圆弧的角度，也可以改变开放直线、圆弧、开放多段线、椭圆弧和开放样条曲线的长度。结果类似于延伸和修剪对象。
用户可以通过编辑对象的特性来延伸或修剪对象。例如，要拉长直线，只需修改 StartPoint 或 EndPoint 特性的坐标即可。要改变圆弧的角度，请更改圆弧的 StartAngle 或 EndAngle 特性。改变对象的一个和多个特性后，请使用 Update 方法查看图形中的变化。
有关延伸和修剪对象的详细信息，请参见《用户手册》中的“调整对象的大小和形状”。
Sub Ch4_LengthenLine()
' 定义和创建直线
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
' 将端点更改为 4,4,4
' 拉长直线
endPoint(0) = 4
endPoint(1) = 4
endPoint(2) = 4
lineObj.endPoint = endPoint
lineObj.Update
End Sub