[日积月累]：Arx函数集，网友自制

rave

自愿发布，版权放弃，免除低水平的重复劳动

请勿发布有损贵公司（单位）核心竞争力的代码.

视质量酌情加积分

欢迎跟贴发布!

我先来抛砖

游客，如果您要查看本帖隐藏内容请回复

DARCY

我也跟一帖，大家还可以修改，重载。。。

1. 
   
2. //************************************************************************
   
3. //函数名称:selectEntityInLayer
   
4. //函数类型:Acad::ErrorStatus
   
5. //返回值:  正常：Acad::eOk
   
6. //功能描述:选择指定图层上的所有实体！
   
7. //函数作者:Darcy
   
8. //创建日期:200X-XX-XX
   
9. //参数列表:
   
10. //变量名:nLayerName     变量类型:const char*           变量说明:(输入)图层名
    
11. //变量名:nIDs           变量类型:AcDbObjectIdArray&    变量说明:(输出)图层中实体的对象标识符集合
    
12. //************************************************************************
    
13. Acad::ErrorStatus selectEntityInLayer(const char* nLayerName,AcDbObjectIdArray& nIDs)
    
14. {
    
15.         Acad::ErrorStatus es = Acad::eOk;
    
16. 
    
17.         ads_name ents;
    
18.         struct resbuf *rb;
    
19.         rb=acutNewRb(AcDb::kDxfLayerName);
    
20.         rb->restype=8;
    
21.         rb->resval.rstring=(char*)nLayerName;
    
22.         rb->rbnext=NULL;
    
23.         acedSSGet("X",NULL,NULL,rb,ents);
    
24.         long entNums=0;
    
25.         acedSSLength(ents,&entNums);
    
26.         if (entNums == 0)
    
27.                 es = Acad::eInvalidInput;
    
28.         else
    
29.         {
    
30.                 for (long a = 0; a < entNums ; a ++)
    
31.                 {
    
32.                         AcDbObjectId  objId;
    
33.                         ads_name      ent;
    
34.                         acedSSName(ents,a,ent);
    
35.                         acdbGetObjectId(objId, ent);
    
36.                         nIDs.append(objId);
    
37.                 }
    
38.         }
    
39.         acedSSFree(ents);
    
40.         acutRelRb(rb);
    
41. 
    
42.         return es;
    
43. }

复制代码

HHSoft

受到版主鼓励，再贴两个，自己写的，莫要见笑

1. 
   
2. //==========================================================
   
3. 功能：新建一个图层
   
4. 参数：LayerName -- 图层名，LayerColor -- 颜色名
   
5. 返回：图层ID
   
6. //==========================================================
   
7. AcDbObjectId CreateNewLayer(CString LayerName, AcCmColor LayerColor)
   
8. {
   
9.         // 获得当前图形数据库的符号表
   
10.         AcDbLayerTable *pLayerTable;
    
11.         acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pLayerTable,
    
12.                 AcDb::kForWrite);
    
13.         // 生成新的图层表记录
    
14.         AcDbLayerTableRecord *pLayerTableRecord = new AcDbLayerTableRecord;
    
15.         pLayerTableRecord->setName(LayerName);                // 设置图层名
    
16.         pLayerTableRecord->setColor(LayerColor);        // 设置图层颜色
    
17.         AcDbObjectId layerId;
    
18.         pLayerTable->add(layerId,pLayerTableRecord);
    
19.         // 关闭图层表和图层表记录
    
20.         pLayerTable->close();
    
21.         pLayerTableRecord->close();
    
22.         return layerId;
    
23. }
    
24. 
    
25. //==========================================================
    
26. 功能：在指定图层上新建一条直线
    
27. 参数：见注释
    
28. 返回：直线ID
    
29. //==========================================================
    
30. AcDbObjectId CreateLine( double x1,double y1,double z1,  // 起点坐标
    
31.                      double x2,double y2,double z2,  // 终点坐标
    
32.                      AcDbObjectId layer)                   // 直线所在图层
    
33. {
    
34.         AcGePoint3d StartPt(x1,y1,z1);        // 起点
    
35.         AcGePoint3d EndPt(x2,y2,z2);        // 终点
    
36.         AcDbLine *pLine = new AcDbLine(StartPt,EndPt);
    
37.         // 获得当前图形数据库的符号表
    
38.         AcDbBlockTable *pBlockTable;
    
39.         acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable,
    
40.                 AcDb::kForRead);
    
