如何编程修改汉字字形为中国宋体字体

我的图形中Standard字形使用的是TXT.SHP字体，我希望通过LISP程序改为使用Windows中的宋体或者楷体，请问如何编程

遍历所有dwg文件，然后遍历文件中的字体，找到standard的话修改其字体文件定义。
思路就是如上，具体代码就要看相应语法了。俺只用vba干过这事。