获知工程图引线注释的文档

autodeskinventorapi

于 2013-04-08 11:08:33 发布

阅读量1.3k

点赞数

分类专栏：工程图

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

版权

本文介绍如何通过编程获取工程图中引线注释所关联的零件或装配信息。当工程图的曲线变化时，引线的位置和内容随之更新。通过示例代码展示了如何确定引线绑定的几何线。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们知道，工程图里的引线一般会和某个视图几何线绑定，作为对其的注释。当曲线发生变化，引线位置和内容也会联动。那如何得知引线注释的是哪个零件或装配？其实思路就是得到其绑定的几何线。以下是一段小小的代码样例，假定先选中一个引线（API对象是LeaderNote）。

Sub test()

    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    '选取一个引线
    Dim oLeaderNote As LeaderNote
    Set oLeaderNote = oDoc.SelectSet(1)
    
    '获得其Leader中最后一个节点，该节点指向几何线
    Dim oLastNode As LeaderNode
    Set oLastNode = oLeaderNote.Leader.AllNodes(oLeaderNote.Leader.AllNodes.Count)
    
    Dim oGeIntent As GeometryIntent
    Dim oAttachedDrawingCurve As DrawingCurve
    Dim oDrawingView As DrawingView
    Dim oModelG As Object
    
    '查看是否该引线和几何线绑定
    If Not oLastNode.AttachedEntity Is Nothing Then
        
        '得到对应的几何线
        Set oGeIntent = oLastNode.AttachedEntity
        Set oAttachedDrawingCurve = oGeIntent.Geometry
        
        '得到几

最低0.47元/天解锁文章