CATIA Automation 编程绘制样条曲线

最新推荐文章于 2024-05-28 09:31:18 发布

fox000002

最新推荐文章于 2024-05-28 09:31:18 发布

阅读量5.4k

点赞数

分类专栏： 3D Modeling C/C++ Script 文章标签：编程 constraints reference vb null

本文链接：https://blog.csdn.net/huys03/article/details/7422368

版权

本文介绍了如何通过CATIA Automation编程来绘制样条曲线。作者使用VC进行了尝试，通过录制宏获取基本流程，并尝试使用InsertControlPointAfter方法来插入控制点，但遇到了SAFEARRAY *参数传递的问题，尚未解决。

摘要由CSDN通过智能技术生成

之前用 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