Good Day.
I my module there is a pop-up message: "Object Required"
But a Polyline Object is passed as an argument.
Looking at the code can anyone explain why this message is appearing?
Please note that if this code is cut and paste into an existing module it works fine.
Here is the code:
The message appears at line 7: Vertex3
I my module there is a pop-up message: "Object Required"
But a Polyline Object is passed as an argument.
Looking at the code can anyone explain why this message is appearing?
Please note that if this code is cut and paste into an existing module it works fine.
Here is the code:
The message appears at line 7: Vertex3
Code:
Public Sub DrawRightSideLineOfOffsetPolyLinePattern(ByRef PlineObj As AcadLWPolyline)
Dim Vertex3() As Double
Dim Vertex4() As Double
Dim lineObj As AcadLine
Dim OffsetLineObjPoints() As Double
Dim OffsetLineObj As AcadLine
Vertex3 = OffsetPolyline.Coordinate(0)
Vertex4 = OffsetPolyline.Coordinate(11)
Call DrawlineGivenTwoVertices(Vertex3, Vertex4, lineObj)
lineObj.Color = acYellow
lineObj.Update
End Sub