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

ActiveX 开发指南

关于创建曲线对象（VBA/ActiveX）

2023-1-5 01:50| 发布者: admin| 查看: 894| 评论: 0|来自: AutoCAD

摘要: 您可以使用 AutoCAD 创建各种曲线对象，包括样条曲线、圆、圆弧和椭圆。

您可以使用 AutoCAD 创建各种曲线对象，包括样条曲线、圆形、圆弧和椭圆。

所有曲线都是在当前 WCS 的 XY 平面上创建的。

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

添加弧: 在给定中心角、半径角、起始角和终点角的情况下创建圆弧。
添加圈: 在给定中心点和半径的情况下创建一个圆。
AddEllipse （添加椭圆）: 在给定中心点、主轴上的点和半径比的情况下创建椭圆。
添加样条曲线: 创建二次或三次 NURBS（非均匀有理 B 样条）曲线。

创建样条对象

此示例使用三个点（0， 0， 0）、（5， 5， 0）和（10， 0， 0）在模型空间中创建样条曲线。样条的起点和终点切线为（0.5， 0.5， 0.0）。

Sub Ch4_CreateSpline()
  ' This example creates a spline object in model space.
  ' Declare the variables needed
  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

  ' Define the variables
  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

  ' Create the spline
  Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
  ZoomAll
End Sub