[ARX程序]：如何把一个图层设为当前层?

lidexiang

在vc++中arx编程,如何把一个图层设为当前层?能具体一点回答我吗?谢谢!急!

XDSoft

最初由 lidexiang 发布
[B]在vc++中arx编程,如何把一个图层设为当前层?能具体一点回答我吗?谢谢!急! [/B]

设置系统变量clayer的值, 事先要保证这个图层存在.

char * clyr="abc";

ads_setvar("clayer",&clyr);

lidexiang

在vc++上开发objectarx,如何把一个图层设置为当前层?谢谢

HillMan

最初由 lidexiang 发布
[B]在vc++上开发objectarx,如何把一个图层设置为当前层?谢谢 [/B]

用这个函数将你指定的图层设置为当前层：

-----------------------------------------------------------------------------
Acad::ErrorStatus  setClayer(AcDbObjectId objId);

objId Input object ID of desired LayerTableRecord

Sets the LayerTableRecord with object ID objId to be the CLAYER value of the database.

See the System Variables section of the AutoCAD Command Reference for information on CLAYER.

Returns Acad::eOk if successful.

lidexiang

我知道那是objectarx的帮助,但我是一个新手,不会使用,能具体一点?比如举一个例子.谢谢!急啊,我在线等!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
设置系统变量clayer的值, 事先要保证这个图层存在.

char * clyr="abc";

ads_setvar("clayer",&clyr);
各个参数是什么意思啊?

HillMan

1.ads_setvar("clayer",&clyr);
ads_setvar 是用来设置系统变量的函数，也就是将系统变量clayer（当前图层）设置为clyr里面存储的值。
2.给你一个关于图层操作的例子看看！
（引至《autoCAD2000 objectarx 编程指南》）
－－－－－－－－－－－－－－－－－
Adesk::Boolean getNewLyrLtId(AcDbObjectId& ltypeId)
{
        // We know that the linetype 'CONTINUOUS' exists
        // so give the user a choice of pressing [ENTER]
        // for 'CONTINUOUS' linetype or a listing option
        // to show all the linetype available or input a
        // linetype name.

        char kw[20];
        char linType[50];
        char *pLtName;
        AcDbDatabase *pCurDb = NULL;
        AcDbLinetypeTable *pltTable;
        AcDbLinetypeTableRecord *pLtTableRcd;
        AcDbLinetypeTableIterator *pLtIterator;
        int rc;

        pCurDb = acdbHostApplicationServices()->workingDatabase();

        acedInitGet(NULL, "Name List Continuous");
        rc = acedGetKword("\nLinetype - [Name/List/Continuous]<Continuous>: ", kw);

        switch(rc)
        {
                case RTCAN:
                        acutPrintf("\nUser canceled.");
                        return Adesk::kFalse;
                case RTERROR:
                        acutPrintf("\nFailed in getNewLyrLtId() function. ");
                        return Adesk::kFalse;
                break;

                case RTNONE:
                        pCurDb->getLinetypeTable(pltTable, AcDb::kForRead);
                        pltTable->getAt("CONTINUOUS", ltypeId);
                        pltTable->close();
                        return Adesk::kTrue;
                break;

                case RTNORM:
                        if(strcmp(kw, "Name") == 0)
                        {
                                rc = acedGetString(0, "\nEnter linetype string name: ", linType);
                                switch(rc)
                                {
                                        case RTCAN:
                                        case RTERROR:
                                                acutPrintf("\nError in retreiving linetype name.");
                                                return Adesk::kFalse;
                                        break;

                                        case RTNORM:
                                                if(linType[0] == '\0')
                                                {
                                                        acutPrintf("\nNo layer name given.");
                                                        return Adesk::kFalse;
                                                }

                                                // Check to see if the linetype
                                                // exists
                                                pCurDb->getLinetypeTable(pltTable, AcDb::kForRead);
                                                if(pltTable->has(linType))
                                                {
                                                        // Retreive the AcDbObjecId of the layer table record
                                                        pltTable->getAt(linType, ltypeId);
                                                        pltTable->close();
                                                        return Adesk::kTrue;
                                                }

                                                acutPrintf("\nLinetype '%s' does not exist using CONTINUOUS. ",
                                                                                linType);

                                                pltTable->getAt("CONTINUOUS", ltypeId);
                                                pltTable->close();
                                                return Adesk::kTrue;
                                        break;
                                }// switch
                        }// if
                        else if(strcmp(kw, "List") == 0)
                        {
                                // Here we will use a Linetype Table Iteraror
                                // to list out all the available linetype
                                // and then ask the user to enter a
                                // valid name for one of the layers

                                acutPrintf("\nThe following linetypes are available. ");

                                pCurDb->getLinetypeTable(pltTable, AcDb::kForRead);

                                pltTable->newIterator(pLtIterator);
                                for(; !pLtIterator->done(); pLtIterator->step())
                                {
      
                                        // get the current linetype record from the iterator,
                                        // opened for read

                                pLtIterator->getRecord(pLtTableRcd, AcDb::kForRead);

                                        // get the linetype name from the linetype record
                                        // and store it in pLtName

                                        pLtTableRcd->getName(pLtName);

                                        // close the linetype record
                                        pLtTableRcd->close();
      
                                acutPrintf("\nLinetype name: %s", pLtName);

                                        delete [] pLtName;

                                }// for

                                // Don't forget to delete the iterator
                                // that's your responsibility

                                delete pLtIterator;

                                rc = acedGetString(0, "\n\nEnter linetype string name: ", linType);
                                switch(rc)
                                {
                                        case RTCAN:
                                        case RTERROR:
                                                acutPrintf("\nError in retreiving linetype name.");
                                                return Adesk::kFalse;
                                        break;

                                        case RTNORM:
                                                if(linType[0] == '\0')
                                                {
                                                        acutPrintf("\nNo layer name given.");
                                                        return Adesk::kFalse;
                                                }

                                                // Check to see if the linetype
                                                // exists
                                                pCurDb->getLinetypeTable(pltTable, AcDb::kForRead);
                                                if(pltTable->has(linType))
                                                {
                                                        // Retreive the AcDbObjecId of the layer table record
                                                        pltTable->getAt(linType, ltypeId);
                                                        pltTable->close();
                                                        return Adesk::kTrue;
                                                }

                                                acutPrintf("\nLinetype '%s' does not exist using CONTINUOUS. ",
                                                                                linType);

                                                pltTable->getAt("CONTINUOUS", ltypeId);
                                                pltTable->close();
                                                return Adesk::kTrue;
                                        break;
                                }// switch


                        }
                        else if(strcmp(kw, "Continuous") == 0)
                        {
                                // Remember the CONTINUOUS linetype always
                                // exists in a drawing file.
                                pCurDb->getLinetypeTable(pltTable, AcDb::kForRead);
                                pltTable->getAt("CONTINUOUS", ltypeId);
                                pltTable->close();
                                return Adesk::kTrue;
                        }
                        else
                        {
                                return Adesk::kFalse;
                        }
                break;

        }// switch

        return Adesk::kFalse;
}


