(defun C:SWFONTSTAHOMA ()
	(SWITCHALLFONTS "tahoma.ttf")
	(princ)
)  ;defun C:SWFONTSROMANS
(defun SWITCHALLFONTS (fontnam / cdwgobj) 
	(vlax-for for-item
		(vla-get-textstyles
			(setq cdwgobj 
				(vla-get-activedocument
					(vlax-get-acad-object)
				) 
			)
		)
		(if (/= (vla-get-name FOR-ITEM) "")
			(progn
				(vl-catch-all-apply
					'(lambda (x)(vla-put-fontfile for-item x))
					(list fontnam)
				)
			)
		)
	)
	(vla-regen cdwgobj 0)
	(prin1)
)  ;defun SwitchAllFonts
(defun  SWITCHBLKTXT2TAHOMA (/ ss n1 index ent elist ename elist sub)
	;Substitutes "Tahoma" for all text styles in non-attributed
	;block text.
	(setq ss (ssget "X" '((0 . "INSERT"))))
	(setq n1 (sslength ss))
	(setq index 0)
	(repeat n1
		(setq ent (ssname ss index))
		(setq elist (entget ent))
		(setq ename (tblobjname "block" (cdr (assoc 2 elist))))
		(setq elist (entget ename))
		(setq sub (entnext ename))	
		(while sub
			(if (= (cdr (assoc 0 (entget sub))) "TEXT") (DOSTYLESUB))
			(setq sub (entnext sub))
		)
		(setq index (1+ index))
	)
)  ;defun  SWITCHBLKTXT2TAHOMA
(defun C:SWBT2T () (SWITCHBLKTXT2TAHOMA))
(defun DOSTYLESUB ()
	(entmod (subst (cons 7 "Tahoma") (assoc 7 (entget sub)) (entget sub)))
)