09-26-2018
01:51 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-26-2018
01:51 PM
Hello,
Is there a chance to calculate, in the sketch, number of curves with a special line type i.e.: "ACAD_ISO02W100"?
In the below iLogic script I'm able to calculate all the curves with "kCustomLineType", but I need to know how many lines are with above given type...
Dim oDoc As Document = ThisApplication.ActiveDocument Dim oSketch As Sketch oSketch = oDoc.ComponentDefinition.Sketches.Item(1) 'Dim linesCount As Integer linesCount = 0 ' ******* must be a parameter ******* Dim i As Double For i = 1 To oSketch.SketchLines.Count If oSketch.SketchLines.Item(i).LineType.ToString = "kCustomLineType" ' "ACAD_ISO02W100" needed linesCount = linesCount + 1 End If Next i
-------------------------
Tomasz Malinowski
Tomasz Malinowski
Solved! Go to Solution.
09-26-2018
11:30 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-26-2018
11:43 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-26-2018
11:43 PM
No problem,
You can get the custom line types directly from Inventor standard database also (right clicking on curve properties):
-------------------------
Tomasz Malinowski
Tomasz Malinowski
09-27-2018
01:57 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-27-2018
01:57 AM
Try below iLogic code to count number of custom line type ("ACAD_ISO02W100").
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oSketch As Sketch
oSketch = oDoc.ComponentDefinition.Sketches.Item(1)
'Dim linesCount As Integer
linesCount = 0 ' ******* must be a parameter *******
Dim oName As String
Dim oDesc As String
Dim i As Double
For i = 1 To oSketch.SketchLines.Count
If oSketch.SketchLines.Item(i).LineType.ToString = "kCustomLineType" ' "ACAD_ISO02W100" needed
Call oSketch.SketchLines.Item(i).GetCustomLineType(oName, oDesc)
If oName = "ACAD_ISO02W100" Then
linesCount = linesCount + 1
End If
End If
Next i
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
