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

rave · 发表于 2003-5-25 20:30:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

视质量酌情加积分

欢迎跟贴发布!

我先来抛砖

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

DARCY · 发表于 2003-5-26 13:06:35

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

//************************************************************************
//函数名称:selectEntityInLayer
//函数类型:Acad::ErrorStatus
//返回值: 正常：Acad::eOk
//功能描述:选择指定图层上的所有实体！
//函数作者:Darcy
//创建日期:200X-XX-XX
//参数列表:
//变量名:nLayerName 变量类型:const char* 变量说明:(输入)图层名
//变量名:nIDs 变量类型:AcDbObjectIdArray& 变量说明:(输出)图层中实体的对象标识符集合
//************************************************************************
Acad::ErrorStatus selectEntityInLayer(const char* nLayerName,AcDbObjectIdArray& nIDs)
{
Acad::ErrorStatus es = Acad::eOk;
ads_name ents;
struct resbuf *rb;
rb=acutNewRb(AcDb::kDxfLayerName);
rb->restype=8;
rb->resval.rstring=(char*)nLayerName;
rb->rbnext=NULL;
acedSSGet("X",NULL,NULL,rb,ents);
long entNums=0;
acedSSLength(ents,&entNums);
if (entNums == 0)
es = Acad::eInvalidInput;
else
{
for (long a = 0; a < entNums ; a ++)
{
AcDbObjectId objId;
ads_name ent;
acedSSName(ents,a,ent);
acdbGetObjectId(objId, ent);
nIDs.append(objId);
}
}
acedSSFree(ents);
acutRelRb(rb);
return es;
}

复制代码

HHSoft · 发表于 2003-7-8 10:34:17

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

//==========================================================
功能：新建一个图层
参数：LayerName -- 图层名，LayerColor -- 颜色名
返回：图层ID
//==========================================================
AcDbObjectId CreateNewLayer(CString LayerName, AcCmColor LayerColor)
{
// 获得当前图形数据库的符号表
AcDbLayerTable *pLayerTable;
acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pLayerTable,
AcDb::kForWrite);
// 生成新的图层表记录
AcDbLayerTableRecord *pLayerTableRecord = new AcDbLayerTableRecord;
pLayerTableRecord->setName(LayerName); // 设置图层名
pLayerTableRecord->setColor(LayerColor); // 设置图层颜色
AcDbObjectId layerId;
pLayerTable->add(layerId,pLayerTableRecord);
// 关闭图层表和图层表记录
pLayerTable->close();
pLayerTableRecord->close();
return layerId;
}
//==========================================================
功能：在指定图层上新建一条直线
参数：见注释
返回：直线ID
//==========================================================
AcDbObjectId CreateLine( double x1,double y1,double z1, // 起点坐标
double x2,double y2,double z2, // 终点坐标
AcDbObjectId layer) // 直线所在图层
{
AcGePoint3d StartPt(x1,y1,z1); // 起点
AcGePoint3d EndPt(x2,y2,z2); // 终点
AcDbLine *pLine = new AcDbLine(StartPt,EndPt);
// 获得当前图形数据库的符号表
AcDbBlockTable *pBlockTable;
acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable,
AcDb::kForRead);
// 获得符号表中的模型空间块表记录指针，用于添加对象
AcDbBlockTableRecord *pBlockTableRecord;
pBlockTable->getAt(ACDB_MODEL_SPACE,pBlockTableRecord,AcDb::kForWrite);
pBlockTable->close();
// 将直线添加到模型空间块表记录中
AcDbObjectId lineId;
pLine->setLayer(layer,Adesk::kTrue); // 设置直线所在图层
pBlockTableRecord->appendAcDbEntity(lineId,pLine);
// 关闭块表记录指针和直线指针
pBlockTableRecord->close();
pLine->close();
// 返回直线ID号
return lineId;
}

复制代码

delta210 · 发表于 2003-6-6 09:33:00

void CMyDatabase::rotationGroup(CString strGroupName ,CReiPoint ptRotation,double rotationAngle)
{
AcGePoint3d pt;
AcDbDictionary *pGroupDict;
acdbCurDwg()->getGroupDictionary(pGroupDict,AcDb::kForWrite);
AcDbObjectId groupId;
AcDbGroup *pGroup;
pt.x=ptRotation.x;
pt.y=ptRotation.y;
pt.z=ptRotation.z;
if(pGroupDict->getAt(strGroupName,groupId)==Acad::eOk)
acdbOpenObject(pGroup,groupId,AcDb::kForWrite);
else
{
pGroupDict->close();
return;
}
pGroupDict->close();
AcDbGroupIterator* pIter=pGroup->newIterator();
AcDbEntity* pEnt;
AcDbObjectId objId;
pIter=pGroup->newIterator();
for(;!pIter->done();pIter->next())
{
objId=pIter->objectId();
acdbOpenAcDbEntity(pEnt,objId,AcDb::kForWrite);
rotationEntity(pEnt,pt,rotationAngle);
pEnt->close();
}
delete pIter;
pGroup->close();
}

