创建曲线对象

From AutoCAD ActiveX/VBA

previous page next page

创建直线

创建对象

创建 Point 对象

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 创建对象 >

创建曲线对象

用户可以使用 AutoCAD 创建各种曲线对象，包括样条曲线、圆、圆弧和椭圆。所有的曲线都在当前 WCS 的 XY 平面上创建。

要创建曲线，请使用以下方法之一：

AddArc: 给定圆心、半径、起点角度和端点角度来创建圆弧。
AddCircle: 给定中心点和半径来创建圆。
AddEllipse: 给定中心点、长轴上的一点和半径比例来创建椭圆。
AddSpline: 创建二次或三次 NURBS（非一致有理 B 样条曲线）曲线。

创建 Spline 对象

本例使用三点 (0,0,0)、(5,5,0) 和 (10,0,0) 在模型空间中创建样条曲线。该样条曲线的起点切向和端点切向为 (0.5,0.5,0.0)。

Sub Ch4_CreateSpline()

    ' 本例在模型空间中创建样条曲线对象。

    ' 声明所需的变量

    Dim splineObj As AcadSpline

    Dim startTan(0 To 2) As Double

    Dim endTan(0 To 2) As Double

    Dim fitPoints(0 To 8) As Double

          ' 定义变量
          startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
          endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
          fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0
          fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
          fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
                ' 创建样条曲线
          Set splineObj = ThisDrawing.ModelSpace.AddSpline _
                              (fitPoints, startTan, endTan)
          ZoomAll
      End Sub

有关样条曲线的详细信息，请参见 AutoCAD《ActiveX and VBA Reference》中的 Spline 对象和 AddSpline 方法的文档。

previous page start next page