当前路径curdir()问题！！！

longyu

我在c驱动器下新建了一个文件夹，所有的东西都放在里面，其中有一个font，里面是simsun.ttf宋体，我的AutoCAD装在d驱动器下，在vba中用文字样式，并设置字体，
Dim atTxtObj As AcadTextStyle
Set atTxtObj = ThisDrawing.ActiveTextStyle
atTxtObj.fontFile = "c:\glcad\font\simsun.ttf\"

我现在要用curdir()，汉字也能显示出来，我看了示例，也改过了，可是还是不行，不是很清楚，最后一句要怎么改？？？怎么用curdir()？

mccad

这个目录是每次都有可能不同，所以一般不要使用这个函数返回目录。
你可以使用替代的findfile()函数(自定义，在实用函数中)可返回搜索路径中存在你需要的文件的目录。

longyu

对于我所说的问题要如何更改？是改最后一句嘛，怎么写？？
Dim atTxtObj As AcadTextStyle
Set atTxtObj = ThisDrawing.ActiveTextStyle
atTxtObj.fontFile = "c:\glcad\font\simsun.ttf"
后一句改为：
atTxtObj.fontFile = findfile(simsun.ttf),对嘛？？

mccad

longyu

我试了，怎么不行？

能不能说的具体一点，是不是还要加上findfile函数，加在哪里？

要是加上的话，把实用函数里的findfile()粘过来就行了嘛，要改动哪里？？

longyu

我试了，怎么不行，是不是还要加上findfile函数，加在哪里？ 要是加上的话，把实用函数里的findfile()粘过来就行了嘛，要改动哪里？？   
最好举个例，这样比较好理解，谢谢了！