Inventor VBA，使用ref

Hickoz_bro · 发表于 2022-7-6 17:05:15

大家好，我正在尝试在图形中选择对象和检索信息。到目前为止，我已经能够选择一个对象，在本例中是指引线注释，但我需要检索有关其节点等的信息。然而，我似乎无法使用我获得的代码访问此信息，因此我必须检索对象的参考键，我希望通过drawingnotes访问信息。如果我使用leadernotes引用对象，则可以获得leadernotes。第（1）项等。。。但问题是，项目编号将随着图纸的编辑而变化。。。

所以，问题是，拥有一个对象的引用键，然后我如何引用该对象，并访问其属性？

到目前为止，我掌握的代码是：

copy


Public Sub TestSelection()
   ' Create a new clsSelect object.
   Dim oSelect As New clsLeaderGhost
   
   Dim odoc As DrawingDocument
   Dim oleader As DrawingNote
   Dim oNotes As LeaderNotes
   
   Dim Lrefkey() As Byte
   Dim lrefkeystr As String
   Dim Leaderinfo As New Collection
   
   Set odoc = ThisApplication.ActiveDocument
   Set oNotes = odoc.ActiveSheet.DrawingNotes.LeaderNotes
   ' Call the pick method of the clsSelect object and set
   ' the filter to pick any Drawing Note.
   Set oleader = oSelect.Pick(kDrawingNoteFilter)
   
   ' Check to make sure an object was selected.
   If Not oleader Is Nothing Then
       
       Call oleader.GetReferenceKey(Lrefkey)
       lrefkeystr = odoc.ReferenceKeyManager.KeyToString(Lrefkey)
       
       For n = 1 To oNotes.Item(Lrefkey).Leader.AllNodes.Count
           Leaderinfo.Add (oNotes.Item(1).Leader.AllNodes.Item(n).Position.X)
       Next
       
   End If
End Sub

borgunit · 发表于 2022-7-6 17:57:58

您对Inventor API一无所知，是否尝试过在代码中添加断点，并查看您正在引用的对象在运行时可以使用哪些方法或属性？

Hickoz_bro · 发表于 2022-7-6 18:29:58

只是在试图输入解释它为什么不起作用的解释时找到了它。。。我已将oLeader声明为drawingnote，将oNotes声明为leadernotes。。。。因此，通过将oLeader声明为leadernote（注意，oNotes是leadernoteS，即复数），我可以访问我想要的所有信息。。。

谢谢你让我看起来更努力

[编程交流] Inventor VBA，使用ref

发表回复

精选推荐