Hi
What I get from your last post ......... (and also your attached drawing).....
1 First have to create a Text Style named "ROMANS" ......with below properties.....

2 Then change all text, mtext, rtext, dtext .....styles to that style named "ROMANS"......
Then try this........
First put all the drawings in a single folder & run the code it will ask to select the Folder Containing the drawings you just select the folder & move forward......Code will work itself on all the drawings in side that folder.....
But before running the Lisp make sure about two things-
1. There is only one Drawing is open (other than any drawing which one you want to edit), otherwise SDI Variable can not be reset.
2. Wait for complete execution of the command, otherwise SDI Variable will not restored back.
(defun c:CTS ( / sh folder folderobject result)
(vl-load-com)
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
(setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "" 0 ))
(vlax-release-object sh)
(setq SDI_Val (getvar "SDI"))
(setq LISPI_Val (getvar "LISPINIT"))
(vl-cmdf "SDI" 1)
(vl-cmdf "LISPINIT" 0)
(if folder
(progn
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(vlax-release-object folder)
(vlax-release-object FolderObject)
(setq Files_Folder (vl-directory-files result "*.dwg"))
(command "save" (strcat (getvar "dwgprefix") (getvar "dwgname")) "Y")
(setq NO 0)
(while (< NO (length Files_Folder))
(command "fileopen" (strcat result "\\" (nth NO Files_Folder)))
(entmake (list
'(0 . "STYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord")
(cons 2 "ROMANS");Text Style Name
'(70 . 0)
'(40 . 0.0)
'(41 . 1.0)
'(50 . 0.0)
'(71 . 0)
'(42 . 0.09375)
(cons 3 "C:\\Windows\\Fonts\\romans.shx")
'(4 . "")
)
)
(Setq selectionset (ssget "_A" '((0 . "*TEXT"))))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq Text_Style (cdr (assoc 7 EntityData)))
(if (/= Text_Style "ROMANS")
(entmod (subst (cons 7 "ROMANS")(assoc 7 EntityData)EntityData))
)
)
(vl-cmdf "save" (strcat result "\\" (nth NO Files_Folder)))
(setq NO (+ 1 NO))
)
)
)
(vl-cmdf "SDI" SDI_Val)
(vl-cmdf "LISPINIT" LISPI_Val)
)
Debashis Bhunia
Co-Founder of Geometrifying Trigonometry(C)
________________________________________________
Walking is the First step of Running, Technique comes Next....