通过ARX获取加载的LISP文件的完整路径

admin1

// 通过ARX获取加载的LISP文件的完整路径
        static void MyGroupTT4()
        {
                AcApDocument* pActiveDoc = acDocManager->mdiActiveDocument();
                // count of LISP files
                int lispCount = pActiveDoc->GetCountOfLispList();
                CString msg;
                msg.Format(L"count of LISP file: %d", lispCount);
                MessageBox(NULL, msg,(ACRX_T("\nMSDD 说明！!")),  0);
                // each LISP info
                for (int index = 0; index < lispCount; index++)
                {
                        TCHAR msg1[256] = { 0 };
                        AcLispAppInfo *pEachInfo = pActiveDoc->GetItemOfLispList(index);
                        _tcscat(msg1, pEachInfo->appFileName);
                        if (pEachInfo->bUnloadable)
                                _tcscat(msg1, L"\nloadable\n");
                        else
                                _tcscat(msg1, L"\nunloadable\n");
                        MessageBox(NULL, msg,(ACRX_T("\nMSDD 说明!")), 0);
                }
        }