Drawing Suite
408
Example
This example adds a rectangle to
myDocument
, formats the rectangle's fill, applies the rectangle's
formatting to the default shape, and then adds another (smaller) rectangle to the document. The
second rectangle has the same fill as the first one.
set myDocument to make new document
make new shape at the beginning of myDocument with properties ¬
{auto shape type:autoshape rectangle, left position:5, top:5, ¬
width:80,
height:60}
set fore color of fill format of shape 1 of myDocument to ({0, 0, 255} ¬
as
RGB
color)
set back color of fill format of shape 1 of myDocument to ({0, 204, 255} ¬
as
RGB
color)
patterned shape 1 of myDocument pattern horizontal brick pattern
--sets formatting of default shapes
set shapes default properties shape 1 of myDocument
--makes a new shape with default formatting
make new shape at the end of myDocument with properties ¬
{auto shape type:autoshape rectangle, left position:90, top:90, ¬
width:40,
height:30}
Command: set threeD format
Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the
various properties of the extrusion.
Syntax
set threeD format shape/threeD format Required. An expression that returns a threeD format
object.
preset threeD format enumeration Required. Specifies a preset extrusion format that
corresponds to one of the options (numbered from left to right, top to bottom) displayed when
you click the 3D button on the Drawing toolbar. Can be one of the following: preset threeD
format unset, format1, format2, format3, format4, format5, format6, format7, format8,
format9, format10, format11, format12, format13, format14, format15, format16, format17,
format18, format19, or format20. Note that specifying preset threeD format unset for this
argument causes an error.
This command sets the preset threeD format property to the format specified by the preset threeD
format argument.