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
#2Hi,JEL57 wrote: ↑Mon Sep 29, 2025 3:37 pmI 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
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 SubRe: Points Collection
#3Thanks for the sample code. I was able to get my routine that draws steel wide flange beams working.
Is there any command reference available anywhere for the intelliCAD implementation of VBA?
Is there any command reference available anywhere for the intelliCAD implementation of VBA?