[ARX程序]：直线绘制过程（包括颜色设置）

win_jeanne

作者：win_jeanne 原创：CAD专业论坛(www.zx-home.com)

本人编了一个简单的小程序，大家共享：
直线绘制过程
void Line(AcGePoint3d startpt,AcGePoint3d endpt)
{
AcDbDatabase *pCurDb; //定义当前数据库指针；
AcDbBlockTable *pBlkTable;//定义块表指针；
AcDbBlockTableRecord *pBlkTableRec;//定义块表记录指针；
AcDbLine *pLine;
AcDbObjectId LineId,LinetypeId;
pLine=new AcDbLine(startpt,endpt);
pCurDb = acdbHostApplicationServices()->workingDatabase();
pCurDb->getBlockTable(pBlkTable, AcDb::kForRead);
pBlkTable->getAt(ACDB_MODEL_SPACE, pBlkTableRec, AcDb::kForWrite);
pBlkTableRec->appendAcDbEntity(LineId, pLine);
acdbOpenAcDbEntity((AcDbEntity*&)pLine,LineId,AcDb::kForWrite);
switch(Scolor)
{
case 0:
pLine->setColorIndex(0);
break;
case 1:
pLine->setColorIndex(1);
break;
case 2:
pLine->setColorIndex(2);
break;
case 3:
pLine->setColorIndex(3);
break;
case 4:
// LinetypeId=pLine->linetypeId();
pLine->setColorIndex(4);
// pLine->setLinetype(LinetypeId);
break;
case 5:
pLine->setColorIndex(5);
break;
default:
break;
}

pBlkTableRec->close();
pBlkTable->close();
pLine->close();
}

其中序列号为cad中的颜色序号。