41.         // 获得符号表中的模型空间块表记录指针，用于添加对象
    
42.         AcDbBlockTableRecord *pBlockTableRecord;
    
43.         pBlockTable->getAt(ACDB_MODEL_SPACE,pBlockTableRecord,AcDb::kForWrite);
    
44.         pBlockTable->close();
    
45.         // 将直线添加到模型空间块表记录中
    
46.         AcDbObjectId lineId;
    
47.         pLine->setLayer(layer,Adesk::kTrue);        // 设置直线所在图层
    
48.         pBlockTableRecord->appendAcDbEntity(lineId,pLine);
    
49.         // 关闭块表记录指针和直线指针
    
50.         pBlockTableRecord->close();
    
51.         pLine->close();
    
52.         // 返回直线ID号
    
53.         return lineId;
    
54. }
    

复制代码

delta210

1. void CMyDatabase::rotationGroup(CString strGroupName ,CReiPoint ptRotation,double rotationAngle)
   
2. {
   
3.         AcGePoint3d pt;
   
4.         AcDbDictionary *pGroupDict;
   
5.         acdbCurDwg()->getGroupDictionary(pGroupDict,AcDb::kForWrite);
   
6.         AcDbObjectId groupId;
   
7.         AcDbGroup *pGroup;
   
8.         pt.x=ptRotation.x;
   
9.         pt.y=ptRotation.y;
   
10.         pt.z=ptRotation.z;
    
11.         if(pGroupDict->getAt(strGroupName,groupId)==Acad::eOk)
    
12.        acdbOpenObject(pGroup,groupId,AcDb::kForWrite);
    
13.         else
    
14.         {
    
15.                 pGroupDict->close();
    
16.                 return;
    
17.         }
    
18.         pGroupDict->close();
    
19.         AcDbGroupIterator* pIter=pGroup->newIterator();
    
20.         AcDbEntity* pEnt;
    
21.         AcDbObjectId objId;
    
22.                 pIter=pGroup->newIterator();
    
23.         for(;!pIter->done();pIter->next())
    
24.         {
    
25.                 objId=pIter->objectId();
    
26.                 acdbOpenAcDbEntity(pEnt,objId,AcDb::kForWrite);
    
27.                 rotationEntity(pEnt,pt,rotationAngle);
    
28.                 pEnt->close();
    
29.         }
    
30.         delete pIter;
    
31.         pGroup->close();
    
32. }

复制代码

binbin

1. 
   
2.   [FONT=courier new]
   
3. BOOL Utils::ReadTxtFile(CString sFile, CStringArray &arComponent)
   
4. {
   
5.         CString sText = _T("");
   
6.         CStdioFile file;
   
7.         CFileFind findfile;
   
8.         if (!findfile.FindFile(sFile))return FALSE;
   
9.        
   
10.         if(file.Open(sFile,CFile::modeRead))
    
11.         {
    
12.                 BOOL bSuccess = TRUE;
    
13.                 while(bSuccess)
    
14.                 {
    
15.                         bSuccess = file.ReadString(sText);
    
16.                         if(bSuccess)
    
17.                         {
    
18.                                 arComponent.Add(sText);                       
    
19.                         }
    
20.                 }
    
21.                 file.Close();
    
22.         }
    
23.         return TRUE;
    
24. }
    
25.   [/FONT]
    

复制代码

stoneball

//创建字体类型

1. 
   
2. void DrawAndEdit::createTextStyle(char *styleName, char *fontName, char *bigFontName, double textSize, double xScale, double obliqueAngle, double trPercent)
   
3. {
   
4.         AcDbTextStyleTable *pTextStyleTable;
   
5. 
   
6.     acdbHostApplicationServices()->workingDatabase()
   
7.         ->getSymbolTable(pTextStyleTable, AcDb::kForRead);
   
8.         AcDbTextStyleTableRecord *pRecord;
   
9.         pTextStyleTable->getAt(ACDB_MODEL_SPACE,pRecord,
   
10.                 AcDb::kForWrite);
    
11. 
    
12.         if (!pTextStyleTable->has(styleName)){
    
13.                 AcDbObjectId recId;
    
14.         pTextStyleTable->close();
    
15.                 acdbHostApplicationServices()->workingDatabase()
    
16.                         ->getSymbolTable(pTextStyleTable, AcDb::kForWrite);
    
17.                 pRecord = new AcDbTextStyleTableRecord();
    
18.                 pRecord->setName(styleName);
    
19.                 pRecord->setFileName(fontName);
    
20.                 pRecord->setBigFontFileName(bigFontName);
    
21.                 pRecord->setTextSize(textSize);
    
22.                 pRecord->setXScale(xScale);
    
23.                 pRecord->setObliquingAngle(obliqueAngle);
    
24.                 pRecord->setPriorSize(trPercent);
    
25.                 pTextStyleTable->add(recId,pRecord);
    
26.                 pRecord->close();
    
27.         }
    
28. 
    
29.         pTextStyleTable->close();
    
30. 
    
31.         return;
    
32. }

