如何添加_ADSSYMBOL_ENTRY

xinxirong

通程序注册Lisp函数是在加载arx成功后调用这类这样的：
     int i;
     for (i = 0; i <  ELEMENTS(func_table); i++) {
         if (!acedDefun(func_table.func_name, (short)i))
             return RTERROR;
     }

、如果是用wizard生成的程序则是这样的：
    virtual AcRx::AppRetCode On_kInvkSubrMsg (void *pkt) {
        AcRx::AppRetCode retCode =AcRxDbxApp::On_kInvkSubrMsg (pkt) ;
        //----- Dispatch ADS symbol calls
        int param =acedGetFunCode () ;
        _ADSSYMBOL_ENTRY **ppAdsSymbolMapEntryFirst =&__pAdsSymbolMapEntryFirst + 1 ;
        _ADSSYMBOL_ENTRY **ppAdsSymbolMapEntryLast =&__pAdsSymbolMapEntryLast ;
        int paramIter =0 ;
        for ( _ADSSYMBOL_ENTRY **ppEntry =ppAdsSymbolMapEntryFirst ; ppEntry < ppAdsSymbolMapEntryLast ; ppEntry++ ) {
            if ( *ppEntry != NULL ) {
                if ( paramIter++ == param ) {
                    (*((*ppEntry)->fptr)) () ;
                    break ;
                }
            }
        }
        return (retCode) ;
    }



不  不知道怎样动态注册Lisp function，而不是用宏 ACED_ADSSYMBOL_ENTRY_AUTO