Modify LISP routines - Text size
Not sure if I'm supposed to ask here, but I have a brilliant Lee Mac LISP for aligning text to a curve.
The only issue is it seems fixed on a text size of 1.5 which then equates to half that size for offset from the curve.
Below is the heading.
I have no idea what to edit or what to look for but imagine somewhere in the rest of the routine is a function or command to set the text size and offset.
It doesn't default to the text style set and any changes to the Text styles doesn't seem to affect the entry.
=={ Curve Aligned Text }==-------------------;;
;; ;;
;; Prompts user for a selection of a Text, MText or ;;
;; Attribute entity, or a text string to be used in a new ;;
;; Text or MText entity. ;;
;; ;;
;; Selected entity is subsequently aligned dynamically to a ;;
;; selected curve object, offering additional controls ;;
;; displayed at the command line to refine the alignment. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Version 1.1 - 07-04-2011
Not sure if this has any useful info
*error*
_gettextproperties
_layerlocked
_putmiddlecenter
;; Local Variables
cobj
e
ismtext isnested
object objtype
sel spc
textproperties tobj tsze
xang
any help appreciated thanks.
And as said if this is not for discussion here then that's okay by me.
thanks
Richard
The only issue is it seems fixed on a text size of 1.5 which then equates to half that size for offset from the curve.
Below is the heading.
I have no idea what to edit or what to look for but imagine somewhere in the rest of the routine is a function or command to set the text size and offset.
It doesn't default to the text style set and any changes to the Text styles doesn't seem to affect the entry.
=={ Curve Aligned Text }==-------------------;;
;; ;;
;; Prompts user for a selection of a Text, MText or ;;
;; Attribute entity, or a text string to be used in a new ;;
;; Text or MText entity. ;;
;; ;;
;; Selected entity is subsequently aligned dynamically to a ;;
;; selected curve object, offering additional controls ;;
;; displayed at the command line to refine the alignment. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Version 1.1 - 07-04-2011
Not sure if this has any useful info
*error*
_gettextproperties
_layerlocked
_putmiddlecenter
;; Local Variables
cobj
e
ismtext isnested
object objtype
sel spc
textproperties tobj tsze
xang
any help appreciated thanks.
And as said if this is not for discussion here then that's okay by me.
thanks
Richard
0
Comments
-
Maybe the TEXTSIZE variable is used by the program.0
-
Richard,
Did you get the lisp off Lee's website or from the Swamp. I can not locate it on his website. Please attach file I'll take a look.
Bruce0 -
try his new version http://www.lee-mac.com/lisp/html/AlignTextToCurveV1-2.html0
-
thanks for replies.I'm currently away from work so haven't had opportunity to check anything.I'd played around with text settings in Bricscad to no avail.Bruce I reckon it must have been The Swamp as I looked on Lee Mac but couldn't find any reference. Assumed must have been taken down.Thanks Dan, will give that a try next week when back in action in office.Much appreciated all round0
-
if you have problems, post a drawing to theswamp, Lee is extremely helpful(and feel free to donate on his website, he has put out a lot of really useful routines)0
This discussion has been closed.