复制代码

cactus

1. //
   
2. //生成新组（sGroupName）
   
3. //追加数组中所有实体到该组中
   
4. //组名字 ,   Id数组
   
5. int createGroup(CString sGroupName,
   
6.                                                                    const AcDbObjectIdArray *idArr)
   
7. {
   
8.         AcDbGroup       *pGroup = new AcDbGroup((LPSTR)(LPCTSTR)sGroupName);
   
9.         AcDbObjectId     groupObjectId;
   
10.         AcDbDictionary  *pGroupDict = NULL;
    
11. 
    
12.         acdbHostApplicationServices()->workingDatabase()
    
13.         ->getGroupDictionary(pGroupDict, AcDb::kForWrite);
    
14.         pGroupDict->setAt(sGroupName, pGroup, groupObjectId);
    
15.         pGroupDict->close();
    
16.           pGroup->close();
    
17.     acdbOpenObject(pGroup, groupObjectId, AcDb::kForWrite);
    
18.         for (int i = 0; i < idArr->length(); i++)
    
19.         {
    
20.                 groupObjectId = idArr->at(i);
    
21.                 pGroup->append(groupObjectId);   
    
22.         }
    
23.         pGroup->close();
    
24.         return TRUE;
    
25. }

复制代码

zwc2008

1. AcDbObjectId CreateNewTextStyle()
   
2. {
   
3.         AcDbTextStyleTable *pTextStyleTable;
   
4.         AcDbTextStyleTableRecord *pTextStyleTableRcd
   
5.         AcDbObjectId textId;
   
6.         acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pTextStyleTable,AcDb::kForWrite);
   
7. 
   
8.         if (!pTextStyleTable->has(StyleName)
   
9.         {
   
10.                 AcDbTextStyleTableRecord *pTSTblRcd= new AcDbTextStyleTableRecord;
    
11.                 pTSTblRcd->setName(StyleName);
    
12.                 pTSTblRcd->setFileName(fontName);
    
13.                 pTSTblRcd->setBigFontFileName(bigfontName);
    
14.                 pTSTblRcd->setTextSize(textSize);
    
15.                 pTSTblRcd->setXScale(xScale);
    
16.                 pTSTblRcd->setObliquingAngle(obliqueAngle);
    
17.                 pTSTblRcd->setPriorSize(trPercent);
    
18.                 pTextStyleTable->add(textId,pTextStyleTableRcd);
    
19.                 pTSTblRcd->close();
    
20.         }
    
21.                 pTextStyleTable->close();
    
22.         return textId;
    
23. 
    
24. }

复制代码

rave

// Function name    : RgnInRgn
// Description      : is Region1 in Region2?
// Return type      : bool
// Argument         : const AcDbRegion* pRegion1
// Argument         : const AcDbRegion* pRegion2

游客，如果您要查看本帖隐藏内容请回复

DARCY

1. 
   
2. //************************************************************************
   
3. //函数名称:selectEntityInLayer
   
4. //函数类型:Acad::ErrorStatus
   
5. //返回值:
   
6. //功能描述:选择指定层上的实体，得到其对象属性标识符！
   
7. //函数作者:Darcy
   
8. //创建日期:200X-XX-XX
   
9. //参数列表:
   
10. //变量名:nLayerName      变量类型:CString               变量说明:
    
11. //变量名:nIDs            变量类型:AcDbObjectIdArray&    变量说明:
    
12. //变量名:nModelSpace     变量类型:bool                  变量说明:
    
13. //************************************************************************
    
14. Acad::ErrorStatus    selectEntityInLayer(
    
15.                                          CString nLayerName,
    
16.                                          AcDbObjectIdArray& nIDs,
    
17.                                          bool nModelSpace
    
18.                                          )
    
