Face.CalculateStrokes() not working

[william]

I have this code... 

Dim oDoc As PartDocument = ThisDoc.Document
Dim oCompDef = oDoc.ComponentDefinition

Dim entity = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select a Face")
oDoc.SelectSet.Select(entity)

Dim oFace As Face

Try
	oFace = ThisApplication.ActiveDocument.SelectSet.Item(1)
Catch
	MsgBox("A face must be selected.")
End Try

Dim lVertexCount As Long
Dim lSegmentCount As Long
Dim adVertexCoords() As Double
Dim alVertexIndices() As Long
oFace.CalculateStrokes(0.01, lVertexCount, lSegmentCount, adVertexCoords, alVertexIndices)

And I keep getting this error 

According to the API help the vertexindices are supposed to be 'Long'

However the code tooltip says the vertexindices are type integer. 

When I change vertexindices to integer and run the rule I get this error. 

Can someone confirm what this should be and how to make it work? 

[Michael.Navara · Accepted solution]

Difference between Integer and Long is in its size. In VBA the Integer is 16bit and in iLogic/VB.NET Integer is 32bit length. This means VBA Long is the same as VB.NET Integer.

At second you need to initialize the arrays before. See the iLogic sample below.

Sample code

Dim oDoc As PartDocument = ThisDoc.Document
Dim oCompDef = oDoc.ComponentDefinition

Dim entity = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select a Face")
oDoc.SelectSet.Select(entity)

Dim oFace As Face

Try
    oFace = ThisApplication.ActiveDocument.SelectSet.Item(1)
Catch
    MsgBox("A face must be selected.")
End Try

Dim lVertexCount As Long
Dim lSegmentCount As Long
Dim adVertexCoords() As Double = {}
Dim alVertexIndices() As Integer = {}
oFace.CalculateStrokes(0.01, lVertexCount, lSegmentCount, adVertexCoords, alVertexIndices)

'FOR DEBUG ONLY
Logger.Debug("lVertexCount = " & lVertexCount)
Logger.Debug("lSegmentCount = " & lSegmentCount)
Logger.Debug("adVertexCoords = Double(" & adVertexCoords.Length & ")")
Logger.Debug("alVertexIndices = Double(" & alVertexIndices.Length & ")")

[william]

Thanks. I wouldn't have picked that.