Topic: Text Box Routine

[snownut2]

CAB,

Wondering if there is a reason for not utilizing a single slide library file, instead of individual slides.  Not being critical of your work, just seeing if you know of any drawbacks using a  Library file.

Bruce

[CAB]

No reason other than I view this lisp as a work in progress.
Just never finished it. 

[MeasureUp]

Hi CAB,
Thanks for sharing your favourite.
I like this, too.
Just one thing I found, the "plinewid" should reset to "0" after a heavy (line) box is drawn.
It will drawing cloud box with heavy line latter, otherwise.

Also, I cannot see previews in the dialog for:
1) Fileted Retangle - Drop Shadow
2) Frame
3) Frame Shadow
4) Cloud

[CAB]

Thanks for the feed back. 

Corrected the width error & added the missing slides.
See post one for the updated zip file.

[MeasureUp]

Sorry CAB, I cannot found the zip file but the lsp file in your 1st post.

[CAB]

In my haste I grabbed the wrong file. 
It is there now.

[Xran]

my dtext bbox code:

Code - Auto/Visual Lisp: [Select]

1. (setvar "UCSICON" 0)
2. (command "ucs" "s" "temp")
3. (setq ent (car (entsel "\nget a dtext object:")))
4. (command "ucs" "e" ent)
5. (setq bbox (textbox (entget ent))
6.          pt1 (car bbox)
7.          pt3 (cadr bbox)
8. )
9. ;;;here cal pt2 pt4
10. (command "ucs" "r" "temp")
11. (setvar "ucsicon" 1)
12.  

[CAB]

Good first effort.

[nobody]

Cool stuff CAB!

If anyone has any suggestions or comments please do.
Excuse the messy lisp, work in progress you know.
It will create the boxes shown in the picture.
It supports mtext and dtext, rotated or not & UCS other that world.
It supports groups of dtext.
The selection method for the type of box is command line at this time but
may go to a dialog box or image menu in the future.
I use DimScale to determine the offset of the box. This does not give the
proper gap while in paper space, so I'll have to work on that. I could use
some suggestions here as I don't normally place text in paper space.
<update to v2.5 12/18/12>   Bug fix to 12/14/12 version.

[CAB]

Thanks