Inventor API:投影原点到草图，并将草图图元约束到该投影点

最新推荐文章于 2024-05-11 16:18:06 发布

原创最新推荐文章于 2024-05-11 16:18:06 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

Inventor 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一种在编程环境下将原点投影到草图的方法，并通过代码示例展示了如何将草图元素约束到该投影点。尽管示例中使用了AddByProjectingEntity方法来尝试投影原点，但在实际操作中遇到了一些问题。

有个朋友写信问我，如何投影原点到草图，并将草图图元约束到该投影点，我做了点测试，代码应该如下，但不知为何 AddByProjectingEntity 无法投影原点。我将继续查看此问题，有消息将更新此文章。

Sub projectOrginAndConstraint()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument    
    Dim oPartDef As PartComponentDefinition
    Set oPartDef = oPartDoc.ComponentDefinition    
    Dim oSketch As PlanarSketch
    Set oSketch = ThisApplication.ActiveEditObject    
    Dim oCenterPt As WorkPoint
    Set oCenterPt = oPartDef.WorkPoints("Center Point")       
    Dim oCircle As SketchCircle
    Set oCircle = oSketch.SketchCircles(1)    
    Dim oProjectionOrigin As SketchPoint
    Set oProjectionOrigin = oSketch.AddByProjectingEntity(oCenterPt)      
    Call oSketch.GeometricConstraints.AddCoincident(oProjectionOrigin, oCircle.CenterSketchPoint)
End Sub