[求助]：各位，能帮我看看这个判断点是否在一面域上的程序吗？为什么不能成功？

leemanzhuo

程序思路：在lisp中用该函数，参数一为一面域句柄，参数二为一三维点，程序目的是以三维点作一半径为1的圆，获得该圆的面域，再求圆的面域和参数一面域的交集，若交集为圆的面域，则判断出点在面域内，返回T,否则返回nil，但为什么无论传入的点是否在面域内都返回nil呢？
[php]
int isinregion(struct resbuf *rb)
{
ads_name objName;
AcDbObjectId objId;
AcDbCircle *circle;
AcGeVector3d normal(0.0, 0.0, 1.0);
AcDbRegion *region;
AcDbRegion *circleregion;
AcDbRegion *newregion;
AcDbVoidPtrArray crarray;
AcDbVoidPtrArray rearray;
AcGePoint3d point;
struct resbuf *rb1;
if (rb == NULL)
{
return RTERROR;
}
if (rb->restype == RTSTR) {
if(acdbHandEnt(rb->resval.rstring, objName) != RTNORM)
{
acdbFail("No entity with that handle exists\n");
return RTERROR;
}
} else {
acdbFail(/*MSG3*/"Argument1 should be an Handle String.");
return RTERROR;
}
rb1 = rb->rbnext;
if (rb1 == NULL)
return RTERROR;
if (rb1->restype == RT3DPOINT) {
point.set(rb1->resval.rpoint[X], rb1->resval.rpoint[Y], rb1->resval.rpoint[Z]);
} else {
acdbFail(/*MSG3*/"Argument2 should be an 3DPOINT.");
return RTERROR;
}
if(acdbGetObjectId(objId, objName) == Acad::eInvalidAdsName)
{
acedRetNil();
return RTNORM;
}
if(acdbOpenObject(region, objId , AcDb::kForWrite) != Acad::eOk)
{
acedRetNil();
return RTNORM;
}
circle = new AcDbCircle(point, normal, 1);
crarray.append(circle);
if(AcDbRegion::createFromCurves(crarray,
rearray) == Acad::eInvalidInput)
{
acedAlert("InvalidInput.");
acedRetNil();
return RTNORM;
}
circleregion = AcDbRegion::cast((AcRxObject*)rearray[0]);
if(region->booleanOper(AcDb::kBoolIntersect, circleregion) == Acad::eOk)
{
acedRetT();
}
else
{
//acedAlert("NULL.");
acedRetNil();
}
for (int i = 0; i < rearray.length(); i++) {
delete (AcRxObject*)rearray;
}
region->close();
return RTNORM;
}
[/php]

XDSoft

最初由 leemanzhuo 发布
[B]程序思路：在lisp中用该函数，参数一为一面域句柄，参数二为一三维点，程序目的是以三维点作一半径为1的圆，获得该圆的面域，再求圆的面域和参数一面域的交集，若交集为圆的面域，则判断出点在面域内，返回T,否则返?.. [/B]

程序执行到求交的部分了吗? 即下面的分支.circleregion模型是否保证生成了?

if(region->booleanOper(AcDb::kBoolIntersect, circleregion) == Acad::eOk)
{
acedRetT();
}
else
{
//acedAlert("NULL.");
acedRetNil();
}

另外提几个建议:
1.ads_point到AcGePoint3d的转换,可以直接用point=asPnt3d(rb->resval.rpoint);

2.曲线生成REGION模型,判断只判断是否eOk就可以,更通用.if (AcDbRegion::createFromCurves(crarray,
rearray) !=Acad::eOk)

3.圆的NORMAL建议从REGION得到,这样能保证两个REGION的NORMAL是一样的.

XDSoft

最初由 leemanzhuo 发布
[B]程序思路：在lisp中用该函数，参数一为一面域句柄，参数二为一三维点，程序目的是以三维点作一半径为1的圆，获得该圆的面域，再求圆的面域和参数一面域的交集，若交集为圆的面域，则判断出点在面域内，返回T,否则返?.. [/B]

求点是否在面域内的算法,我想根据点和REGION的型心,X轴,Y轴求出惯性矩等那些参数应该可以直接判断出来.REGION本身的几何信息可以从getAreaProp()得到. 应该有数学方法求点和刚体的位置关系,可惜高数没有学好,大家讨论讨论用数学的方法是否可以做到吧.

XDSoft

最初由 leemanzhuo 发布
[B]程序思路：在lisp中用该函数，参数一为一面域句柄，参数二为一三维点，程序目的是以三维点作一半径为1的圆，获得该圆的面域，再求圆的面域和参数一面域的交集，若交集为圆的面域，则判断出点在面域内，返回T,否则返?.. [/B]

下面是HOBOSOFT朋友贴的使用BREP API的方法.

[php]
BOOL PointInBrep(AcDbRegion *pRegion, AcGePoint3d Pt)
{
if (pRegion == NULL) return FALSE;
AcBrBrep brep;
if (brep.set(*m_pRegion) != AcBr::eOk) return FALSE;
AcBr::Relation relation;
AcBr::ErrorStatus esbr = brep.getPointRelationToBrep(Pt, relation);
if (esbr != AcBr::eOk) return FALSE;
switch(relation)
{
case AcBr::kBoundary:// return CXtBrepUtility::eOnBoundary;
case AcBr::kInside: return TRUE;
default: return FALSE;
}
}
[/php]
程序需要包括 #include "brbrep.h"
和连接 acbr15.lib 库

leemanzhuo

我也相信从region的本身信息能够算出点是否在平面内的，我分析过一些程序就是这样做，通过massprop把region的信息保存到文件中，然后读取该文件获得面域的几何参数来判断点是否在面域里，就是不知道起算法是如何，谁能说说呢？

forest99bjx

我在使用AcBrBrep时，总是报出一堆的关于这个类的linkerror！
我现在用的是.net,arx2004,环境设置里我也添加了，这个类的inc和lib目录；
请问还需要进行一些比较特殊的设置吗？

XDSoft

最初由 forest99bjx 发布
[B]我在使用AcBrBrep时，总是报出一堆的关于这个类的linkerror！
我现在用的是.net,arx2004,环境设置里我也添加了，这个类的inc和lib目录；
请问还需要进行一些比较特殊的设置吗？ [/B]

保证INC和LIB目录设置好后，你的程序初始化部分还要有判断ACBR库是否加载了，如没有加载，就加载它。


[program]
if (!acrxClassDictionary->at("AcBrEntity"))
#if (ADS>15)
        acrxDynamicLinker->loadModule("acbr16.dbx", 1);
#else
        acrxDynamicLinker->loadModule("acbr15.dll", 1);
#endif
[/program]

上面对2004、2005加载acbr16.dbx，对2000、2002加载acbr15.dll

ADS的值你根据情况在预编译里面设置好如ADS=16或ADS=15，如果你就是开发2004、2005下面的程序，就不用判断了，直接用：

[program]
if (!acrxClassDictionary->at("AcBrEntity"))
        acrxDynamicLinker->loadModule("acbr16.dbx", 1);
[/program]

lyousme

这段程序我用了，很好用，但是在使用AcBrBrep时，不是每一个AutoCAD版本都可以调用成功，在我的实验中，AutoCAD2000和AutoCAD LT 2002怎么都不能调用成功，这个问题应该怎样处理？

bitgothic

是啊，该怎么处理呢

ObjectArx

lyousme 发表于 2004-8-27 16:11

有些AUTOCAD的版本是有BUG的