19. {
    
20.     Acad::ErrorStatus es=Acad::eOk;
    
21. 
    
22.     AcDbBlockTable*        pBlockTable=NULL;
    
23.     AcDbBlockTableRecord*  pSpaceRecord=NULL;
    
24.     if (acdbHostApplicationServices()->workingDatabase()==NULL)
    
25.         return Acad::eNoDatabase;
    
26.     if ((es = acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable, AcDb::kForRead))==Acad::eOk)
    
27.     {
    
28.         char entryName[13];
    
29.         if (nModelSpace)
    
30.             strcpy(entryName,ACDB_MODEL_SPACE);
    
31.         else
    
32.             strcpy(entryName,ACDB_PAPER_SPACE);
    
33.         //Get the Model or Paper Space record and open it for read:  
    
34.         if ((es = pBlockTable->getAt((const char*)entryName, pSpaceRecord, AcDb::kForRead))==Acad::eOk)
    
35.         {
    
36.                 AcDbBlockTableRecordIterator* pIter;
    
37.                 if (pSpaceRecord->newIterator(pIter)==Acad::eOk)
    
38.                 {
    
39.                     for (pIter->start();!pIter->done();pIter->step())
    
40.                     {
    
41.                         char *name=NULL;
    
42.                         AcDbEntity* pEntity;
    
43.                         if (pIter->getEntity(pEntity,AcDb::kForRead)==Acad::eOk)
    
44.                         {
    
45.                             name=pEntity->layer();
    
46.                             if (nLayerName.CompareNoCase(name)==0)
    
47.                                 nIDs.append(pEntity->objectId());
    
48. 
    
49.                             pEntity->close();
    
50.                             acutDelString(name);
    
51.                         }
    
52.                     }
    
53.                     delete pIter;
    
54.                 }            
    
55.                 pSpaceRecord->close();
    
56.         }   
    
57.         pBlockTable->close();
    
58.     }
    
59. 
    
60.     return es;
    
61. }

复制代码

HHSoft

1. 
   
2. //=========================================================
   
3. 功能:   判断两点是否相同(误差在指定范围内)
   
4. 参数:   p1、p2为欲判定的两点
   
5. 返回值: 0 -- 不相同；1 -- 相同
   
6. //=========================================================
   
7. int Equal_Points (const ads_point p1, const ads_point p2)
   
8. {
   
9.     // 指定误差范围
   
10.     const ads_real Equality_Margin = (ads_real)0.00000001;
    
11.    
    
12.     int c ;
    
13.     for (c = X ; c <= Z ; c++) {
    
14.         if (fabs(p1[c] - p2[c]) > Equality_Margin) {
    
15.             return (0) ;
    
16.         }
    
17.     }
    
18.     return (1) ;
    
19. }
    

复制代码

stoneball

/*
  时间：2003.06.26
  功能：判断点 pt 是否在区域 ptArr 内
  实现：根据射线法求交点个数，偶数－区域外，奇数－区域内
  变量：pt 指定点 ptArr 判断区域
  返回：在区域 TRUE 不在 FALSE
  修改：
*/

1. 
   
2. BOOL BaseHandle::PointIsInPolygon(AcGePoint3d pt, AcGePoint3dArray ptArr)
   
3. {
   
4.                 int ptNum,i,interNum;
   
5.                 AcGePoint3d ptA,ptB;
   
6.                 ads_point pt0,pt1,pt2,ptIns,ptX;
   
7.                
   
8.                 interNum = 0;
   
9.                 pt0[X] = 0.0;
   
10.                 pt0[Y] = 0.0;
    
11.                 pt0[Z] = 0.0;
    
12.                 ptX[X] = pt.x;
    
13.                 ptX[Y] = pt.y;
    
14.                 ptX[Z] = pt.z;
    
15.                 ptNum = ptArr.length();
    
16.                 for (i = 0;i < ptNum - 1;i++){
    
17.                         ptA = ptArr.at(i);
    
18.                         ptB = ptArr.at(i + 1);
    
19.                         pt1[X] = ptA.x;
    
20.                         pt1[Y] = ptA.y;
    
21.                         pt1[Z] = 0.0;
    
22.                         pt2[X] = ptB.x;
    
23.                         pt2[Y] = ptB.y;
    
24.                         pt2[Z] = 0.0;
    
25.                         if (acdbInters(ptX,pt0,pt1,pt2,1,ptIns) == RTNORM){
    
26.                                 interNum++;
    
27.                         }
    
28.                 }
    
29. //上述交点没有判断是否与某一端点重合，如果有interNum-1，有
    
30. //兴趣的朋友可以修改完成。
    
31.                 if (interNum % 2 == 0){
    
32.                         return false;
    
33.                 }else{
    
34.                         return true;
    
35.                 }
    
36. }
    

