topic Ilogic calculate length of 3D sketch in Inventor Programming Forum

Ilogic calculate length of 3D sketch

Anonymous — Tue, 12 Oct 2021 08:29:33 GMT

Hello!

I want Ilogic to calculate the length of a multiline in a 3D sketch. Is it possible?

Betreff: Ilogic calculate length of 3D sketch

Ralf_Krieg — Tue, 12 Oct 2021 09:19:45 GMT

Hello

Assuming:

- a part document is open

- the first 3D sketch contains the loop

- there's only this one loop in the sketch

you can do it with this little iLogic:

Dim oApp As Inventor.Application = ThisApplication Dim oDoc As PartDocument = oApp.ActiveDocument Dim oSketch As Sketch3D = oDoc.ComponentDefinition.Sketches3D.Item(1) Dim oProfile3d As Profile3D = oSketch.Profiles3D.AddOpen Dim dLoopLength As Double = oApp.MeasureTools.GetLoopLength(oProfile3d.Item(1)) oProfile3d.Delete MsgBox ("Length of 3D loop: " & Round(dLoopLength, 2) & " cm")

Re: Ilogic calculate length of 3D sketch

_dscholtes_ — Tue, 12 Oct 2021 09:47:43 GMT

Please find below the steps I used to retrieve a set of connected lines / arcs / etc. from a sketch (to be used as a sweep path later).
1. find the start point in the sketch (by selecting it or assuming it's the first of all sketch points);
2. get the lines / arcs / etc. connected to it;

3. pick the one you didn't already process (otherwise it could go back and forth between two connected lines);

4. store the line / arc with the other already processed ones (collection);
5. get it's length and add it to the total length found so far;

6. get the other end point of the line / arc / etc.

7. use that point as the first point and continue from step 1 for each connected line / arc / etc.

The above is more a brute-force than an elegant / simple solution, but it's the only approach I could think of.

Betreff: Ilogic calculate length of 3D sketch

Manuelcamposcosta — Tue, 31 Jan 2023 12:24:22 GMT

thanks!!

I made a small change it was giving me an error on line 2 when saving trough an assembly.

Dim oApp As Inventor.Application = ThisApplication
Dim oDoc As PartDocument = ThisDoc.Document
Dim oSketch As Sketch3D = oDoc.ComponentDefinition.Sketches3D.Item(1)
Dim oProfile3d As Profile3D = oSketch.Profiles3D.AddOpen
Dim Comprimento As Double = oApp.MeasureTools.GetLoopLength(oProfile3d.Item(1)) * 10

oProfile3d.Delete
MsgBox ("Length of 3D loop: " & Round(dLoopLength, 2) & " mm")