[编程申请]：acedDefun

binbin

// ObjectARX EntryPoint
extern "C" AcRx::AppRetCode
acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
{
        switch (msg) {
        case AcRx::kInvkSubrMsg:
                OnkInvkSubrMsg();
                break;
        case AcRx::kInitAppMsg:
                // Comment out the following line if your
                // application should be locked into memory
                acrxDynamicLinker->unlockApplication(pkt);
                acrxDynamicLinker->registerAppMDIAware(pkt);
                InitApplication();

               
                acedDefun(MYfun1,0);//////定义我的函数
                acedDefun(MYfun2,0);

                break;
        case AcRx::kUnloadAppMsg:
                UnloadApplication();
                break;
        }
        return AcRx::kRetOK;
}


// Entry point message handler function
void OnkInvkSubrMsg()
{
#ifdef OARXWIZDEBUG
        acutPrintf ("\nOARXWIZDEBUG - OnkInvkSubrMsg() called.");
#endif // OARXWIZDEBUG

        // TODO: Implement this message handler

        if .......(如果什么?)
        {
                MYfun1();
        }
        else
        {
                MYfun2();
        }
}

XDSoft

最初由 binbin 发布
[B]// ObjectARX EntryPoint
extern "C" AcRx::AppRetCode
acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
{
        switch (msg) {
        case AcRx::kInvkSubrMsg:
                OnkInvkSubrMsg();
                break;
        case AcRx::kInitA... [/B]

没有看明白你这个帖子的意思，能说说吗？

binbin

我的MYfun1();MYfun2();是有返回值的.比如double,ads_name;而用向导生成的程序不具备这样的功能!怎办?能不能用MYfun2(int &i)这样的.

XDSoft

最初由 binbin 发布
[B]我的MYfun1();MYfun2();是有返回值的.比如double,ads_name;而用向导生成的程序不具备这样的功能!怎办?能不能用MYfun2(int &i)这样的. [/B]

ADSRX程序必须返回RTNORM或者RSRSLT，你是说要返回值给LISP吗？如果是可以用ads_retint,ads_retreal,ads_retstr,ads_retpoint,ads_retlist,ads_rett,ads_retnil