Topic: Trim tree canopies and plot text formatted from an attribute.

[Least]

Hi,

We have a problem with our tree canopies, especially when there is a lot of them.  It all ends up looking a bit of a mess.
I'm looking for a lisp that will trim tree canopies and then using a block attribute plot some text by the tree trunk.
Quite difficult to explain in words but the attached dwg should clarify things.

I've searched around but can't find anything to help me accomplish this.
Any help will be greatly appreciated.

Thanks
Least

[Guest]

This...
http://www.theswamp.org/index.php?topic=16116.0

Or maybe the _aeclineworkshrinkwrap command.

[Least]

Thanks Matt that looks very good for the canopy bit.
I need to try and modify it so that it isolates the s (canopy spread) blocks then deletes them afterwards (or move to a frozen layer).

And I know how to grab the first attrib from the PT block:

(setq ent7 (car (entsel "\nPick the Tree:"))); single pick

(if ent7
   (progn
   (setq elist7 (entget ent7)); get a List of that entity
   (setq atr7 (entnext ent7)); get 1st attribute entity
   (setq en7 (entget atr7)); get a List of attribute entity
   (setq val7 (cdr (assoc 1 en7))); get the attrib's value
   (setq num7 (atof val7)); make a number of val

but not how to make a selection set of all the PT blocks and a list of all the first attribs.

then it will be a case of manipulating the data and plotting the text.

thanks
Least