CATIA VBA：穿孔功能模块

以下为CATIA VBA打孔代码片段的改写：

在这个示例中，最终用户被要求选择一个面和一个直线边，并创建一个孔。直线边指定了孔的方向，它可以是RectilinearTriDimFeatEdge、RectilinearBiDimFeatEdge或RectilinearMonoDimFeatEdge中的任意一种。

代码如下：

```

Dim EnabledObjectSelection1(0)

Dim EnabledObjectSelection2(2)

Set Document = CATIA.ActiveDocument

Set Selection = Document.Selection

EnabledObjectSelection1(0)="Face"

Status=Selection.SelectElement2(EnabledObjectSelection1,"请选择一个面",true)

if (Status = "cancel") then Exit Sub

Set Face = Selection.Item(1).Value

Selection.Clear

EnabledObjectSelection2(0)="RectilinearTriDimFeatEdge"

EnabledObjectSelection2(1)="RectilinearBiDimFeatEdge"

EnabledObjectSelection2(2)="RectilinearMonoDimFeatEdge"

Status=Selection.SelectElement2(EnabledObjectSelection2,"选择孔的方向",true)

if (Status = "cancel") then Exit Sub

Set Hole = ShapeFactory.AddNewHoleFromPoint(20.0,-5.5, 1.07,Face,10.0)

Hole.ThreadingMode = 1

Hole.ThreadSide = 0

Hole.SetDirection Selection.Item(1).Value

Document.Part.Update

```

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