// This function called by 'cnl()' which is found on
// Ch4_1Commands.cpp
void createNewLayer(char* lyrname, Adesk::UInt16 clr, AcDbObjectId ltypeId, Adesk::Boolean current)
{
        // We need to check if the layer name exists
        // If the layer name exists, apply the color
        // linetype id and whither to make it current
        // or not. In order to be current it cannot be
        // frozen, so we need to check for this also.
        // If the layer name does not exist we just create
        // a new layer with the properties contained in the arguments
       
        AcDbLayerTable *pLyrTable;
        AcDbLayerTableRecord *pLyrTblRecord;
        AcDbObjectId recId;

        AcCmColor color;
        color.setColorIndex(clr); // set color to parameter clr

        AcDbDatabase *pCurDb = NULL;

        pCurDb = acdbHostApplicationServices()->workingDatabase();


        pCurDb->getLayerTable(pLyrTable, AcDb::kForRead);
        // Check to see if the layer name exists
        if(pLyrTable->has(lyrname))
        {
                pLyrTable->getAt(lyrname, pLyrTblRecord, AcDb::kForWrite, Adesk::kFalse);
                // pLyrTblRecord now points at the layer table record
                // which was opened for write
                pLyrTblRecord->setIsFrozen(Adesk::kFalse);
                pLyrTblRecord->setColor(color);
                pLyrTblRecord->setLinetypeObjectId(ltypeId);

        }
        else
        {
                // Note how we can change the open mode
                // of the layer table from AcDb::kForRead
                // to AcDb::kForWrite

                pLyrTable->upgradeOpen();
                pLyrTblRecord = new AcDbLayerTableRecord;

                pLyrTblRecord->setName(lyrname);
                pLyrTblRecord->setColor(color);
                pLyrTblRecord->setLinetypeObjectId(ltypeId);

                pLyrTable->add(pLyrTblRecord);

        }

        // Get the layer Table ObjectId
        recId = pLyrTblRecord->objectId();

        pLyrTblRecord->close();
        pLyrTable->close();

        // Set the layer current if current
        // is equal to Adesk::kTrue
        // pCurDb is point to the current
        // drawing database
        // The database AcDbDatabase has a number of
        // query and edit functions for the header variables

        if(current)
        {
                pCurDb->setClayer(recId);
        }

}

lidexiang

谢谢,我搞定了,这个论坛回答得很快!

HillMan

最初由 lidexiang 发布
[B]谢谢,我搞定了,这个论坛回答得很快! [/B]

有什么问题就来这里与大家讨论一下，
你也可以把你的代码帖出来与大家分享！！
谢谢！！

XDSoft

最初由 lidexiang 发布
[B]谢谢,我搞定了,这个论坛回答得很快! [/B]

欢迎你常来!

能把你搞定的代码贴到论坛来吗? 谢谢!

Echoyin

园长最近来的多了（整天在蹲点，是不是专职的了？）。
新斑竹的三把火也烧的很厉害~~  :P

现在XDCAD已经是国内ARX方面——或者说是CAD方面办的最好的网站了。。。。。

希望XDCAD一路走好~

lidexiang

说实话,我现在可以上的网站就是贵网,还有一个是明经通道,其他就是java,msdn,什么的,我是现在每天都来.呵呵,我的代码比较长,写得也不好,有好用的代码我会传上来的.今天先谢谢园长和斑竹的帮忙(其实这个网站是网友介绍的,说问题回答的比较快,的确是!!!)其实我刚接触objectarx,还请各位多多帮助

XDSoft

最初由 lidexiang 发布
[B]说实话,我现在可以上的网站就是贵网,还有一个是明经通道,其他就是java,msdn,什么的,我是现在每天都来.呵呵,我的代码比较长,写得也不好,有好用的代码我会传上来的.今天先谢谢园长和斑竹的帮忙(其实这个网站是网友介绍... [/B]

ARX你可能是新接触的,但是VC一定很不错,ARX离不开VC, 欢迎以后多来, 把你的经验传授给大家.

userzhluserzhl

有没有把所选对象改为当前层的层？

zzz333

非常感谢！

RedCAD

的确，一个网站能办到这样应该是很不错了，我也从中得到了很多帮助，所以我在尽最大力量来帮助需要帮助的朋友