基于VB的Catia二次开发（2）：基本绘图教程

Catia绘制基本图形

这里我们使用Function，而不再使用Sub是因为需要返回图形的参考，图形的参考是后续使用该图形的接口。

绘制一个图形的基本步骤如下：

1. 定义图形，格式：Dim shape As HybridShape...
2. 按指定参数赋值给图形，生成图形，格式：shape = Shapes.AddNew...
3. 将图形添加到body中，格式：ABody.AppendHybridShape(shape)
4. 返回图形的参考，格式：FunctionName= APart.CreateReferenceFromObject(shape)

绘制点

' 函数：绘制点
' 函数：绘制点
Public Function DrawPoint(x, y, z)
    ' 绘制点
    Dim shape As HybridShapePointCoord          ' 按坐标定义的点
    shape = Shapes.AddNewPointCoord(x, y, z)    ' 赋值点的坐标
    ABody.AppendHybridShape(shape)              ' 将点添加到body中
    ' 刷新
    APart.InWorkObject = shape
    APart.Update()
    ' 返回点的参考
    DrawPoint = APart.CreateReferenceFromObject(shape)

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删