Unable to create OriginIndicator on a workpoint.

[Anonymous]

Hi Experts,

Inventor 2017.4.5

Language: C# or VBA

I am attempting to create a OriginIndicator in DrawingView and would like to use a WorkPoint as reference.

This works fine in the UI and throws an exception using the API. All possible permutations and combinations has been attempted. Here is a simple sample VBA code and instructions:

1. Create a drawing document.

2. Place a base view of a part file.

3. Include any workpoint from the model.

Now run this macro:

Dim dwg As DrawingDocument
Set dwg = ThisDocument
Dim view As DrawingView
Set view = dwg.ActiveSheet.DrawingViews(1)
Dim cm As Centermark
Set cm = dwg.ActiveSheet.Centermarks(1)
Dim geomInt As GeometryIntent
Set geomInt = dwg.ActiveSheet.CreateGeometryIntent(cm)
view.CreateOriginIndicator geomInt

Cheers,

-Thilak Rao

[frederic.vandenplas]

hi @Anonymous 

This should work (vba)

Sub CreateOrigin()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet
Dim oView As DrawingView
Set oView = oSheet.DrawingViews(1)
Dim oCm As Centermark
Set oCm = oSheet.Centermarks(1)
Dim oGI As GeometryIntent
Set oGI = oCm.AttachedEntity
Call oView.CreateOriginIndicator(oGI)
End Sub

[Anonymous]

Hi Frederic,

Did you at least execute this code and see it work? Or are you assuming that it should work.

Because clearly there is a type mismatch at:

Dim oGI As GeometryIntent
Set oGI = oCm.AttachedEntity

and I do not see any line of code that does "creategeometryintent".

Thanks,

-Thilak Rao

[frederic.vandenplas]

Hi @Anonymous ,

I've created the macro, created a baseview, placed a sketchpoint on the center of this arc, and ran the code

attachedentity is oGI is actually GeometryIntent, so i only have to refer, not create it.

[frederic.vandenplas]

Correction, placed a centerpoint instead of "placed a sketchpoint"

[Anonymous]

Hi Frederic,

Appreciate your willingness to help here but I haven't resolved this yet.

1. Created a drawing view.

2. Placed a center mark.

3. Executed your macro and still got an error as attached.

BTW, I am on Inventor Release 2017.4.5

Thanks,

-Thilak Rao

[chrisdrogers]

Did you ever find a resolution to this?  I am finding the same error when using workpoints.

[Anonymous]

Yes. They fixed it in Inventor 2019.

Thanks,

-Thilak Rao

[chrisdrogers]

I upgraded to Inventor 2019 and it did not work, however I discovered that the fix is in 2019.2 and greater.