[VBA程序]：判断点是否在Region中

heluyuan

BOOL C###::ptInRegion(AcGePoint3dArray ptArray, AcGePoint3d armPt)
{
        int start = 0;
        AcGeVector3d  currentVector, previosVector, contrVector, refVector;
        int count = 0, countDir = 1;
       
        AcGePoint3d point;
        previosVector = ptArray.first() - armPt;
       
        for (int j=start + 1; j<=ptArray.length(); j++)  
        {
                if ( j==ptArray.length())  j = start;
                point = ptArray.at(j);
                currentVector = point - armPt;
                if (contrVector.isZeroLength() && !previosVector.isEqualTo(currentVector))
                        contrVector = previosVector + currentVector;
               
                refVector = previosVector.crossProduct(currentVector);
                if (previosVector.angleTo(contrVector, refVector) < previosVector.angleTo(currentVector, refVector))
                {
                        count += countDir;
                        countDir *= -1;
                }
                previosVector = currentVector;
               
                if (j == start) break;
        }
        if (count)
                return (true);  // point is included to the polygon
        else
                return (false); // point is not included to the polygon
}

kingshine

学习

ccrao

请问有人测试过是正确得吗