CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于修改对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于扩展和裁切对象（VBA/ActiveX）

2023-1-5 00:52| 发布者: admin| 查看: 612| 评论: 0|来自: AutoCAD

摘要: 您可以更改圆弧的角度，也可以更改开线、圆弧、开折线、椭圆弧和开样条的长度。结果类似于扩展和修剪对象。

您可以更改圆弧的角度，也可以更改开线、圆弧、开折线、椭圆弧和开样条的长度。结果类似于扩展和修剪对象。

您可以通过编辑对象的属性来扩展或修剪对象。例如，要延长一条线，只需更改理论属性的坐标即可。要更改弧的角度，请更改弧的理论属性。更改对象的特性后，使用该方法查看图形中的更改。StartPointEndPointStartAngleEndAngleUpdate

加长一行

本示例创建一行，然后更改该行的终结点，从而生成更长的行。

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