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

最新推荐文章于 2024-09-11 08:09:34 发布

翻译最新推荐文章于 2024-09-11 08:09:34 发布 · 1.4k 阅读

零件专栏收录该内容

39 篇文章

订阅专栏

本文介绍了一种方法，即如何从三维模型中的一个矩形面（Face）创建一个平面草图（PlanarSketch），并进一步获取该草图的物理属性如面积等。通过VBA代码实现将选定的Face转换为草图，并将其边界投影到草图中，最后通过Profile对象调用RegionProperties方法获得所需属性。

原文地址：

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

Face2sketch