Enclose DTEXT with parenthesis

Hello,

I have a request from a client to enclose certain DTEXT objects within parenthesis. Short of having to do this manually... (and I am not a programmer) is there a quick LISP routine that could allow a user to select the DTEXT (either one at a time or possibly in bulk) and put a ( as a prefix and ) as a suffix?

Any help will be gretaly appreciated.

Tracy W. Lincoln
Autodesk Online Discussion Group Facilitator

 

I have one I use. Hope it works for you.

Tim

(defun cAR(/ tset1 tlng1 to1 to2 tx1 tx2 ntx to3)

(command "undo" "group")

(prompt "\nSelect text to put parenthesis around: ")
(setq tset1 (ssget '((0 . "*TEXT"))))
(if (= tset1 nil)
(setq tlng1 0)
(setq tlng1 (sslength tset1))
)

(while (/= tlng1 0)
(setq to1 (ssname tset1 0))
(setq to2 (entget to1))
(setq tx1 (assoc 1 to2))
(setq tx2 (cdr tx1))
(setq ntx (strcat "("tx2")"))
(setq to3 (subst (cons 1 ntx) tx1 to2))
(entmod to3)
(entupd to1)
(ssdel to1 tset1)
(setq tlng1 (1- tlng1))
)

(command "undo" "end")
(princ)
)

 

Thank you...

While looking around a bit I did find an ADDTEXT.LSP posted on the CADalyst "Get the Code" site from 1993 (aka: TIP908.LSP). Will keep them both for good measure.

Thanks again.

- Tracy

 

Tim,

That was perfect, works with MTEXT also... thank you again!

 

Tracy,

That was just one I wrote because it was getting to be a pain in the butt. I never thought anyone else had that problem with text and parenthesis. Glad someone else can use it.

Tim