提示"错误: Automation 错误。 文件处理器错误"，我该怎么修改？

Question

下面的这个LISP函数无法执行，提示"错误: Automation 错误。 文件处理器错误"，求解决或者修改办法

(defun c:KAt (/ myacad mydoc myms newtext
newfontfile newbigfontfile NEWSTR
STR ss obj POS STRL
);改变字体为楷件
(vl-load-com)
(setq myacad (vlax-get-acad-object))
(setq mydoc (vla-get-activedocument myacad))
(setq myms (vla-get-modelspace mydoc))
(Setq newText (vla-add (vla-get-TextStyles mydoc) "楷体"))
(setq newFontFile "C:\WINDOWS\Fonts/simkai.ttf")
(vla-put-FontFile newText newFontFile)
(prompt
"\nSelect MTEXT OR TXT to be changed to <楷体 style>by 向赞扬"
)
(setq ss (ssget '((-4 . "<or")
(0 . "TEXT")
(0 . "MTEXT")
(0 . "DIMENSION")
(-4 . "or>")
)
)
)
(repeat (setq I (sslength SS))
(setq OBJ (vlax-ename->vla-object (ssname SS (setq I (1- I)))))
(setq objname (vla-get-ObjectName OBJ))
(if (or (= objname "AcDbMText") (= objname "AcDbText"))
(progn
(SETQ str (vla-get-TextString OBJ))
(IF (WCMATCH STR "*;*")
(PROGN (SETQ STRL (STRLEN STR))
(setq pos (vl-string-position 59 str))
(IF (/= STRL POS)
(SETQ POS (+ POS 2))
)
(SETQ NEWSTR (substr str pos (- STRL pos)))
(setq
NEWSTR
(strcat "{\\fKaiTi_GB2312|b0|i0|c134|p49;" NEWSTR "}")
)
(vla-put-TextString OBJ NEWSTR)
)
)
(vla-put-StyleName OBJ "楷体")
)
)
(if (= objname "AcDbRotatedDimension")
(vla-put-TextStyle OBJ "楷体")
)
)
)
谢谢了

Answer 1

(setq newFontFile "C:\WINDOWS\Fonts/simkai.ttf")改为(setq newFontFile "C:\\WINDOWS\\Fonts\\simkai.ttf")或者(setq newFontFile "C:/WINDOWS/Fonts/simkai.ttf")