求一完整的程序

别晨

刚学ObjectARX，看见用向导生成的程序框架ObjectArx2002+VC6和ObjectArx2004+Vc.net2002有所不同，手头缺少arx2004的资料，谁有这方面的资料，能否共享一下
，另求一个用ObjectArx2004+Vc.net2002写的关闭冻结锁定所有图层的完整程序。^_^

wzz1968

#include <stdio.h>
#include <math.h>
#include <string.h>
#include <windows.h>
#include <aced.h>
#include <rxregsvc.h>
#include <adslib.h>
#include <adsdlg.h>
#include <acutmem.h>

/***************************************************************************/

void initApp();
void unloadApp();

void helloWorld();
/*************************************************************************/
extern "C" AcRx::AppRetCode acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
{
    switch (msg)
     {
  case AcRx::kInitAppMsg:
   acrxDynamicLinker->unlockApplication(pkt);
   acrxRegisterAppMDIAware(pkt);
   initApp();
   break;
  case AcRx::kUnloadAppMsg:
   unloadApp();
   break;
  default:
  break;
    }
    return AcRx::kRetOK;
}
/********************************************************************************/
void initApp()
{
    acedRegCmds->addCommand("HELLOWORLD_COMMANDS","Hello","hello",
                            ACRX_CMD_TRANSPARENT,helloWorld);
}
/**********************************************************************************/
void unloadApp()
{
    acedRegCmds->removeGroup("HELLOWORLD_COMMANDS");
}
/************************************************************************************/
void helloWorld()
{
        ads_point pt1,pt2;
     int i;
  struct resbuf rb1,rb2;
        ads_getvar("osmode",&rb1);
  rb2.restype=RTSHORT;rb2.resval.rint=(short)0;
  ads_setvar("osmode",&rb2);
  pt1[X]=0;pt2[X]=100;
  pt1[Y]=pt2[Y]=0;
        for (i=0;i<100;i++)
  {
     pt1[Y]=pt2[Y]=7*i;
     ads_command(RTSTR,"line",RTPOINT,pt1,RTPOINT,pt2,RTSTR,"",0);
  }    
  ads_setvar("osnap",&rb1);
  ads_printf("\nHello World!");
}