SubPath.Delete

Sub Delete()

Member of SubPath

The Delete method removes a subpath from a curve. If this is the last subpath of the curve, the curve is also destroyed.

The following code example creates a large letter “B” on the page, converts it to curves, and deletes its inner “holes,” leaving only the outside contour:

Sub Test() 
 Dim s As Shape 
 Dim sgr As SegmentRange 
 Set s = ActiveLayer.CreateArtisticText(0, 0, "B") 
 With s.Text.FontProperties 
  .Name = "Arial Black" 
  .Size = 200 
 End With 
 s.ConvertToCurves 
 s.Curve.Subpaths(3).Delete 
 s.Curve.Subpaths(2).Delete 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.