复制代码

asky333

如何交互生成面域对象

1. 
   
2.         AcDbObjectId eId;
   
3.         AcDbEntity * ent;
   
4.         ads_name en;
   
5.         int rc = acdbEntLast(en);  //获取数据库中任意一个实体
   
6.     if (rc != RTNORM)
   
7.     {
   
8.         acutPrintf("the database has nothing.\n", rc);
   
9.     }
   
10.     if(!acedCommand(RTSTR,"-boundary",RTSTR,PAUSE,RTSTR,"",RTNONE))
    
11.                 return;            //调用命令生成边界
    
12.     for(;;)                        //边界可能是嵌套型的，也就是有孤岛，所以进行循环
    
13.         {
    
14.                 int rc = acdbEntNext(en,en);          //获取生成的边界
    
15.                 if (rc != RTNORM)
    
16.                         break;       //已经没有边界实体，退出循环
    
17.                 acdbGetObjectId(eId, en);
    
18.                 acdbOpenObject(ent, eId,AcDb::kForRead);
    
19.                 ent->close();
    
20.                 if(ent->isKindOf(AcDbPolyline::desc())) //生成的应是AcDbPolyline实体
    
21.                   //..................
    
22.                   //create region object                //这时就可以根据AcDbPolyline
    
23.         };                                                  //的点的信息生成面域对象

复制代码

godking311

已知一段弧的起点和终点以及其凸度,求其圆心

int getCenter(ads_point startPoint,ads_point endPoint,double bulge,ads_point& center)
{
if (bulge==0.0)
{
ads_point_set(startPoint,center);
return 0;
}
ads_point startPt,endPt;
if (bulge<0.0)
{
ads_point_set(endPoint,startPt);
ads_point_set(startPoint,endPt);
bulge=bulge*(-1.0);
}
else
{
ads_point_set(startPoint,startPt);
ads_point_set(endPoint,endPt);
}
double distStartToEnd,distX,distY,radius;
distStartToEnd=ads_distance(startPt,endPt);
distX=distStartToEnd/2.0;
distY=bulge*distX;
radius=((distX*distX)+(distY*distY))/(2.0*distY);

double tmpAng;
ads_point tmpPt;

tmpAng=ads_angle(startPt,endPt);
ads_polar(startPt,tmpAng,distX,tmpPt);
ads_polar(tmpPt,(tmpAng+(_PI/2.0)),(radius-distY),center);
return 1;

};

Echoyin

取得选择集包围盒
本来是放在下面的帖子里面的，现放在这里以便收集整理

1. 
   
2.   [FONT=courier new]
   
3. BOOL GetSSExtents(ads_name ss, ads_point &maxpt, ads_point &minpt)
   
4. {
   
5.         long len;
   
6.         int ret=ads_sslength(ss,&len);
   
7.         if(ret!=RTNORM||len<1) return FALSE;
   
8.         AcDbObjectId objId;
   
9.         ads_name ename;
   
10.         AcDbEntity *pEnt;
    
11.         AcDbExtents extent;
    
12.         AcGePoint3d pt1,pt2;
    
13.         ads_ssname (ss, 0, ename);
    
14.         acdbGetObjectId(objId,ename);
    
15.         acdbOpenObject(pEnt,objId,AcDb::kForRead);
    
16.         pEnt->getGeomExtents(extent);
    
17.         pt1=extent.maxPoint();
    
18.         pt2=extent.minPoint();
    
19.         pEnt->close();
    
20.         for(int i=0;igetGeomExtents(extent);
    
21.                 if(pt1[X]extent.minPoint()[X]||pt2[Y]>extent.minPoint()[Y])
    
22.                         pt2=extent.minPoint();
    
23.                 pEnt->close();
    
24.         }
    
25.         maxpt[X]=pt1[X];
    
26.         maxpt[Y]=pt1[Y];
    
27.         maxpt[Z]=pt1[Z];
    
28.        
    
29.         minpt[X]=pt2[X];
    
30.         minpt[Y]=pt2[Y];
    
31.         minpt[Z]=pt2[Z];
    
32. 
    
33.         return TRUE;
    
34. 
    
35. }  
    
36.   [/FONT]
    

复制代码