AutoCAD vba 路径问题
本帖最后由 作者 于 2008-3-14 11:45:04 编辑 <br /><br /> <p>VBA中 能否使用 相对路径,</p><p>比如: </p><p>图形文件位置是D:\喷涂设备\模组\泵\ </p><p>VBA文件位置是 D:\MYWORK\CADCAM</p><p>绝对路径使用时候不太方便, 毕竟不同机器中文件夹位置不同</p><p>能否把VBA文件和图形文件放在同一个文件夹下.用相对路径运行</p><p></p> <p>不要用相对路径，得到当前运行的VBA程序文件自己所在的路径,问题就解决啦</p><p><br/>（“工具”－》“参照”－－》Microsoft Visual Basic for Applications Extensibility）<br/>ThisDrawing.Application.VBE.ActiveVBProject.filename</p><p></p><p></p><p>=====================================================<br/>西北凡人----http://www.abofanyi.com/blog</p><p></p> <p>AutoCAD VBA二次开发教程的解法是</p><p> <font color="#008000">' 获得数据库文件的位置</font><br/> <font color="#0000ff">Dim</font> strDbName <font color="#0000ff">As</font><font color="#0000ff">String</font><br/> <font color="#0000ff">Dim</font> strProject <font color="#0000ff">As</font>
<font color="#0000ff">String</font><br/> strProject <font color="#0000ff">=</font>
<font color="#0000ff">Left</font><font color="#ff0000">(</font>ThisDrawing.<font color="#0000ff">Application</font>.VBE.activevbProject.<font color="#0000ff">FileName</font>, _<br/> Len<font color="#ff0000">(</font>ThisDrawing.<font color="#0000ff">Application</font>.VBE.activevbProject.<font color="#0000ff">FileName</font><font color="#ff0000">)</font>
<font color="#0000ff">-</font> 19<font color="#ff0000">)</font><br/><br/> strDbName <font color="#0000ff">=</font> strProject & <font color="#880000">"\mdb\"</font> & InputDataBaseName & <font color="#880000">".mdb"</font><br/> adoCon.<font color="#0000ff">Open</font>
<font color="#880000">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="</font> & _<br/> strDbName & <font color="#880000">";"</font><br/></p>
页:
[1]