LineType not used with 3Dpoly automation

[CTruax]

'In Acad v14 exists a layer with Linetype = Dashed
'That layer is the active layer
'From VB6 automation control I have;
'P(0 To 11) is an array of Doubles (4 points)
Dim tmpPolyLine
Set tmpPolyLine = moSpace.Add3dpoly(p)
'the polyline is drawn in the layers color but not dashed

tmpPolyLine.Color = acRed 'will change the color to red

'Why isn't the line dashed

 

[tigrek]

'1. 3DPoly linetype optically appears continuous on screen even when property is dashed (Acad14)
' This is the same whether 3Dpoly is drawn manual or from VBA
' The idea is that when printed it would come dashed.
'3. AddLightWeightPolyline(points) needs two coords per point, but appears dashed on screen

Sub PolyOnDashedLayer()

'In Acad v14 exists a layer with Linetype = Dashed
'That layer is the active layer
'From VB6 automation control I have;
Dim VPoints As Variant
' Create the array of 5 points
VPoints = Array(0#, 0#, 0#, 10#, 10#, 10#, 30#, 20#, 30#, 50#)
' Move the points into an array of Doubles
ReDim points(UBound(VPoints)) As Double
For count = LBound(points) To UBound(points)
points(count) = VPoints(count)
Next count
' Creates a 3DPolyline in model space

Dim tmpPolyLine As Object
'Set tmpPolyLine = ThisDrawing.ModelSpace.Add3DPoly(points)
Set tmpPolyLine = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
'the polyline is drawn in the layers color but not dashed

tmpPolyLine.Color = acRed 'will change the color to red

'Why isn't the line dashed
End Sub