VB.NET Propertysets

[snappyjazz]

I am a newbie to Visual basic/inventor API. I am using Inventor PRO 2019 with visual studio 2017. I am trying to create custom content center families. There are properties I am putting on the family templates, who's values can be read from the family properties. For instance, when creating a new 45 deg threaded elbow family; I would like to get the size of the connections from the table, get the "threaded" end type from the family name, etc. My code breaks when trying to retrieve the property sets.

Imports System
Imports System.Type
Imports System.Activator
Imports System.Runtime.InteropServices
Imports Inventor


Module Module1
    Sub Main()
        Dim _invDoc As Inventor._Document
        Dim customPropertySet = _invDoc.PropertySets.Item("Inventor User Defined Properties")

        MsgBox(customPropertySet.ToString)

    End Sub

End Module

[Sergio.D.Suárez]

Hi, excuse me if I mention something wrong.
In your code I see that you have defined the type of variable in
"Dim _invDoc As Inventor._Document"
I suppose that is fine, but the value of it is not defined or where it comes from, and then it is used in the following line of
"Dim customPropertySet = _invDoc.PropertySets.Item (" Inventor User Defined Properties ")"
So, what is the same expression _invDoc =?
regards

[snappyjazz]

@Sergio.D.Suárez 

Thanks for responding so quickly. I am not sure what the value should be. I am trying to descend the object model tree (Photo below) and am failing.  Can you please help me?

[Sergio.D.Suárez · Accepted solution]

I do not have much experience on vb.net. However I expected to read something like this for example

    Dim invApp As Inventor.Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
    Dim _invDoc As Inventor.Document = invApp.ActiveDocument

 Where the expression is completed, even more so when dealing with the main sub-main subroutine

[bradeneuropeArthur]

Hi,

Are you writing a standalone app for inventor;

Or are you writing a add in with vb.net?

[snappyjazz]

@Sergio.D.Suárez 

Thanks that got me going!

@bradeneuropeArthur 

I am just writing an add in via vb.net.