OpenCASCADE BRep Projection
一网友发邮件问我下图所示的效果如何在OpenCASCADE中实现，我的想法是先构造出螺旋线，再将螺旋线投影到面上。
为了验证我的想法，结合原来螺旋线的造型算法，来测试下这种效果的实现。依然采用Tcl脚本在Draw Test Harness中试验。个人觉得高效使用OpenCASCADE的方法应该也是先用Tcl脚本来验证一些想法后，再根据使用到的命令找到OpenCASCADE中DRAW的命令实现，最后再可以根据DRAW中的实现，翻译成C++代码了。
使用下列Tcl脚本生成效果和上图就很类似了，Tcl脚本代码如下所示：
#
# wrap a curve to a surface.
# Shing Liu(eryar@163.com)
# 2016-08-16 22:50
# pload ALL cone aCone *pi
trim aCone aCone *pi *pi line aLine2d
trim aSegment aLine2d *pi mkedge aHelixEdge aSegment aCone *pi # there is no curve 3d in the pcurve edge.
mkedgecurve aHelixEdge 0.001 ttranslate aHelixEdge bsplinesurf aSurface \
\
\
- - - - \
\
\
\
- - \
\
- - - - \
- - - - \ mkface aFace aSurface # use BRepProj_Projection
prj aResult aHelixEdge aFace vdisplay aHelixEdge aFace aResult_1
上述代码主要使用了Draw 命令prj，找到prj的实现代码如下所示：
static Standard_Integer prj(Draw_Interpretor& di, Standard_Integer n, const char** a)
{
char newname[];
if (n < ) return ;
TopoDS_Shape InpLine = DBRep::Get(a[]);
TopoDS_Shape InpShape = DBRep::Get(a[]);
Standard_Real DX=Draw::Atof(a[]),DY=Draw::Atof(a[]),DZ=Draw::Atof(a[]);
gp_Dir TD(DX,DY,DZ);
BRepProj_Projection Prj(InpLine,InpShape,TD);
Standard_Integer i = ;
char* temp = newname; if (Prj.IsDone()) {
while (Prj.More()) {
Sprintf(newname,"%s_%d",a[],i);
DBRep::Set(temp,Prj.Current());
//cout<<newname<<" ";
di<<newname<<" ";
i++;
Prj.Next();
}
} //cout<<endl;
di<<"\n";
return ;
}
如上述代码所示，主要使用了类BRepProj_Projection，此类的主要功能是将边或环向其他模型上进行圆锥和圆柱投影。
通过将边或环向其他模型投影的方式即可得到开头图片所示的效果。
PDF Version: OpenCASCADE BRep Projection