[ARX程序]：模拟AutoCAD14下的Express部分工具

sy_sl

大家用惯了AutoCAD14中附带的Express工具，在CAD2002中没有提供该工具，以下为我编写的几个模块使现其部分功能
void slSLSETCUR()
{
#ifdef OARXWIZDEBUG
        acutPrintf ("\nOARXWIZDEBUG - slSLSETCUR() called.");
#endif // OARXWIZDEBUG

        AcDbDatabase *pDb=acdbHostApplicationServices()->workingDatabase();
       
        ads_name name;
        ads_point pt;
        if(acedEntSel("ent:",name,pt)!=RTNORM)return;
        AcDbObjectId EntId;
        acdbGetObjectId(EntId,name);
        AcDbEntity *pEnt=NULL;
        if(acdbOpenObject(pEnt,EntId,AcDb::kForRead)!=Acad::eOk)return;
        CString LayerName;
        LayerName.Format("%s",pEnt->layer());
        pEnt->close();
        struct resbuf Rb;
        Rb.restype=RTSTR;
        Rb.resval.rstring=new char[255];
        strcpy(Rb.resval.rstring,LPCTSTR(LayerName));
        acedSetVar("CLAYER",&Rb);
       




}

//-----------------------------------------------------------------------------
// This is command 'SETON, by  [六月/29/2003], ,
void slSLSETON()
{
#ifdef OARXWIZDEBUG
        acutPrintf ("\nOARXWIZDEBUG - slSLSETON() called.");
#endif // OARXWIZDEBUG

        AcDbDatabase *pDb=acdbHostApplicationServices()->workingDatabase();
       

        CStringArray LayerArray;
        getAllLayerName(LayerArray);
        for(int i=0;i<LayerArray.GetSize();i++)
        {

                AcDbObjectId Id;
                AcDbSymbolUtilities::getLayerId(Id,LayerArray.GetAt(i),pDb);
                AcDbLayerTableRecord *pRecord=NULL;
                acdbOpenObject(pRecord,Id,AcDb::kForWrite);
                pRecord->setIsOff(FALSE);
                pRecord->close();
               
        }
       
}

//-----------------------------------------------------------------------------
// This is command 'SETOFF, by  [七月/01/2003], ,
void slSLSETOFF()
{
#ifdef OARXWIZDEBUG
        acutPrintf ("\nOARXWIZDEBUG - slSLSETOFF() called.");
#endif // OARXWIZDEBUG

        AcDbDatabase *pDb=acdbHostApplicationServices()->workingDatabase();
       
        ads_name name;
        ads_point pt;
        if(acedEntSel("ent:",name,pt)!=RTNORM)return;
        AcDbObjectId EntId;
        acdbGetObjectId(EntId,name);
        AcDbEntity *pEnt=NULL;
        if(acdbOpenObject(pEnt,EntId,AcDb::kForRead)!=Acad::eOk)return;
        CString LayerName;
        LayerName.Format("%s",pEnt->layer());
        pEnt->close();
        CStringArray LayerArray;
        getAllLayerName(LayerArray);
        for(int i=0;i<LayerArray.GetSize();i++)
        {
                if(LayerName==LayerArray.GetAt(i))continue;
                AcDbObjectId Id;
                AcDbSymbolUtilities::getLayerId(Id,LayerArray.GetAt(i),pDb);
                AcDbLayerTableRecord *pRecord=NULL;
                acdbOpenObject(pRecord,Id,AcDb::kForWrite);
                pRecord->setIsOff(TRUE);
                pRecord->close();
               
        }
       
       
}

HHSoft

何不加上说明？方便大家

nyufeng

同意版主HHSoft 的意见，建议所有的源代码都加上说明。

talkershadows

严重同意楼上～～～要求使用说明！！！

xiaomi

不要误人子弟