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

ActiveX 开发指南

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

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

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

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

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

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

阿达克: 在给定中心、半径、起点和终点角度的情况下创建一个圆弧。
添加圈: 在给定中心点和半径的情况下创建一个圆。
添加椭圆: 在给定中心点、长轴上的点和半径比的情况下创建一个椭圆。
添加样条: 创建二次曲线或三次 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