转换面（Face)为平面草图（PlanarSketch）

原文地址：

http://adndevblog.typepad.com/manufacturing/2015/10/face-to-planarsketch.html

有时我们可能需要得到某个面Face的一些物理属性，例如转动惯量，这些由RegionProperties提供，但这个属性是Profile对象特有的。通过代码，可以由Face转换成一个 平面草图（PlanarSketch），通过草图的Profile拿到RegionProperties。

例如，假设有个矩形面，以下代码先通过该Face创建草图，接着把Face上的边一一投影到草图，形成Profile，最后拿到Profile的RegionProperties。

Sub SketchFromFace()
    ' Before running this code, select the face
    ' you want to create a sketch from
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oFace As Face
    Set oFace = oDoc.SelectSet(1)
    
    Dim oDef As PartComponentDefinition
    Set oDef = oDoc.ComponentDefinition
    
    Dim oSketch As PlanarSketch
    Set oSketch = oDef.Sketches.Add(oFace)
    
    Dim oEdge As Edge
    For Each oEdge In oFace.Edges
        Call oSketch.AddByProjectingEntity(oEdge)
    Next
        
    Dim oProfile As Profile
    Set oProfile = oSketch.Profiles.AddForSolid()
    
    Debug.Print "Area = " + Str(oProfile.RegionProperties.Area)
End Sub