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

admin1

[code]static void getLISPFullPathByARX()

{

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,msg,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,msg1,msg1,0);

}



}[/code]