Remove Character Formatting From Tables
@Anonymous wrote:
Can anyone confirm there's no way to globally remove character formatting from tables? ..
Are you referring to ACAD_TABLE or something else?
Accepted solution
(defun c:stripFormT ( / LM:UnFormat table col row)
(defun LM:UnFormat ( str mtx / _Replace regex ) (vl-load-com)
;; © Lee Mac 2010
(defun _Replace ( new old str )
(vlax-put-property regex 'pattern old) (vlax-invoke regex 'replace str new)
)
(setq regex (vlax-get-or-create-object "VBScript.RegExp"))
(mapcar
(function
(lambda ( x ) (vlax-put-property regex (car x) (cdr x)))
)
(list (cons 'global actrue) (cons 'ignorecase acfalse) (cons 'multiline actrue))
)
(mapcar
(function
(lambda ( x ) (setq str (_Replace (car x) (cdr x) str)))
)
'(
("Ð" . "\\\\\\\\")
(" " . "\\\\P|\\n|\\t")
("$1" . "\\\\(\\\\[ACcFfHLlOopQTW])|\\\\[ACcFfHLlOopQTW][^\\\\;]*;|\\\\[ACcFfHLlOopQTW]")
("$1$2/$3" . "([^\\\\])\\\\S([^;]*)[/#\\^]([^;]*);")
("$1$2" . "\\\\(\\\\S)|[\\\\](})|}")
("$1" . "[\\\\]({)|{")
)
)
(setq str
(if mtx
(_Replace "\\\\" "Ð" (_Replace "\\$1$2$3" "(\\\\[ACcFfHLlOoPpQSTW])|({)|(})" str))
(_Replace "\\" "Ð" str)
)
)
(vlax-release-object regex)
str
)
(if
(setq table (ssget "_:S:E:L" '((0 . "ACAD_TABLE" ))))
(progn
(vla-put-regeneratetablesuppressed (setq table (vlax-ename->vla-object (ssname table 0))) :vlax-true)
(setq row (1- (vlax-get table 'Rows)))
(setq col (vlax-get table 'Columns))
(repeat row
((lambda (n)
(repeat n
(setq n (1- n))
(if (/= (setq f (vlax-invoke table 'GetText row n)) "")
(progn
(setq unformatted (LM:UnFormat f nil))
(vlax-invoke table 'SetText row n unformatted)))
)
)
col
)
(setq row (1- row))
)
(vla-put-regeneratetablesuppressed table :vlax-false)
)
)
(princ)
)
@Anonymous wrote:
This script works almost perfect. Unfortunately it doesn't remove prefix from table text which looks like this:
{\fCalibri|b0|i0;
Because there could be more issues to find, which is more likely than not. please post a sample drawing.
I also found that formatting depends if there are any changes inside text (bold, color change).
If there is no formatting inside text has value:
Entity value=
(1 . "{\\fCalibri|b0|i0;Simple text 1\n\nSimple text 2\n\nSimple text 3")
Text value=
{\\fCalibri|b0|i0;Simple text 1\n\nSimple text 2\n\nSimple text 3
If there is some formatting inside text has value:
Entity value=
(1 . "{\\fCalibri|b0|i0|c1|p0;Simple text 1\n\\fCalibri|b1|i0|c1|p0;\\C3;\nSimple text 2\\fCalibri|b0|i0|c1|p0;\\C0;\n\nSimple text 3}")
Text value=
{\\fCalibri|b0|i0|c1|p0;Simple text 1\n\\fCalibri|b1|i0|c1|p0;\\C3;\nSimple text 2\\fCalibri|b0|i0|c1|p0;\\C0;\n\nSimple text 3}
In both situations I wish to get as result only texts and new line chars:
Entity value=
(1 . "Simple text 1\n\nSimple text 2\n\nSimple text 3")
Text value=
Simple text 1\n\nSimple text 2\n\nSimple text 3
Attached new DWG file with changed texts in tables.
And how are you expecting the results to look? does it keep the "new lines" flag
- Simple text 1
- Simple text 2
- Simple text 3
or simply
- Simple text 1 Simple text 2 Simple text 3
EDIT: I wasnt paying attention at all, you already mentioned it at post #9 [ silly me ]
@Anonymous wrote:
I wish to keep "new lines" information. It can be also done as a choice how to treat "new lines".
Primary reason why the code doesn't do anything is because it skips the header, [ 0 = row 1 ]
command: STRIPFORMT
Keep new line format [Yes/No]:
HTH
