EDOBE XDOM TPC Technical Information download pdf (Page 64)

CHAPTER 6: Scripting with VBScript Working with the perspective grid 64

call pathItemRect.Resize(200, 200, True, False, False, False, 100, 2)

call pathItemRect.Translate(-420, 480)

Rem Draw ellipse in perspective

Set pathItemEllipse = docRef.PathItems.Ellipse(60, -60, 30, 30, False, True)

Rem Draw rounded rectangle in perspective

Set pathItemRRect = docRef.PathItems.RoundedRectangle(90, -90, 30, 30, 10, 10, False)

Rem Draw polygon in perspective

Set pathItemPoly = docRef.PathItems.Polygon(-105, 105, 15, 7, False)

Rem Draw star in perspective

Set pathItemStar = docRef.PathItems.Star(-135, 135, 15, 10, 6, False)

Rem Draw path in perspective

Set newPath = docRef.PathItems.Add()

newPath.SetEntirePath(Array(Array(0,0),Array(60,0),Array(30,45),Array(90,110)))

Bring objects into perspective

If an art object is not in perspective, use the bringInPerspective() method to bring it into perspective

and place it on a plane.

This script creates a new document, draws art objects, and brings them into perspective on a three-point

perspective grid:

Set appRef = CreateObject ("Illustrator.Application")

Rem Create a new document

Set docRef = appRef.Documents.Add()

Rem Draw ellipse

Set pathItemEllipse = docRef.PathItems.Ellipse(60, -60, 30, 30, False, True)

Rem Draw polygon

Set pathItemPoly = docRef.PathItems.Polygon(-105, 105, 15, 7, False)

Rem Draw star

Set pathItemStar = docRef.PathItems.Star(-135, 135, 15, 10, 6, False)

Rem Select the default three-point perspective preset

docRef.SelectPerspectivePreset("[3P-Normal View]")

Rem Display the perspective grid defined in the document

docRef.ShowPerspectiveGrid()

Rem Check if active plane is set to left, otherwise set it to left

If docRef.GetPerspectiveActivePlane() <> 1 Then

docRef.SetPerspectiveActivePlane(1) 'aiLEFTPLANE

End If

Rem Bring the ellipse to the active plane (left plane)

Call pathItemEllipse.BringInPerspective(100,100, 1) 'aiLEFTPLANE

Rem Bring the polygon to the right plane

Call pathItemPoly.BringInPerspective(100,-100,2) 'aiRIGHTPLANE

1 2 ... 59 60 61 62 63 64 65 66 67 68

No comments

EDOBE XDOM TPC Technical Information Page 64