The macro prompts for two values to define the range of symbols you wish to place. For example, you might only want to use the symbols 'Tree3' through 'Tree7'. In this case you would select:

Smallest tree size: (1-19) 3
Largest tree size: (smallest-19) 7

The macro will continue selecting symbols until you right-click when prompted:

(left=continue, right=quit)

NOTE: Before using the macro, you must load the 'Miscellaneous' catalog from the CD2 product, and 'touch' all the symbols you will be using. (i.e. For the above example, click on each of the symbols from 'Tree3' through 'Tree7', then right click and select 'Finished'. Then type 'trees' to start the macro.)

Retrofitting for other symbols

This macro can easily be altered to be used with other symbols. Simply edit the macro starting at line 34:

:mcosymbol1
symbol;Tree1;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol2
symbol;Tree2;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol3
symbol;Tree3;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol4
.
.
.

For this section, and each of the similar sections that follow, edit the text indicated in red above (Tree1, Tree2, etc) to the name of a different symbol. The section name indicates the number range that the symbol will correspond to (i.e. if you run the macro with a min/max of 1 and 5, the symbols from sections 1 through 5 will be selected).
macro TREES
ecoff
gv mcosmall 1
gv mcolarge 19
gv mcosmall ^DSmallest tree size: (1-19)
gv mcolarge ^DLargest tree size: (smallest-19)
ifn mcolarge-mcosmall mcodone
:mcoloop
gp mcocont ^D(left=continue, right=quit)
iferr mcodone
random mcosymbolnum
random mcoangle
gv mcosymbolnum (mcosymbolnum*(mcolarge-mcosmall+1))+(mcosmall-1)
gv mcoangle mcoangle*360
ifp mcosymbolnum-18 mcosymbol19
ifp mcosymbolnum-17 mcosymbol18
ifp mcosymbolnum-16 mcosymbol17
ifp mcosymbolnum-15 mcosymbol16
ifp mcosymbolnum-14 mcosymbol15
ifp mcosymbolnum-13 mcosymbol14
ifp mcosymbolnum-12 mcosymbol13
ifp mcosymbolnum-11 mcosymbol12
ifp mcosymbolnum-10 mcosymbol11
ifp mcosymbolnum-9 mcosymbol10
ifp mcosymbolnum-8 mcosymbol9
ifp mcosymbolnum-7 mcosymbol8
ifp mcosymbolnum-6 mcosymbol7
ifp mcosymbolnum-5 mcosymbol6
ifp mcosymbolnum-4 mcosymbol5
ifp mcosymbolnum-3 mcosymbol4
ifp mcosymbolnum-2 mcosymbol3
ifp mcosymbolnum-1 mcosymbol2
:mcosymbol1
symbol;Tree1;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol2
symbol;Tree2;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol3
symbol;Tree3;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol4
symbol;Tree4;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol5
symbol;Tree5;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol6
symbol;Tree6;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol7
symbol;Tree7;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol8
symbol;Tree8;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol9
symbol;Tree9;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol10
symbol;Tree10;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol11
symbol;Tree11;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol12
symbol;Tree12;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol13
symbol;Tree13;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol14
symbol;Tree14;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol15
symbol;Tree15;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol16
symbol;Tree16;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol17
symbol;Tree17;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol18
symbol;Tree18;1;1;mcoangle;^DLoc:;
go mcoloop
:mcosymbol19
symbol;Tree19;1;1;mcoangle;^DLoc:;
go mcoloop
:mcodone
econ
endm