[讨论]：再论：如何获取CAD中所有加载程序的路径？

netbee

在CAD的［工具］下拉中［加载应用程序］中就可以看见所有加载的程序文件　，及其路径。

理论上讲，这些都在CAD的某个地方，应该能访问的。

可是，我也不知道！＾＿＾。。。。。。

Free-Lancer

Lisp 和 ActiveX 是没有办法了，Doslib 中有这样的函数，如果你会ARX 可以给大家写一个这样的函数，在 ARX 中是很简单的事情。

AcApDocument::GetCountOfLispList Function virtual int

GetCountOfLispList() const = 0;

Returns number of loaded LISP applications.


AcApDocument::GetItemOfLispList Function virtual AcLispAppInfo *

GetItemOfLispList(

int nIndex) const = 0;

nIndex Input index to the list of loaded LISP applications

Accesses the list of loaded LISP applications and returns information corresponding to the specified index.

gucci218

r14中，查找外部已加载过的lisp文件可以看appload.dfs。2000i的估计是用arx实现的，不懂了。

fsxm

上次讨论时
找到了 LSP 加载的路径在注册表中的：
HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp
下面！
其它的还不清楚~

netbee

这只是操作系统XP的历史记录而已，它只记录用户通过菜单加载应用程序时的记录，并不真实。若用户是用其他方式加载的程序就无法了。

飞马牌汽车

http://www.xdcad.net/forum/showthread.php?s=&threadid=559926
的3楼好像提过arx的

zzqxuexicad

直接在acad2000doc.lsp文件中写上(aultoload "文件名" ' ("命令名"))则自动加载文件,且命令直接执行.

shysky520

我这个也不懂,想来看看,可你们说的我还是看不懂

netbee

最初由 飞马牌汽车 发布
[B]http://www.xdcad.net/forum/showthread.php?s=&threadid=559926
的3楼好像提过arx的 [/B]

效率不是一般的低，它是遍历硬盘上所有文件呀!而且若同名文件则出错。

eachy

这是 winapi 中的一部分
[php]
int getLoadedLispApps(resbuf *rb)
{
        AcApDocument* pDoc = NULL;
        int retCode;
        TCHAR  *lpPath, *lpBuffer;

        pDoc = acDocManager->mdiActiveDocument();
        long count = pDoc->GetCountOfLispList();

        if (count > 0) {
                resbuf *pRbFirst = NULL, *pRbNext = NULL, *pRbLast = NULL;
                for (long i = 0; i < count; i++) {
                        pRbNext = new resbuf;
                        pRbNext->restype = RTSTR;
                        lpPath = pDoc->GetItemOfLispList(i)->appFileName;
                        lpBuffer = new TCHAR[_tcslen(lpPath)];
                        _tcscpy(lpBuffer, lpPath);
                        pRbNext->resval.rstring = lpBuffer;

                        if (pRbFirst == NULL) {
                                pRbFirst = pRbLast = pRbNext;
                        } else {
                                pRbLast->rbnext = pRbNext;
                                pRbNext = pRbLast;
                        }
                }
                retCode = acedRetList(pRbFirst);
                acutRelRb(pRbLast);
                acutRelRb(pRbNext);
                acutRelRb(pRbFirst);
        } else {
                retCode = acedRetNil();
        }

        return retCode;
}[/php]