topic Re: Text style that isn't use and cannot be purged in Visual LISP, AutoLISP and General Customization Forum

Text style that isn't use and cannot be purged

Brian.TsaiF883G — Fri, 07 Mar 2025 05:10:22 GMT

The attached file is what I am able to isolate as the problem

everything says that I only have have 'standard' text style

when it is in table, the cell states it is 'Standard' text style

after purging, auditing, and scalelistedit reset, it still has the 2 text styles

i can achieve only 'standard' text style by either

a) i explode the table into lines and MText and proceed with above,

b) manually edit new text in Table cell

the 'find' and replace function does not delete the non'standard' text style

any reason the attached file text is special?

I am trying to make a lisp that would get rid these special text's text style and set it to 'standard' text style

Re: Text style that isn't use and cannot be purged

Sea-Haven — Fri, 07 Mar 2025 06:43:14 GMT

I just did a purge and the 2nd text style was there and its gone now.

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Fri, 07 Mar 2025 06:51:38 GMT

I'm using Product Version: Q 47.0.0 AutoCAD 2020 and it failed
Product Version: Q 51.0.0 AutoCAD 2022 and it failed

what version are you using?

Re: Text style that isn't use and cannot be purged

Sea-Haven — Fri, 07 Mar 2025 07:06:23 GMT

Bricscad V25. A sometimes add a text using other style then erase and try purge again.

Re: Text style that isn't use and cannot be purged

paullimapa — Fri, 07 Mar 2025 07:07:17 GMT

These are the steps I took to manually remove & then purge Style:

RHIO-1020-ME-PAD-0005.02.IFC.02.01_PDS$0$CSI TITLE BLOCK

First the Purge command confirms that style is Non-Purgeable & in use inside a Table:

Next I use the TABLEDIT command & selected the Cell then immediately clicked a point outside the Table to conclude the command without changing anything.

Now when I enter the PURGE command that style is purgeable:

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Fri, 07 Mar 2025 07:13:23 GMT

thanks that works

but i have many many of these cases randomly in random tables and in a random files

What i don't understand is, why is it happening when the properties states it is 'Standard' text style and why we have to go through 'Tabledit' to 'refresh' it?

is there a lisp/ reasoning the text style is unpurgable without 'Tabledit' first?

Re: Text style that isn't use and cannot be purged

paullimapa — Fri, 07 Mar 2025 08:01:47 GMT

This may give you a hint on how to do this on a mass selection set:

There's a routine written by Tharwat here called Test.lsp:

https://www.cadtutor.net/forum/topic/63542-table-cell-style-via-lisp/

