AddLightWeightPolyline Method (IntelliCAD)
IntelliCAD 11.1 Object Library | |
AddLightWeightPolyline Method | |
See Also |
- Vertices
- A series of Point objects specifying coordinate locations for each polyline vertex.
PaperSpace Collection : AddLightWeightPolyline Method |
Description
Syntax
Visual Basic |
---|
Public Function AddLightWeightPolyline( _ ByVal Vertices As Points _ ) As LWPolyline |
Parameters
- Vertices
- A series of Point objects specifying coordinate locations for each polyline vertex.
Example
Private Sub AddLWP_Example()
' This example adds a lightweight polyline to the drawing.
Dim myDoc As IntelliCAD.Document
Dim myPline As IntelliCAD.LWPolyline
Dim myPoints As points
Dim pt As Point
Set myDoc = ActiveDocument
Set myPoints = Library.CreatePoints
Set pt = Library.CreatePoint(1, 1, 0)
myPoints.Add
myPoints(myPoints.Count - 1).x = pt.x
myPoints(myPoints.Count - 1).y = pt.y
myPoints(myPoints.Count - 1).z = pt.z
Set pt = Library.CreatePoint(3, 3, 0)
myPoints.Add
myPoints(myPoints.Count - 1).x = pt.x
myPoints(myPoints.Count - 1).y = pt.y
myPoints(myPoints.Count - 1).z = pt.z
Set myPline = ThisDocument.ModelSpace.AddLightWeightPolyline(myPoints)
myPline.Update
ThisDocument.Application.ZoomExtents
End Sub