Rectangle around text

[TunzaGibbo]

This the last bit of a routine I'm trying to create. Its very simple in its overall intent

It just adds a line of text inside a rectangle.

The TCIRCLE (Express Tools) command is being executed and then I have to manually accept or change the defaults. How can I write this last bit of TCIRCLE to have it run through automatically?

Thanks

 

  (setvar "cecolor" "6")
 (command "_.text" "Justify" "C" inspt "3.5" "0" a )
 ((c:tcircle) a "" "0.35" "" R "" "" )
(princ)
)

[BIGAL]

This may be like extrim you can run it from a lisp but it use a differrent command "ETRIM"

 

This is the simplest way http://www.lee-mac.com/boxtext.html

[TunzaGibbo]

Still having the same thing with boxtext. Works good on its own but I don't know how to put it into my lisp file to run at the end. same as tcircle

[Aftertouch]

Try this:

(defun C:TEST ( / )
(setq SS1 (ssget "L"))
(bns_tcircle SS1 "Variable" "Rectangles" nil 0.35)
(princ)
)

[TunzaGibbo]

Thank you for your reply. I have tried to enter your text but I can't get it to work.

Would you be so kind as to enter it in the code I submitted?

[Aftertouch]

Here you go:

Alto i think your 'text' command line is wrong, since your given arguments are not able in the command...

 

(defun C:test ( / oldcecolor inspt )
(setq oldcecolor (getvar "CECOLOR"))
(setvar "cecolor" "6")
(setq inspt (getpoint))
(command "_.text" "Justify" "C" inspt "3.5" "0" "")
(setq SS1 (ssget "L"))
(if (not bns_tcircle) (load "acettxt.lsp"))
(bns_tcircle SS1 "Variable" "Rectangles" nil 0.35)
       (setvar "CECOLOR" oldcecolor)
(princ)
)

[BIGAL]

This may be like extrim you can run it from a lisp but it use a differrent command "ETRIM"

 

Aftertouch for the dummys like me

 

Tcircle uses a differrent command "bns_tcircle" if you want to use lisp

[TunzaGibbo]

Thank you very much Aftertouch your code worked perfect