CATIA Automation 编程绘制样条曲线

之前用 VC 编写了画圆的简单例子，今天试了一下绘制样条曲线的功能。

还是按照 Automation 的基本流程：

1 录制宏命令

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("PartBody")

Set sketches1 = body1.Sketches

Set sketch1 = sketches1.Item("Sketch.1")

Set factory2D1 = sketch1.OpenEdition()

Set controlPoint2D1 = factory2D1.CreateControlPoint(120.000000, -30.000000)

controlPoint2D1.ReportName = 5

Set controlPoint2D2 = factory2D1.CreateControlPoint(140.000000, -20.000000)

controlPoint2D2.ReportName = 6

Set controlPoint2D3 = factory2D1.CreateControlPoint(170.000000, 30.000000)

controlPoint2D3.ReportName = 7

Set controlPoint2D4 = factory2D1.C