CATIA VB.net通过选定的面创建chanfer

时间:2017-01-27 12:07:07

标签: vb.net catia

我尝试使用宏中的预选面创建倒角。但我没有太多成功

我的尝试:

之前已选择了脸部。

chamfer2 = shapeFactory1.AddNewChamfer(reference1, catTangencyChamfer, catLengthAngleChamfer, catNoReverseChamfer, 1, 45.0#)
        Dim Num_Faces As Integer = selection1.count
        Dim Faces_ref(Num_Faces)
        For i = 1 To Num_Faces


            Dim MyBRepName = (selection1.Item(i).Value.Name)

            MyBRepName = Replace(MyBRepName, "Selection_", "")
            MyBRepName = Left(MyBRepName, InStrRev(MyBRepName, "));"))
            MyBRepName = MyBRepName + ");WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)"

            MsgBox(MyBRepName)
            reference1 = Part1.CreateReferenceFromName(MyBRepName)

            chamfer1.AddElementToChamfer(reference1)

        Next 

此处出现错误:

chamfer1.AddElementToChamfer(参考值1)

1 个答案:

答案 0 :(得分:0)

尝试从reference1删除括号,如下所示:

chamfer1.AddElementToChamfer reference1