(defun c:Test ( / sty tbl obj row col r c) ;; Tharwat - Date: 11.Jul.2017 ;; ; (setq sty "Standard") ;; Change the Text Style to suit your desired one. (setq sty "Arial") ;; Change the Text Style to suit your desired one. (if (and (or (tblsearch "STYLE" sty) (alert (strcat "Text style <" sty "> is not found in drawing <!>")) ) (princ "\nPick on Table :") (setq tbl (ssget "_+.:S:E:L" '((0 . "ACAD_TABLE")))) (setq obj (vlax-ename->vla-object (ssname tbl 0)) row (vla-get-rows obj) col (vla-get-columns obj) r 0 c 0 ) ) (repeat row (repeat col (vla-setcelltextstyle obj r c sty) (setq c (1+ c)) ) (setq r (1+ r) c 0) ) ) (princ) )

It allows you to select one Table object to change the Text Style in all the cells.

So what I did was first created a new Style called Arial using Arial.ttf font.

Then I ran the Test.lsp function to change the selected Table cell Style to Arial.

Then I'm able to Purge the problem Style.

Then I edited Test.lsp function to change the selected Table cell Style back to Standard.

After that I Purge the Arial Text Style.

Re: Text style that isn't use and cannot be purged

cadffm — Fri, 07 Mar 2025 09:11:40 GMT

Hi,

because it wasn't the challange to change styles in tables, you can use this "UpdateTables" command, what does not change the table.

(you have to manage layer locking on your own)

; updated code (defun c:UpdateTables ( / tbls) (if (setq n -1 tbls (ssget "_X" '((0 . "ACAD_TABLE")))) (repeat (sslength tbls) (entmod (entget(ssname tbls (setq n (1+ n))))) ) ) (princ) )

Re: Text style that isn't use and cannot be purged

pendean — Fri, 07 Mar 2025 15:22:44 GMT

@Brian.TsaiF883G Do you folks not implement and use CHECKSTANDARDS tools? You create a standards template file to address these non-standards types of issues then run it.

Re: Text style that isn't use and cannot be purged

paullimapa — Fri, 07 Mar 2025 18:40:34 GMT

excellent routine to fix the problem!!!

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Mon, 10 Mar 2025 05:11:03 GMT

Many thanks.

I didn't know about CHECKSTANDARDS

I tried CHECKSTANDARDS and now i have problem fixing many many dimensions one by one

I tried the Batch Standard Checker and it only generates a report without fixing them

I tried to reprogram the code below but failed to get it to update all tables in all block references

can anyone point out which part in the code below need fixing?

(defun c:BUT ( / tbls blkname blklist ent)

(if (setq n -1 tbls (ssget "_X" '((0 . "ACAD_TABLE"))))

(repeat (sslength tbls)

(entmod (entget(ssname tbls (setq n (1+ n)))))

)

(while (setq blkname (cdadr (tblnext "block" (not blkname))))

(if

(not

(or

(wcmatch blkname "`*D*,*|*"); Dimension or Xref-dependent

(assoc 1 (tblsearch "block" blkname)); an Xref

(member blkname blklist); already in the list

); or

); not

(setq blklist (cons blkname blklist))

); if

); while

(foreach blkname blklist

(setq ent (tblobjname "block" blkname))

(while (setq ent (entnext ent))

(if (wcmatch (cdr (assoc 0 (setq edata (entget ent)))) "ACAD_TABLE")

; (if (setq n -1 tbls (ssget "_X" '((0 . "ACAD_TABLE"))))

; (repeat (sslength tbls)

(entmod (entget(ssname tbls (setq n (1+ n)))))

; )

)

); while

); foreach

(princ)

)

Re: Text style that isn't use and cannot be purged

cadffm — Mon, 10 Mar 2025 07:21:05 GMT

Untested.

at the end you are using

(entmod (entget(ssname tbls (setq n (1+ n)))))

what doesn't make any sense, replace it with

(entmod edata)

try it again.

I didn't searched for other issues

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Wed, 12 Mar 2025 07:42:48 GMT

It works!

Many thanks 🙂

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Fri, 14 Mar 2025 04:43:46 GMT

I have a new case with the same problem but this time, it is on a leader entity with no text at all

Is there any reason this leader entity is so special?

Re: Text style that isn't use and cannot be purged

Sea-Haven — Fri, 14 Mar 2025 09:33:49 GMT

Just a guess its buried away in side your table style some how. Do you start drafting with a DWT or pick an existing dwg ? You may need a "Clean" dwg to start with. What happens if you use a good dwg and erase everything in Model & layouts.

There is a message about the style being referenced. I know for another project with errors on load it took hours to find a style in dwg objects.

Re: Text style that isn't use and cannot be purged

Brian.TsaiF883G — Mon, 17 Mar 2025 04:10:09 GMT

True

But I'm dealing with various drawings at the moment so there are many inconsistencies in random files.

So now I am trying to 'controlled clean' up all so that will not affect intentional formatting/information in the drawing.

Does anyone know why leader entity have embedded text style?

Re: Text style that isn't use and cannot be purged

cadffm — Mon, 17 Mar 2025 11:49:28 GMT

Hi,

>>"Does anyone know why leader entity have embedded text style?"

EDITED: Why THIS leader entity refers to a Style: ~~I don't know it.~~ Because someone changed the arrowhead, in this case the text style will linked as override to the leader object.

But I'm not so good with LEADER objects either, they're really cool if you don't just use the ootb editing tools.

It's new for me in Acad that DSTYLE informations contains a Style-1005

Perhaps generated from the Pro Stahl 3D Application?