基于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