Points Collection

#1
I am attempting to add points to a points collection and can't figure out how to do it. Following is the code:
Dim PointsList As New Points, intReturn As Integer
For j = 0 To 15
'use inspnt variable to set coords for each point

InsPnt.x = Coords(j, 0)
InsPnt.y = Coords(j, 1)
InsPnt.z = 0

' InsPnt = PointsList.Add(Coords(j, 0), Coords(j, 1), 0) <-- I tried this line of code
PointsList.Add = (InsPnt) <-- and then this line of code.

Next j

Both lines of code I tried return Run-Time Error '438': - Object doesn't support this property or method.
I cannot find a good reference manual for the intelliCAD objects and methods.
Is there a reference manual available anywhere?

Any help with the code and locating a reference manual would be appreciated.

Jack

Re: Points Collection

#2
JEL57 wrote:
Mon Sep 29, 2025 3:37 pm
I am attempting to add points to a points collection and can't figure out how to do it. Following is the code:
Dim PointsList As New Points, intReturn As Integer
For j = 0 To 15
'use inspnt variable to set coords for each point

InsPnt.x = Coords(j, 0)
InsPnt.y = Coords(j, 1)
InsPnt.z = 0

' InsPnt = PointsList.Add(Coords(j, 0), Coords(j, 1), 0) <-- I tried this line of code
PointsList.Add = (InsPnt) <-- and then this line of code.

Next j

Both lines of code I tried return Run-Time Error '438': - Object doesn't support this property or method.
I cannot find a good reference manual for the intelliCAD objects and methods.
Is there a reference manual available anywhere?

Any help with the code and locating a reference manual would be appreciated.

Jack
Hi,
Please refer to the simple code for adding a polyline.

Code: Select all

Public Sub test()
   
    Dim PointsList As Points
    Set PointsList = Library.CreatePoints
    
    For j = 0 To 2
        Call PointsList.Add(j, j + 0.2, 0)
        Call PointsList.Add(j, j - 0.2, 0)
    Next j
    
    Dim pl As Polyline
    Set pl = ActiveDocument.ModelSpace.AddPolyline(PointsList)

End Sub