528 lines
16 KiB
C++
528 lines
16 KiB
C++
#include "StdAfx.h"
|
|
|
|
// 加入一墙体作为隔板
|
|
AcDbObjectId AddWallAsClapboard(const XPoint &ptStart1, const XPoint &ptEnd1, double nHeight,double width=12.5)
|
|
{
|
|
AcDbObjectId idRet;
|
|
XCurveSegment curve(ptStart1, ptEnd1, 0.0);
|
|
XPoint vt=ptEnd1-ptStart1;
|
|
vt.Normalize();
|
|
XPoint ptMin, ptMax;
|
|
curve.GetExtend(ptMin, ptMax);
|
|
ptMin.x -= _AS_SYS_UNIT(g_nDistPrec); ptMin.y -= _AS_SYS_UNIT(g_nDistPrec);
|
|
ptMax.x += _AS_SYS_UNIT(g_nDistPrec); ptMax.y += _AS_SYS_UNIT(g_nDistPrec);
|
|
|
|
TDbWall *pWall=new TDbWall(ptStart1, ptEnd1);
|
|
pWall->SetHeight(nHeight);
|
|
pWall->SetUsageFlag(TWallData::kApartment);
|
|
pWall->SetStyle(TWallData::kDivider);
|
|
pWall->SetWidth(0, width);
|
|
pWall->SetWidth(1, width);
|
|
XPoly2D poly;
|
|
pWall->GetOutlinePoly(0,poly,FALSE);
|
|
|
|
RBList rbMask=ads_buildlist(RTDXF0, _T("ATS_WALL"), NULL);
|
|
PickSet ssCrossWalls(SS_FREE|SS_CREATE), ssAllWalls(SS_FREE);
|
|
XSortedVertexList lstVertexes(curve.StartPoint(), curve.EndPoint(), curve.GetBulge());
|
|
if(GetSafeSelection(ssAllWalls, 1, ptMin, ptMax, _T("ATS_WALL"))==Acad::eOk) {
|
|
long ssLen=ssAllWalls.Length();
|
|
//事先判断能否穿越墙体
|
|
for(long i=0; i<ssLen; i++) {
|
|
Entity ent=ssAllWalls[i];
|
|
XDbObject obj(ent, AcDb::kForRead);
|
|
if(!obj) continue;
|
|
TDbWall *pWall1=TDbWall::cast(obj.m_pObject);
|
|
if(!pWall1) continue;
|
|
|
|
//modified by whl on 051125
|
|
//int nPos=pWall->PosRelationWith(curve);
|
|
//if(nPos==3) { //重合
|
|
// return idRet;
|
|
//}
|
|
XPoint vt1=pWall1->EndPoint()-pWall1->StartPoint();
|
|
vt1.Normalize();
|
|
if(vt.AsAcGeVector2d().isParallelTo(vt1.AsAcGeVector2d()))
|
|
{
|
|
XPoly2D poly1;
|
|
pWall1->GetOutlinePoly(0,poly1,TRUE);
|
|
DList<XPoly2D> res;
|
|
TchSubExport::Intersect(poly,poly1,res);
|
|
if(res.Length()>0)
|
|
{
|
|
delete pWall;
|
|
return idRet;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
pWall->AddToMSpace(Adesk::kFalse);
|
|
|
|
idRet=pWall->objectId();
|
|
pWall->close();
|
|
|
|
return idRet;
|
|
}
|
|
|
|
int InsertClapDoor(const XPoint &ptLoc, double nWidth, const AcDbObjectId &idWall)
|
|
{
|
|
const TCHAR *pszDoor2d=_T("TCHSYS(APDOOR2D)"), *pszDoor3d=_T("TCHSYS(APDOOR3D)");
|
|
XString szDoor2d(256), szDoor3d(256);
|
|
if(LoadDwbBlock(pszDoor2d, szDoor2d)!=RTNORM ||
|
|
LoadDwbBlock(pszDoor3d, szDoor3d)!=RTNORM)
|
|
return RTERROR;
|
|
|
|
AcDbObjectId idStyle2d=InitBlock(szDoor2d);
|
|
AcDbObjectId idStyle3d=InitBlock(szDoor3d);
|
|
|
|
|
|
TDbOpening *pOpening=new TDbOpening(idWall, idStyle2d, idStyle3d);
|
|
pOpening->InitHardPointerId();
|
|
pOpening->m_ptLocation = ptLoc;
|
|
pOpening->SetWidth(nWidth);
|
|
pOpening->SetHeight(1800);
|
|
pOpening->SetThickness(25);
|
|
pOpening->SetKind(TOpeningData::OP_DOOR);
|
|
pOpening->m_nOpStyle |= OPS_LVTRY;
|
|
pOpening->m_nIdStyle2d=idStyle2d;
|
|
pOpening->m_nIdStyle3d=idStyle3d;
|
|
|
|
// sg add 110401，增加隔断门设置
|
|
pOpening->SetSubKind(_T("隔断门"));
|
|
|
|
//pOpening->setLayer(InitLayer(LAY_SANIWARE, FALSE));
|
|
pOpening->setLayer(InitLayer(LAY_LATRINE, FALSE));//modified by whl on 0060517
|
|
|
|
AddToModelSpace(pOpening, Adesk::kFalse);
|
|
XDbObject objWall(idWall, AcDb::kForWrite);
|
|
ASSERT(!!objWall);
|
|
TDbWall *pWall=TDbWall::cast(objWall.m_pObject);
|
|
ASSERT(pWall);
|
|
pWall->InsertOpening(pOpening);
|
|
pOpening->m_nQuadrant=3; // Add this line 2000/3/7 by ZJQ
|
|
pOpening->close();
|
|
return RTNORM;
|
|
}
|
|
|
|
// 取最近墙的边线和法向
|
|
int GetNearestWallSide(const XPoint &ptPick, XCurveSegment &seg, double *nNormal)
|
|
{
|
|
PickSet ssWall(SS_FREE);
|
|
RBList rbMask=ads_buildlist(RTDXF0, _T("ATS_WALL"),NULL);
|
|
if(ssWall.Get(_T("X"), NULL, NULL, rbMask)!=RTNORM)
|
|
return RTERROR;
|
|
|
|
Entity entNearest;
|
|
ads_real nMinDist=0.0;
|
|
long nWallNum=ssWall.Length();
|
|
for(long i=0; i<nWallNum; i++) {
|
|
Entity entWall=ssWall[i];
|
|
XDbObject obj(entWall, AcDb::kForRead);
|
|
TDbWall *pWall=TDbWall::cast(obj.m_pObject);
|
|
if(!pWall) continue;
|
|
|
|
XPoint ptProject;
|
|
if(pWall->ProjectToMe(ptPick, ptProject)!=RTNORM || (ptProject&(*pWall))!=PR_INSIDE)
|
|
continue;
|
|
ptProject.z = ptPick.z; //忽略Z坐标
|
|
ads_real nDist=ads_distance(ptPick, ptProject);
|
|
|
|
if(!entNearest) {
|
|
nMinDist = nDist;
|
|
entNearest = entWall;
|
|
} else if(nDist<nMinDist) {
|
|
nMinDist = nDist;
|
|
entNearest = entWall;
|
|
}
|
|
}
|
|
|
|
if(!entNearest)
|
|
return RTERROR;
|
|
XDbObject objWall(entNearest, AcDb::kForRead);
|
|
TDbWall *pNearestWall=TDbWall::cast(objWall.m_pObject);
|
|
if(!pNearestWall)
|
|
return RTERROR;
|
|
|
|
int bSide=pNearestWall->OnWhichSide(ptPick);
|
|
seg=pNearestWall->GetRelativeSideCurve(bSide, pNearestWall->StartPoint(), 0.0, TRUE);
|
|
|
|
XPoint ptOnBase, ptOnSide;
|
|
if(pNearestWall->ProjectToMe(ptPick, ptOnBase)!=RTNORM ||
|
|
seg.ProjectToMe(ptPick, ptOnSide)!=RTNORM) {
|
|
return RTERROR;
|
|
}
|
|
*nNormal=ads_angle(ptOnBase, ptOnSide);
|
|
return RTNORM;
|
|
}
|
|
|
|
// 绘制隔板
|
|
int DrawClapBoard()
|
|
{
|
|
InitLayer(LAY_SANIWARE);
|
|
InitLayer(LAY_LATRINE);
|
|
|
|
XPoint ptStart, ptEnd;
|
|
adsout << _T("\n输入一直线来选洁具!");
|
|
if(ads_getpoint(NULL, _T("\n起点: "), ptStart)!=RTNORM ||
|
|
ads_getpoint(ptStart, _T("\n终点: "), ptEnd)!=RTNORM)
|
|
return RTERROR;
|
|
RBList rbFence=ads_buildlist(RT3DPOINT, &ptStart, RT3DPOINT, &ptEnd, NULL);
|
|
RBList rbMask=ads_buildlist(RTDXF0, _T("INSERT,AEC_BLOCK_INSERT"), 8, LAY_SANIWARE, NULL);
|
|
PickSet ss(SS_FREE);
|
|
if(ss.Get(_T("F"), rbFence, NULL, rbMask)!=RTNORM)
|
|
return RTERROR;
|
|
long lCount=ss.Length();
|
|
if(lCount<1)
|
|
return RTERROR;
|
|
ptStart=Ucs2Wcs(ptStart);
|
|
ptEnd=Ucs2Wcs(ptEnd);
|
|
double nDist=800, nBoardWidth=25;
|
|
XCurveSegment segSide;
|
|
double nNormalAngle=0.0;
|
|
XPoint ptMidLine;
|
|
ptMidLine = XLine(ptStart, ptEnd).MidPoint();
|
|
if(GetNearestWallSide(ptMidLine, segSide, &nNormalAngle)!=RTNORM)
|
|
return RTERROR;
|
|
|
|
static double nLength=400, nHeight=800;
|
|
if(lCount==1) {
|
|
if(GetDist(_T("\n隔板间距"), nDist, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
Entity ent=ss[0L];
|
|
XPoint ptInsert;
|
|
double nRot=0;
|
|
ent.GetData(10, &ptInsert);
|
|
ent.GetData(50, &nRot);
|
|
if(GetDist(_T("\n隔板长度"), nLength, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
segSide.ProjectToMe(XPoint(ptInsert), ptInsert);
|
|
XPoint ptStart1, ptStart2, ptEnd1, ptEnd2;
|
|
ads_polar(ptInsert, nRot-PI, nDist/2.0, ptStart1);
|
|
ads_polar(ptInsert, nRot, nDist/2.0, ptStart2);
|
|
ads_polar(ptStart1, nRot-PI/2.0, nLength, ptEnd1);
|
|
ads_polar(ptStart2, nRot-PI/2.0, nLength, ptEnd2);
|
|
ptStart1.z=ptEnd1.z=ptStart2.z=ptEnd2.z=400;
|
|
AddWallAsClapboard(ptStart1, ptEnd1, nHeight);
|
|
AddWallAsClapboard(ptStart2, ptEnd2, nHeight);
|
|
} else {
|
|
PointList lstSortPoints(ptStart, ptEnd);
|
|
XCurveSegment lnPick(ptStart, ptEnd, 0.0);
|
|
double nNormalDrt=0.0;
|
|
for(long i=0L; i<lCount; i++) {
|
|
Entity ent=ss[i];
|
|
XPoint ptInsert;
|
|
double nRot=0.0;
|
|
ent.GetData(10, &ptInsert);
|
|
ent.GetData(50, &nRot);
|
|
if(lnPick.ProjectToMe(XPoint(ptInsert), ptInsert)!=RTNORM)
|
|
continue;
|
|
if(lstSortPoints.Insert(ptInsert)==RTNORM) {
|
|
nNormalDrt=nRot;
|
|
|
|
//add by whl on 060120
|
|
OPENOBJ_BEGIN(ent,AcDb::kForRead,AcDbBlockReference,pBlk);
|
|
if(pBlk!=NULL)
|
|
{
|
|
if(pBlk->scaleFactors().sy<0)
|
|
nNormalDrt+=PI;
|
|
if(pBlk->scaleFactors().sx<0)
|
|
nNormalDrt+=PI;
|
|
}
|
|
OPENOBJ_END();
|
|
}
|
|
}
|
|
nNormalDrt = CT_std_angle(nNormalDrt-PI/2.0);
|
|
XPoint qtStart, qtEnd;
|
|
if(segSide.ProjectToMe(ptStart, qtStart)!=RTNORM ||
|
|
segSide.ProjectToMe(ptEnd, qtEnd)!=RTNORM)
|
|
return RTERROR;
|
|
double nDrt=ads_angle(qtStart, qtEnd); //布置隔板的方向
|
|
|
|
if(lstSortPoints.Length()<4) {
|
|
adsout << _T("\n点取位置不合适!");
|
|
return RTERROR;
|
|
}
|
|
if(GetDist(_T("\n隔板长度"), nLength, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
|
|
nDist=lstSortPoints[1]->Distance(*lstSortPoints[2]);
|
|
XPoint ptFirstStart, ptFirstEnd; //第一个隔板的位置
|
|
ads_polar(*lstSortPoints[1], nDrt-PI, nDist/2.0, ptFirstStart);
|
|
segSide.ProjectToMe(XPoint(ptFirstStart), ptFirstStart);
|
|
ads_polar(ptFirstStart, nNormalDrt, nLength, ptFirstEnd);
|
|
|
|
ptFirstStart.z=ptFirstEnd.z=400;
|
|
AddWallAsClapboard(ptFirstStart, ptFirstEnd, nHeight);
|
|
for(int n=1; n<lstSortPoints.Length()-2; n++) {
|
|
XPoint ptStart1, ptEnd1, ptStart2;
|
|
ptStart1=*lstSortPoints[n];
|
|
ptStart2=*lstSortPoints[n+1];
|
|
XPoint ptMidStart, ptMidEnd;
|
|
ptMidStart = XLine(ptStart1, ptStart2).MidPoint();
|
|
segSide.ProjectToMe(XPoint(ptMidStart), ptMidStart);
|
|
ads_polar(ptMidStart, nNormalDrt, nLength, ptMidEnd);
|
|
ptMidStart.z=ptMidEnd.z=400;
|
|
AddWallAsClapboard(ptMidStart, ptMidEnd, nHeight);
|
|
nDist = ads_distance(ptStart1, ptStart2);
|
|
}
|
|
|
|
// 最后一个隔板
|
|
XPoint ptLastStart, ptLastEnd;
|
|
ads_polar(*lstSortPoints[lstSortPoints.Length()-2], nDrt, nDist/2.0, ptLastStart);
|
|
segSide.ProjectToMe(XPoint(ptLastStart), ptLastStart);
|
|
ads_polar(ptLastStart, nNormalDrt, nLength, ptLastEnd);
|
|
ptLastStart.z=ptLastEnd.z=400;
|
|
AddWallAsClapboard(ptLastStart, ptLastEnd, nHeight);
|
|
}
|
|
|
|
return RTNORM;
|
|
}
|
|
|
|
// 绘制隔断
|
|
int DrawApartBoard()
|
|
{
|
|
InitLayer(LAY_SANIWARE);
|
|
InitLayer(LAY_LATRINE);
|
|
XPoint ptStart, ptEnd;
|
|
adsout << _T("\n输入一直线来选洁具!");
|
|
if(ads_getpoint(NULL, _T("\n起点: "), ptStart)!=RTNORM ||
|
|
ads_getpoint(ptStart, _T("\n终点: "), ptEnd)!=RTNORM)
|
|
return RTERROR;
|
|
RBList rbFence=ads_buildlist(RT3DPOINT, &ptStart, RT3DPOINT, &ptEnd, NULL);
|
|
RBList rbMask=ads_buildlist(RTDXF0, _T("INSERT,AEC_BLOCK_INSERT"), 8, LAY_SANIWARE, NULL);
|
|
PickSet ss(SS_FREE);
|
|
if(ss.Get(_T("F"), rbFence, NULL, rbMask)!=RTNORM)
|
|
return RTERROR;
|
|
long lCount=ss.Length();
|
|
if(lCount<1)
|
|
return RTERROR;
|
|
ptStart=Ucs2Wcs(ptStart);
|
|
ptEnd=Ucs2Wcs(ptEnd);
|
|
double nDist=800, nBoardWidth=25;
|
|
XCurveSegment segSide;
|
|
double nNormalAngle=0.0;
|
|
XPoint ptMidLine;
|
|
ptMidLine = XLine(ptStart, ptEnd).MidPoint();
|
|
if(GetNearestWallSide(ptMidLine, segSide, &nNormalAngle)!=RTNORM)
|
|
return RTERROR;
|
|
|
|
static double nLength=1200, nDoorWidth=600, nHeight=1800;
|
|
if(lCount==1) {
|
|
if(GetDist(_T("\n隔断间距"), nDist, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
Entity ent=ss[0L];
|
|
XPoint ptInsert;
|
|
double nRot=0;
|
|
ent.GetData(10, &ptInsert);
|
|
ent.GetData(50, &nRot);
|
|
if(GetDist(_T("\n隔断长度"), nLength, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
if(GetDist(_T("\n隔断门宽"), nDoorWidth, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
|
|
segSide.ProjectToMe(XPoint(ptInsert), ptInsert);
|
|
XPoint ptStart1, ptStart2, ptEnd1, ptEnd2;
|
|
ads_polar(ptInsert, nRot-PI, nDist/2.0, ptStart1);
|
|
ads_polar(ptInsert, nRot, nDist/2.0, ptStart2);
|
|
ads_polar(ptStart1, nRot-PI/2.0, nLength, ptEnd1);
|
|
ads_polar(ptStart2, nRot-PI/2.0, nLength, ptEnd2);
|
|
ptStart1.z=ptEnd1.z=ptStart2.z=ptEnd2.z=400;
|
|
AddWallAsClapboard(ptStart1, ptEnd1, nHeight);
|
|
AddWallAsClapboard(ptStart2, ptEnd2, nHeight);
|
|
AcDbObjectId idWall=AddWallAsClapboard(ptEnd1, ptEnd2, nHeight);
|
|
XPoint ptDoor;
|
|
ptDoor = XLine(ptEnd1, ptEnd2).MidPoint();
|
|
if(!!idWall)
|
|
InsertClapDoor(ptDoor, nDoorWidth, idWall);
|
|
} else {
|
|
PointList lstSortPoints(ptStart, ptEnd);
|
|
XCurveSegment lnPick(ptStart, ptEnd, 0.0);
|
|
double nNormalDrt=0.0;
|
|
for(long i=0L; i<lCount; i++) {
|
|
Entity ent=ss[i];
|
|
XPoint ptInsert;
|
|
double nRot=0.0;
|
|
ent.GetData(10, &ptInsert);
|
|
ent.GetData(50, &nRot);
|
|
if(lnPick.ProjectToMe(XPoint(ptInsert), ptInsert)!=RTNORM)
|
|
continue;
|
|
if(lstSortPoints.Insert(ptInsert)==RTNORM)
|
|
{
|
|
nNormalDrt=nRot;
|
|
|
|
//add by whl on 060120
|
|
OPENOBJ_BEGIN(ent,AcDb::kForRead,AcDbBlockReference,pBlk);
|
|
if(pBlk!=NULL)
|
|
{
|
|
if(pBlk->scaleFactors().sy<0)
|
|
nNormalDrt+=PI;
|
|
if(pBlk->scaleFactors().sx<0)
|
|
nNormalDrt+=PI;
|
|
}
|
|
OPENOBJ_END();
|
|
}
|
|
|
|
}
|
|
nNormalDrt = CT_std_angle(nNormalDrt-PI/2.0);
|
|
XPoint qtStart, qtEnd;
|
|
if(segSide.ProjectToMe(ptStart, qtStart)!=RTNORM ||
|
|
segSide.ProjectToMe(ptEnd, qtEnd)!=RTNORM)
|
|
return RTERROR;
|
|
double nDrt=ads_angle(qtStart, qtEnd); //布置隔板的方向
|
|
|
|
if(lstSortPoints.Length()<4) {
|
|
adsout << _T("\n点取位置不合适!");
|
|
return RTERROR;
|
|
}
|
|
if(GetDist(_T("\n隔板长度"), nLength, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
if(GetDist(_T("\n隔断门宽"), nDoorWidth, RSG_NONEG|RSG_NOZERO)==RTCAN)
|
|
return RTERROR;
|
|
|
|
nDist=lstSortPoints[1]->Distance(*lstSortPoints[2]);
|
|
XPoint ptFirstStart, ptFirstEnd; //第一个隔板的位置
|
|
ads_polar(*lstSortPoints[1], nDrt-PI, nDist/2.0, ptFirstStart);
|
|
segSide.ProjectToMe(XPoint(ptFirstStart), ptFirstStart);
|
|
ads_polar(ptFirstStart, nNormalDrt, nLength, ptFirstEnd);
|
|
ptFirstStart.z=ptFirstEnd.z=400;
|
|
AddWallAsClapboard(ptFirstStart, ptFirstEnd, nHeight);
|
|
for(int n=1; n<lstSortPoints.Length()-2; n++) {
|
|
XPoint ptStart1, ptEnd1, ptStart2;
|
|
ptStart1=*lstSortPoints[n];
|
|
ptStart2=*lstSortPoints[n+1];
|
|
XPoint ptMidStart, ptMidEnd;
|
|
ptMidStart = XLine(ptStart1, ptStart2).MidPoint();
|
|
segSide.ProjectToMe(XPoint(ptMidStart), ptMidStart);
|
|
ads_polar(ptMidStart, nNormalDrt, nLength, ptMidEnd);
|
|
ptMidStart.z=ptMidEnd.z=ptFirstEnd.z=400;
|
|
AddWallAsClapboard(ptMidStart, ptMidEnd, nHeight);
|
|
AcDbObjectId idWall=AddWallAsClapboard(ptFirstEnd, ptMidEnd, nHeight);
|
|
XPoint ptDoor;
|
|
ptDoor = XLine(ptFirstEnd, ptMidEnd).MidPoint();
|
|
if(!!idWall)
|
|
InsertClapDoor(ptDoor, nDoorWidth, idWall);
|
|
nDist = ads_distance(ptStart1, ptStart2);
|
|
ptFirstStart=ptMidStart;
|
|
ptFirstEnd=ptMidEnd;
|
|
}
|
|
|
|
// 最后一个隔板
|
|
XPoint ptLastStart, ptLastEnd;
|
|
ads_polar(*lstSortPoints[lstSortPoints.Length()-2], nDrt, nDist/2.0, ptLastStart);
|
|
segSide.ProjectToMe(XPoint(ptLastStart), ptLastStart);
|
|
ads_polar(ptLastStart, nNormalDrt, nLength, ptLastEnd);
|
|
ptLastStart.z=ptLastEnd.z=ptFirstEnd.z=400;
|
|
AddWallAsClapboard(ptLastStart, ptLastEnd, nHeight);
|
|
AcDbObjectId idWall=AddWallAsClapboard(ptFirstEnd, ptLastEnd, nHeight);
|
|
XPoint ptDoor;
|
|
ptDoor = XLine(ptFirstEnd, ptLastEnd).MidPoint();
|
|
if(!!idWall)
|
|
InsertClapDoor(ptDoor, nDoorWidth, idWall);
|
|
}
|
|
|
|
return RTNORM;
|
|
}
|
|
|
|
int CallBlkArg()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
int CallBlkMan()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
|
|
int CreateDbfFile()
|
|
{
|
|
FieldInfo fields[4];
|
|
fields[0] = FieldInfo(_T("kind"), _T('C'), 64);
|
|
fields[1] = FieldInfo(_T("item"), _T('C'), 64);
|
|
fields[2] = FieldInfo(_T("drawing"), _T('C'), 32);
|
|
CodeBase db, dbOld;
|
|
CString sKind, sItem, sDrawing; //类别,名称,内部图名
|
|
|
|
XDbfTable *pTable = db.Create(_T("d:\\blocklib.dbf"), fields, 4);
|
|
XDbfTable *table = dbOld.Open(_T("D:\\tch5\\DDLIB\\DDBL.dbf"));
|
|
if(pTable)
|
|
{
|
|
if(table)
|
|
{
|
|
table->MoveFirst();
|
|
while(!table->IsEOF())
|
|
{
|
|
GET_FIELD(table, _T("kind"), sKind);
|
|
GET_FIELD(table, _T("item"), sItem);
|
|
GET_FIELD(table, _T("drawing"), sDrawing);
|
|
|
|
pTable->AppendBegin();
|
|
SET_FIELD(pTable, _T("kind"), (LPCTSTR)sKind);
|
|
SET_FIELD(pTable, _T("item"), (LPCTSTR)sItem);
|
|
SET_FIELD(pTable, _T("drawing"), (LPCTSTR)sDrawing);
|
|
pTable->AppendEnd();
|
|
table->MoveNext();
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
adsout << _T("Fail!");
|
|
}
|
|
return RTNORM;
|
|
}
|
|
|
|
int CreateDbf1()
|
|
{
|
|
FieldInfo fields[6];
|
|
fields[0]=FieldInfo(_T("name"), _T('C'), 32);
|
|
fields[1]=FieldInfo(_T("fill"), _T('N'), 1);
|
|
fields[2]=FieldInfo(_T("color"), _T('N'), 3);
|
|
fields[3]=FieldInfo(_T("priority"), _T('N'), 1);
|
|
fields[4]=FieldInfo(_T("lweight"), _T('N'), 5, 2);
|
|
CodeBase db;
|
|
XDbfTable *pTable=db.Create(_T("d:\\tch5\\sys\\compstyl.dbf"), fields, 6);
|
|
if(pTable)
|
|
{
|
|
pTable->AppendBegin();
|
|
SET_FIELD(pTable, _T("name"), _T("钢筋混凝土墙"));
|
|
SET_FIELD(pTable, _T("fill"), 1);
|
|
SET_FIELD(pTable, _T("color"), 5);
|
|
SET_FIELD(pTable, _T("priority"), 2);
|
|
SET_FIELD(pTable, _T("lweight"), 0.5);
|
|
pTable->AppendEnd();
|
|
|
|
pTable->AppendBegin();
|
|
SET_FIELD(pTable, _T("name"), _T("砖墙"));
|
|
SET_FIELD(pTable, _T("fill"), 0);
|
|
SET_FIELD(pTable, _T("color"), 256);
|
|
SET_FIELD(pTable, _T("priority"), 1);
|
|
SET_FIELD(pTable, _T("lweight"), 0.5);
|
|
pTable->AppendEnd();
|
|
|
|
pTable->AppendBegin();
|
|
SET_FIELD(pTable, _T("name"), _T("隔墙"));
|
|
SET_FIELD(pTable, _T("fill"), 0);
|
|
SET_FIELD(pTable, _T("color"), 256);
|
|
SET_FIELD(pTable, _T("priority"), 0);
|
|
SET_FIELD(pTable, _T("lweight"), 0.25);
|
|
pTable->AppendEnd();
|
|
|
|
pTable->AppendBegin();
|
|
SET_FIELD(pTable, _T("name"), _T("玻璃幕墙"));
|
|
SET_FIELD(pTable, _T("fill"), 0);
|
|
SET_FIELD(pTable, _T("color"), 4);
|
|
SET_FIELD(pTable, _T("priority"), 3);
|
|
SET_FIELD(pTable, _T("lweight"), 0);
|
|
pTable->AppendEnd();
|
|
|
|
adsout << _T("OK!");
|
|
}
|
|
else
|
|
{
|
|
adsout << _T("Fail!");
|
|
}
|
|
return RTNORM;
|
|
}
|
|
|