inventor二次开发-课程6-进入三维的世界

| 返回总目录 | 前一课 | 后一课() |

1.特征面板中英文对照关系

2.对象的层次关系

3.ExtrudeFeatures - 拉伸特征

(1)Profiles -轮廓

在拉伸特征之前，需要选择轮廓，所有需要先定义轮廓对象。

Profiles有如下两个方法

Name	Description
AddForSolid	创建实体对象
AddForSurface	创建曲面对象

调用：Profiles.AddForSolid

(2)ExtrudeFeatures-拉伸的操作

Name	Description
Add	创建一个新的拉伸特征
AddByDistanceExtent	距离
AddByFromToExtent	从到
AddByThroughAllExtent	Use F1 key to display help topic.
AddByToExtent	延伸
AddByToFaceExtent	到平面
AddByToNextExtent	到下一个面
CreateExtrudeDefinition	创建一个拉伸定义的对象

调用情况：（选择CreateExtrudeDefinition）

ExtrudeFeatures.CreateExtrudeDefinition( *Profile* As Profile, *Operation* As PartFeatureOperationEnum ) As ExtrudeDefinition

Profile是上面的轮廓对象

Operation是操作方式：

Name	Value	Description
kCutOperation	20482	求差集
kIntersectOperation	20483
kJoinOperation	20481	求并集
kNewBodyOperation	20485	新建实体
kSurfaceOperation	20484	曲面

(3)ExtrudeDefinition 拉伸对象

Name	Description
Copy	复制一个拉伸特征
SetDistanceExtent	设置距离
SetDistanceExtentTwo	设置两个面距离
SetFromToExtent	设置从哪到哪
SetThroughAllExtent	设置为贯通
SetToExtent	设置到
SetToNextExtent	设置到下一个面

(4)SetDistanceExtent 设置距离

ExtrudeDefinition.SetDistanceExtent( *Distance* As Variant, *ExtentDirection* As PartFeatureExtentDirectionEnum )

Distance：距离

Extent：拉伸方向

拉伸方向有如下值

Name	Value	Description
kNegativeExtentDirection	20994	负方向
kPositiveExtentDirection	20993	正方向
kSymmetricExtentDirection	20995	对称拉伸

(5)例子

功能：实现的是新建一个特征体。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '定义一个零件对象
        Dim Part As PartDocument
        Part = _invApp.Documents.Add(DocumentTypeEnum.kPartDocumentObject, _invApp.FileManager.GetTemplateFile(DocumentTypeEnum.kPartDocumentObject)， True)
        '定义一个模型树的对象
        Dim PartCD As PartComponentDefinition
        PartCD = Part.ComponentDefinition

        '定义草图对象
        Dim NewSketch As Sketch
        NewSketch = PartCD.Sketches.Add(PartCD.WorkPlanes.Item(3))

        '定义空间几何对象
        oTransGeom = _invApp.TransientGeometry

        '定义测量单位的对象
        Dim oUOM As UnitsOfMeasure
        oUOM = _invApp.ActiveDocument.UnitsOfMeasure
        '设置长度单位为微米
        oUOM.LengthUnits = 11268

        '定义线性图的对象
        Dim SL As SketchLines
        SL = NewSketch.SketchLines

        '新建一个两点矩形，通过中心点
        Dim oRectangle As SketchEntitiesEnumerator
        oRectangle = SL.AddAsTwoPointCenteredRectangle(P(-5, -5), P(-10, -10))

        '新建一个圆
        NewSketch.SketchCircles.AddByCenterRadius(P(0, 0), 3)
        NewSketch.SketchCircles.AddByCenterRadius(P(10, -10), 3)

        '定义一个轮廓对象为实体
        Dim oProfile As Profile
        oProfile = NewSketch.Profiles.AddForSolid

        ' 创建一个拉伸体
        '定义一个拉伸的定义对象
        Dim oExtrudeDef As ExtrudeDefinition
        '设定为一个交集操作
        oExtrudeDef = PartCD.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, 20481)
        '设定拉伸的方式
        oExtrudeDef.SetDistanceExtent(10, 20995)
        '定义一个拉伸特征
        Dim oExtrude As ExtrudeFeature
        oExtrude = PartCD.Features.ExtrudeFeatures.Add(oExtrudeDef)
    End Sub
End Class