复制代码

binbin · 发表于 2003-5-26 09:39:54

[FONT=courier new]
BOOL Utils::ReadTxtFile(CString sFile, CStringArray &arComponent)
{
CString sText = _T("");
CStdioFile file;
CFileFind findfile;
if (!findfile.FindFile(sFile))return FALSE;
if(file.Open(sFile,CFile::modeRead))
{
BOOL bSuccess = TRUE;
while(bSuccess)
{
bSuccess = file.ReadString(sText);
if(bSuccess)
{
arComponent.Add(sText);
}
}
file.Close();
}
return TRUE;
}
[/FONT]

复制代码

stoneball · 发表于 2003-5-26 15:17:06

//创建字体类型

void DrawAndEdit::createTextStyle(char *styleName, char *fontName, char *bigFontName, double textSize, double xScale, double obliqueAngle, double trPercent)
{
AcDbTextStyleTable *pTextStyleTable;
acdbHostApplicationServices()->workingDatabase()
->getSymbolTable(pTextStyleTable, AcDb::kForRead);
AcDbTextStyleTableRecord *pRecord;
pTextStyleTable->getAt(ACDB_MODEL_SPACE,pRecord,
AcDb::kForWrite);
if (!pTextStyleTable->has(styleName)){
AcDbObjectId recId;
pTextStyleTable->close();
acdbHostApplicationServices()->workingDatabase()
->getSymbolTable(pTextStyleTable, AcDb::kForWrite);
pRecord = new AcDbTextStyleTableRecord();
pRecord->setName(styleName);
pRecord->setFileName(fontName);
pRecord->setBigFontFileName(bigFontName);
pRecord->setTextSize(textSize);
pRecord->setXScale(xScale);
pRecord->setObliquingAngle(obliqueAngle);
pRecord->setPriorSize(trPercent);
pTextStyleTable->add(recId,pRecord);
pRecord->close();
}
pTextStyleTable->close();
return;
}

复制代码

cactus · 发表于 2003-5-27 08:53:34

//
//生成新组（sGroupName）
//追加数组中所有实体到该组中
//组名字 , Id数组
int createGroup(CString sGroupName,
const AcDbObjectIdArray *idArr)
{
AcDbGroup *pGroup = new AcDbGroup((LPSTR)(LPCTSTR)sGroupName);
AcDbObjectId groupObjectId;
AcDbDictionary *pGroupDict = NULL;
acdbHostApplicationServices()->workingDatabase()
->getGroupDictionary(pGroupDict, AcDb::kForWrite);
pGroupDict->setAt(sGroupName, pGroup, groupObjectId);
pGroupDict->close();
pGroup->close();
acdbOpenObject(pGroup, groupObjectId, AcDb::kForWrite);
for (int i = 0; i < idArr->length(); i++)
{
groupObjectId = idArr->at(i);
pGroup->append(groupObjectId);
}
pGroup->close();
return TRUE;
}

复制代码

zwc2008 · 发表于 2003-6-3 23:46:29

AcDbObjectId CreateNewTextStyle()
{
AcDbTextStyleTable *pTextStyleTable;
AcDbTextStyleTableRecord *pTextStyleTableRcd
AcDbObjectId textId;
acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pTextStyleTable,AcDb::kForWrite);
if (!pTextStyleTable->has(StyleName)
{
AcDbTextStyleTableRecord *pTSTblRcd= new AcDbTextStyleTableRecord;
pTSTblRcd->setName(StyleName);
pTSTblRcd->setFileName(fontName);
pTSTblRcd->setBigFontFileName(bigfontName);
pTSTblRcd->setTextSize(textSize);
pTSTblRcd->setXScale(xScale);
pTSTblRcd->setObliquingAngle(obliqueAngle);
pTSTblRcd->setPriorSize(trPercent);
pTextStyleTable->add(textId,pTextStyleTableRcd);
pTSTblRcd->close();
}
pTextStyleTable->close();
return textId;
}

复制代码

rave · 发表于 2003-6-4 22:53:40

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

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

DARCY · 发表于 2003-6-16 12:38:01

