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

最新推荐文章于 2023-01-16 16:44:43 发布

autodeskinventorapi

最新推荐文章于 2023-01-16 16:44:43 发布

阅读量2.1k

点赞数

分类专栏： Inventor

本文链接：https://blog.csdn.net/autodeskinventorapi/article/details/74789674

版权

Inventor 专栏收录该内容

13 篇文章 6 订阅

订阅专栏

有个朋友写信问我，如何投影原点到草图，并将草图图元约束到该投影点，我做了点测试，代码应该如下，但不知为何 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