Thread: A little help
View Single Post
Old 08-11-2005, 12:41
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,787
Blog Entries: 11
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default A little help

Working on a contour script, and need a little help with my code. What I am trying to do is remove the inside objects that are created by the contour. From the code you can see my solution, but I don't think it is very good.
Sub RemoveInside()

Dim x As Double, y As Double, w As Double, h As Double
Dim cColor As New Color
Dim sContour As Shape
Dim sText As Shape


Set sText = ActiveLayer.CreateArtisticText(0, 0, "Sample Text", , , "Arial Black", 72)

Set sContour = sText.CreateContour(cdrContourOutside, 0.075, 1).Separate(1)
sContour.Outline.SetProperties 0.003, , cColor

sContour.GetBoundingBox x, y, w, h
Set sSel = ActivePage.SelectShapesFromRectangle(x + 0.075, y + 0.075, (x + w) - 0.075, (y + h) - 0.075, False)

End Sub
So two things I am struggling with, one I would like the contour to stay as one object, but I have to break it apart to delete the insides. And two is there any better way to do this then with the SelectShapesFrom...

Thanks for the insight,

Reply With Quote