topic Re: Creating linear diameter dimension using API in Inventor Forum

Creating linear diameter dimension using API

Anonymous — Tue, 29 Mar 2016 06:30:36 GMT

Hi,

I have two sketch lines and its start point and end point and I need to add linear diameter dimension using API on those lines.

How do I create linear diameter dimension using API?

Please suggest me.

Regards,

Prarthana

Re: Creating linear diameter dimension using API

Xun.Zhang — Tue, 29 Mar 2016 07:26:25 GMT

Hello, here is an example for how to create a diameter via API, hope it helps a little bit.

----------------------

Sub AddDiaDim()
Dim oPart As PartDocument
Set oPart = ThisApplication.Documents.Add(kPartDocumentObject)

Dim oCompDef As PartComponentDefinition
Set oCompDef = oPart.ComponentDefinition

Dim oPlnSk As PlanarSketch
Set oPlnSk = oCompDef.Sketches.Add(oCompDef.WorkPlanes("XY Plane"))

Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry

Dim oSkArc As SketchArc
Set oSkArc = oPlnSk.SketchArcs.AddByCenterStartEndPoint(oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(2, 4), oTG.CreatePoint2d(4, 4))

Dim oDiaDim As DiameterDimConstraint
Set oDiaDim = oPlnSk.DimensionConstraints.AddDiameter(oSkArc, oTG.CreatePoint2d(0, 0))

End Sub

---------------------------

Re: Creating linear diameter dimension using API

Anonymous — Tue, 29 Mar 2016 07:55:33 GMT

Thank you very much.
I will try this code and will let you know 🙂

Regards,
Prarthana

Re: Creating linear diameter dimension using API

Anonymous — Tue, 29 Mar 2016 08:30:46 GMT

Hi,

I would like to explain my problem in detail.

I have selected these two lines from the code, Line 1 and Line 2 (marked in red).

And I have the Line1 start point and end point as (0, 3.5) and (3, 3.5)

and Line 2 which is a construction geometry line as (0,0) and (31, 0).

Now, what I need to do is to add the linear diameter dimension (ᴓ7) (marked in yellow color) using API of these two lines.

I hope I am able to explain my problem.Please help me.

Regards,

Prarthana

Re: Creating linear diameter dimension using API

Xun.Zhang — Tue, 29 Mar 2016 13:16:58 GMT

Hi,

I am a bit confused, do you want to add a linear diameter dimension between those two lines? is it correct? so which point is the start point and which one is the end? suppose start point should from one of line, right?

Could you help give me more details on the expectation result with a snapshot or sketch to show how the dimension lies finnally.

Thank you so much!

Re: Creating linear diameter dimension using API

Anonymous — Wed, 30 Mar 2016 00:46:32 GMT

Hi,

I am sorry for the confusion.

If I am not wrong, in order to create the linear diameter dimension we need to select the lines or with the points, right?

So for that, I select the two lines Line1 and Line2. The Line1 has its start point and end point and so with the Line2.

I do have the information of both the lines but what I need is to get the distance between these two lines (linear diameter) using API.

In the previous image, I created distance (marked in yellow)from the Inventor, but I need to create that dimension using API.

Re: Creating linear diameter dimension using API

Xun.Zhang — Wed, 30 Mar 2016 02:12:38 GMT

Hi, Clear enough now.

please try below transcription.

----------------------------

Public Sub OffsetDimConstraint()
' Set a reference to the active sketch.
Dim oSketch As PlanarSketch
Set oSketch = ThisApplication.ActiveEditObject

' Set a reference to the transient geometry collection.
Dim oTransGeom As TransientGeometry
Set oTransGeom = ThisApplication.TransientGeometry

Dim oSketchLine As SketchLine
Set oSketchLine = oSketch.SketchLines.Item(1)

Dim oSketchEntity As SketchEntity
Set oSketchEntity = oSketch.SketchEntities.Item(6)

Dim oOffsetDimConstraint As OffsetDimConstraint
Set oOffsetDimConstraint = oSketch.DimensionConstraints.AddOffset(oSketchLine, oSketchEntity, oTransGeom.CreatePoint2d(0, 0), True)
End Sub

------------------------------------

Re: Creating linear diameter dimension using API

Anonymous — Wed, 30 Mar 2016 04:11:42 GMT

Thank you very much.
It solved my problem . 🙂

Can I ask one more question?
Can we record the macro in Inventor like in Solidworks?

Regards,
Prarthana

Re: Creating linear diameter dimension using API

Xun.Zhang — Wed, 30 Mar 2016 04:42:38 GMT

Hi, Please copy all code in notepad and save as *.bas with type "all file", Open VBA Environment and File->import, then a new module is added.

Re: Creating linear diameter dimension using API

Anonymous — Wed, 30 Mar 2016 04:58:16 GMT

Hi,

Thank you very much for your help 🙂

With Regards,
Prarthana