Hello, I'm trying to write a lisp routine to rotate all
selected text around it's center of location (so it doesn't
move as when the insertion pt is used as with CHT )
but I don't know how to find the data that shows the
coordinates of the end pt of the text. It doesn't show
in a list or object properties readout.
Can someone give me a clue as to how to find this
Thanks for the reply, but I don't know of any TEXTBOX
lisp function. Is it downloadable somewhere?
We are running AutoCad R-14 with Civil Design Softdesk8.
We do have Bonus Tools but when I type in TEXTBOX
I get "unknown command" .
In the Help files for R14 (text, bounding box, AutoLISP) there is a
lisp routine for drawing a box around text:
(defun C:TBOX ( / textent tb ll ur ul lr)
(setq textent (car (entsel "\nSelect text: ")))
(command "ucs" "Object" textent)
(setq tb (textbox (list (cons -1 textent)))
ll (car tb)
ur (cadr tb)
ul (list (car ll) (cadr ur))
lr (list (car ur) (cadr ll))
(command "pline" ll lr ur ul "Close")
(command "ucs" "p")
Use that; draw the diagonal and rotate the text around the midpoint of
There might be other ways...
Thank you! I will try this as soon as I get home.
Also I wonder if you could help me with my outdated
version of VLisp. I'm running the R-14 Version of Cad
and Vlisp which I just installed. However when I try to
Debug a file all of my
are grayed out ?
I have the breakpoint set at the first function
I have the lsp file loaded and open
I've also tried creating a project but the step functions
seem hopeless grayed off. Do you know what I am
doing wrong ??
Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here.
All logos and trade names are the property of their respective owners.