AddSolid Method

AddSphere Method

Collapse All Expand All

Point1: A Point object specifying the coordinate location of the first solid vertex.

Point2: A Point object specifying the coordinate location of the second solid vertex.

Point3: A Point object specifying the coordinate location of the third solid vertex.

Point4: A Point object specifying the coordinate location of the fourth solid vertex.

Description

Adds a two-dimensional wolid polygon.

Visual Basic
Public Function AddSolid( _ ByVal Point1 As Point, _ ByVal Point2 As Point, _ ByVal Point3 As Point, _ Optional ByVal Point4 As Point = 0 _ ) As Solid

Point1: A Point object specifying the coordinate location of the first solid vertex.
Point2: A Point object specifying the coordinate location of the second solid vertex.
Point3: A Point object specifying the coordinate location of the third solid vertex.
Point4: A Point object specifying the coordinate location of the fourth solid vertex.

Private Sub AddSolid_Example()

Dim solidObj As IntelliCAD.Solid

Dim pt1, pt2, pt3, pt4 As Point

Set myDoc = ActiveDocument

Set pt1 = Library.CreatePoint(1, 1, 0)

Set pt2 = Library.CreatePoint(3, 3, 0)

Set pt3 = Library.CreatePoint(4, 2, 0)

Set pt4 = Library.CreatePoint(3, 1, 0)

' Create the solid object in model space

Set solidObj = ThisDocument.ModelSpace.AddSolid(pt1, pt2, pt3, pt4)

solidObj.Update

ThisDocument.Application.ZoomExtents

End Sub