LISP to change font of text styles from Revit export

[zride91]

I've been working on a script to run in .DWG files to clean them up and standardize them after a Revit to .DWG export.

When Revit exports to DWG, the DWG will have multiple text styles used for every instance of viewport within the sheet. So, in the exported file, I wind up with multiple similar text styles.

For instance, in Revit, we use the RomanD font, and it exports to multiple RomanD text styles, I'll have RomanD, RomanD_1, RomanD_2, etc...

I need a lisp to change the font in all these RomanD text styles to RomanS.shx to meet client standards.

I've seen a few ways of doing this such as the command line below:
(command "_style" "RomanD" "romans.shx" "" "" "" "" "" "")

I'd like to do something like this, but have a wildcard in the style to change so that all RomanD* text styles has it's font changed to RomanS.shx. The amount of exported RomanD text styles varies per sheet/DWG file.

Any help would be appreciated.

Thank you!

[marko_ribar]

Untested, but should work... See if it needs debugging...

(defun c:allstyle2romansshx nil
  (foreach st (ai_table "STYLE" 4)
    (command "_.STYLE" st "romans.shx")
    (while (< 0 (getvar 'cmdactive))
      (command "")
    )
  )
  (princ)
)

HTH, M.R.

[zride91]

Thank you Marko.
I may be missing something, but is there something that I am supposed to edit to put the wild card in so that I am only changing the styles with "RomandD" included in the style name? This looks to change ALL styles in the file. As a clarification, I am only looking to change styles with "RomanD" in the name, like RomanD_1, RomanD_2, RomanD_3, etc... I do not want other text styles changed that would be named something else (such as Arial).

Thank you,

Dave

- - - Updated - - -

To get us by, I am currently just running the below command line a dozen times to edit or create text styles (if they were not previously in the file), then I just run a purge to get rid of the styles not used. So the script will basically edit/create 12 RomanD text styles, then purge the ones not used. It is doing the trick so far as long as Revit keeps it under 12 similar text styles...

(command "_style" "RomanD" "romans.shx" "" "" "" "" "" "")
(command "_style" "RomanD_1" "romans.shx" "" "" "" "" "" "")
(command "_style" "RomanD_2" "romans.shx" "" "" "" "" "" "")
...

[marko_ribar]

(defun c:allstyle2romansshx nil
  (foreach st (ai_table "STYLE" 4)
    (if (wcmatch st "RomanD*")
      (progn
        (command "_.STYLE" st "romans.shx")
        (while (< 0 (getvar 'cmdactive))
          (command "")
        )
      )
    )
  )
  (princ)
)