longyu 发表于 2002-7-29 13:44:00

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

我在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 发表于 2002-7-29 21:36:00

curdir()返回的是当时目录

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

longyu 发表于 2002-7-30 11:25:00

对于我所说的问题要如何更改？

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

mccad 发表于 2002-7-30 12:54:00

对，只要你的simsun.ttf字体在搜索路径中，就可以找到

longyu 发表于 2002-7-30 16:02:00

我试了，怎么不行？

我试了，怎么不行？

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

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

longyu 发表于 2002-8-1 11:00:00

大家帮帮忙啊，看看

我试了，怎么不行，是不是还要加上findfile函数，加在哪里？ 要是加上的话，把实用函数里的findfile()粘过来就行了嘛，要改动哪里？？   
最好举个例，这样比较好理解，谢谢了！
页: [1]
查看完整版本: 当前路径curdir()问题！！！