ObjectARX 添加图块坐标扩展数据

来源：互联网发布：异星工厂信号网络编辑：程序博客网时间：2024/06/11 14:04

//图块坐标扩展数据double w1 = GVI_Frame_Scale*291/2;double h1 = GVI_Frame_Scale*176/2;AcGePoint3d LDP = Inset_Center + AcGeVector3d(-w1,-h1,0);//图块左下点坐标AcGePoint3d RUP = Inset_Center + AcGeVector3d(w1,h1,0);  //图块右上点坐标ads_point p1;ads_point p2;Copy_ads_point(p1,LDP);Copy_ads_point(p2,RUP);struct resbuf *McA4PointInfo = acutBuildList(AcDb::kDxfInt32,fi, AcDb::kDxfInt32,tsi, AcDb::kDxfXCoord,p1,                                         AcDb::kDxfXCoord,p2, 0);CString Strt1,Strt2;Strt1.Format(_T("Mcquay%d%d"), fi, tsi);Strt2.Format(_T("McA4PointInfo%d%d"), fi, tsi);McAcad::addXrecorder(Strt1,Strt2,McA4PointInfo);acutRelRb(McA4PointInfo);

/*函数名称：addXrecorder创建日期：功能描述：添加扩展记录参数描述：dName:*/bool McAcad::addXrecorder(CString dName,CString xrName,struct resbuf* xrecord){AcDbDatabase *pCurDb;AcDbXrecord *pXrec = new AcDbXrecord;AcDbObjectId dictObjId, xrecObjId;AcDbDictionary *pNamedObjD, *pDict;pCurDb = acdbHostApplicationServices()->workingDatabase();pCurDb->getNamedObjectsDictionary(pNamedObjD, AcDb::kForWrite);USES_CONVERSION;char *DName = W2A(dName);char *XrName = W2A(xrName);ZTCHAR *ddName = A2W(DName);ZTCHAR *xxrName = A2W(XrName);if (pNamedObjD->getAt(ddName,(AcDbObject*&)pDict, AcDb::kForWrite) == Acad::eKeyNotFound){pDict = new AcDbDictionary;pNamedObjD->setAt(ddName, pDict, dictObjId);}pNamedObjD->close();pDict->setAt(xxrName, pXrec, xrecObjId);pDict->close();pXrec->setFromRbChain(*xrecord);pXrec->close();return true;}

<pre class="cpp" name="code">//功能描述：坐标点转换void Copy_ads_point(ads_point point_to, AcGePoint3d& point_frm){point_to[0] = point_frm[0];point_to[1] = point_frm[1];point_to[2] = point_frm[2];}

0 0