ActiveEditDocument.GraphicsDataSetsCollection.Add2

[mikazakov]

Hi,

Xiaodong Liang wrote the article:

http://adndevblog.typepad.com/manufacturing/2012/06/save-clientgraphics-information-along-with-the-d...

But, method:

GraphicsDataSetsCollection.Add2 

return exception

Why?  Xiaodong Yang joked?

Sub Test()
Dim doc As PartDocument
Set doc = ThisApplication.ActiveEditDocument
Dim GetGUID As String

GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)

Dim oGraphicsData As GraphicsDataSets
  
Set oGraphicsData = ThisApplication.ActiveEditDocument.GraphicsDataSetsCollection.Add2(GetGUID, True)

End Sub

[xiaodong_liang · Accepted solution]

I wrote the blog long time ago, testing with old releases. While in the latest Inventor, the Add2 method is re-defined as _Add2.  And this is a hidden method, you need to switch on [show hidden methods] of object browser to see it. So, in VBA, the code could be as below. I will update that blog. 

Thanks for soptting this.

Sub Test()
Dim doc As PartDocument
Set doc = ThisApplication.ActiveEditDocument
Dim GetGUID As String

GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)

Dim oGraphicsData As GraphicsDataSets

Set oGraphicsData = ThisApplication.ActiveDocument.GraphicsDataSetsCollection.[_Add2](GetGUID, True)
End Sub

[mikazakov]

Thank you for your answer.