//************************************************************************
//函数名称:selectEntityInLayer
//函数类型:Acad::ErrorStatus
//返回值:
//功能描述:选择指定层上的实体，得到其对象属性标识符！
//函数作者:Darcy
//创建日期:200X-XX-XX
//参数列表:
//变量名:nLayerName 变量类型:CString 变量说明:
//变量名:nIDs 变量类型:AcDbObjectIdArray& 变量说明:
//变量名:nModelSpace 变量类型:bool 变量说明:
//************************************************************************
Acad::ErrorStatus selectEntityInLayer(
CString nLayerName,
AcDbObjectIdArray& nIDs,
bool nModelSpace
)
{
Acad::ErrorStatus es=Acad::eOk;
AcDbBlockTable* pBlockTable=NULL;
AcDbBlockTableRecord* pSpaceRecord=NULL;
if (acdbHostApplicationServices()->workingDatabase()==NULL)
return Acad::eNoDatabase;
if ((es = acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable, AcDb::kForRead))==Acad::eOk)
{
char entryName[13];
if (nModelSpace)
strcpy(entryName,ACDB_MODEL_SPACE);
else
strcpy(entryName,ACDB_PAPER_SPACE);
//Get the Model or Paper Space record and open it for read:
if ((es = pBlockTable->getAt((const char*)entryName, pSpaceRecord, AcDb::kForRead))==Acad::eOk)
{
AcDbBlockTableRecordIterator* pIter;
if (pSpaceRecord->newIterator(pIter)==Acad::eOk)
{
for (pIter->start();!pIter->done();pIter->step())
{
char *name=NULL;
AcDbEntity* pEntity;
if (pIter->getEntity(pEntity,AcDb::kForRead)==Acad::eOk)
{
name=pEntity->layer();
if (nLayerName.CompareNoCase(name)==0)
nIDs.append(pEntity->objectId());
pEntity->close();
acutDelString(name);
}
}
delete pIter;
}
pSpaceRecord->close();
}
pBlockTable->close();
}
return es;
}

复制代码

HHSoft · 发表于 2003-7-5 16:36:09

//=========================================================
功能: 判断两点是否相同(误差在指定范围内)
参数: p1、p2为欲判定的两点
返回值: 0 -- 不相同；1 -- 相同
//=========================================================
int Equal_Points (const ads_point p1, const ads_point p2)
{
// 指定误差范围
const ads_real Equality_Margin = (ads_real)0.00000001;
int c ;
for (c = X ; c <= Z ; c++) {
if (fabs(p1[c] - p2[c]) > Equality_Margin) {
return (0) ;
}
}
return (1) ;
}

复制代码

stoneball · 发表于 2003-7-8 08:06:26

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

BOOL BaseHandle::PointIsInPolygon(AcGePoint3d pt, AcGePoint3dArray ptArr)
{
int ptNum,i,interNum;
AcGePoint3d ptA,ptB;
ads_point pt0,pt1,pt2,ptIns,ptX;
interNum = 0;
pt0[X] = 0.0;
pt0[Y] = 0.0;
pt0[Z] = 0.0;
ptX[X] = pt.x;
ptX[Y] = pt.y;
ptX[Z] = pt.z;
ptNum = ptArr.length();
for (i = 0;i < ptNum - 1;i++){
ptA = ptArr.at(i);
ptB = ptArr.at(i + 1);
pt1[X] = ptA.x;
pt1[Y] = ptA.y;
pt1[Z] = 0.0;
pt2[X] = ptB.x;
pt2[Y] = ptB.y;
pt2[Z] = 0.0;
if (acdbInters(ptX,pt0,pt1,pt2,1,ptIns) == RTNORM){
interNum++;
}
}
//上述交点没有判断是否与某一端点重合，如果有interNum-1，有
//兴趣的朋友可以修改完成。
if (interNum % 2 == 0){
return false;
}else{
return true;
}
}

复制代码

asky333 · 发表于 2003-7-26 17:51:30

如何交互生成面域对象

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

复制代码

godking311 · 发表于 2003-7-29 16:06:46

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

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 · 发表于 2003-7-29 17:57:31

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

[FONT=courier new]
BOOL GetSSExtents(ads_name ss, ads_point &maxpt, ads_point &minpt)
{
long len;
int ret=ads_sslength(ss,&len);
if(ret!=RTNORM||len<1) return FALSE;
AcDbObjectId objId;
ads_name ename;
AcDbEntity *pEnt;
AcDbExtents extent;
AcGePoint3d pt1,pt2;
ads_ssname (ss, 0, ename);
acdbGetObjectId(objId,ename);
acdbOpenObject(pEnt,objId,AcDb::kForRead);
pEnt->getGeomExtents(extent);
pt1=extent.maxPoint();
pt2=extent.minPoint();
pEnt->close();
for(int i=0;igetGeomExtents(extent);
if(pt1[X]extent.minPoint()[X]||pt2[Y]>extent.minPoint()[Y])
pt2=extent.minPoint();
pEnt->close();
}
maxpt[X]=pt1[X];
maxpt[Y]=pt1[Y];
maxpt[Z]=pt1[Z];
minpt[X]=pt2[X];
minpt[Y]=pt2[Y];
minpt[Z]=pt2[Z];
return TRUE;
}
[/FONT]

复制代码

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

一样好用的文本格式表建立函数

is Region1 in Region2?

遍历数据库版！

取得选择集包围盒