|
|
// //创建标注样式
AcDbObjectId Cfuhaobiao::AddDimStyle(char styleName[100],int bili,AcDbObjectId lineId2)
{
// 获得当前图形的标注样式表
AcDbObjectId lineId;
struct resbuf pResult;
AcDbDimStyleTable *pDimStyleTbl;
acdbHostApplicationServices()->workingDatabase()
->getDimStyleTable(pDimStyleTbl, AcDb::kForWrite);
// 创建新的标注样式表记录
AcDbDimStyleTableRecord *pDimStyleTblRcd;
pDimStyleTblRcd = new AcDbDimStyleTableRecord();
if (pDimStyleTbl->has(styleName))
{
pDimStyleTbl->close();
acdbHostApplicationServices()->workingDatabase()
->getDimStyleTable(pDimStyleTbl, AcDb::kForRead);
pDimStyleTbl->getAt(styleName, lineId);
//把标注样式设置为当前
acedGetVar(_T("DIMSTYLE"),&pResult);//取得当前标注
//如果用下面的方法则标注样式会有一个"样式替代"
if (pResult.resval.rstring !=styleName )
acdbHostApplicationServices()->workingDatabase()
->setDimstyle(lineId);
pDimStyleTbl->close();
return lineId;
}
// 设置标注样式的特性
pDimStyleTblRcd->setName(styleName); // 样式名称
pDimStyleTblRcd->setDimasz(50*bili); // 箭头长度
pDimStyleTblRcd->setDimblk("_Oblique");//设置箭头的形状为建筑标记
pDimStyleTblRcd->setDimexe(30*bili); // 指定尺寸界线超出尺寸线的距离
pDimStyleTblRcd->setDimlfac(1);//比例因子
AcCmColor suiceng;
suiceng.setColorIndex(256);
pDimStyleTblRcd->setDimclrd(suiceng);//为尺寸线、箭头和标注引线指定颜色，0为随图层
pDimStyleTblRcd->setDimclre(suiceng);//为尺寸界线指定颜色。此颜色可以是任意有效的颜色编号
pDimStyleTblRcd->setDimclrt(suiceng);//为标注文字指定颜色，0为随图层
pDimStyleTblRcd->setDimdec(0);//设置标注主单位显示的小数位位数，0为随图层
pDimStyleTblRcd->setDimexo(30*bili);//指定尺寸界线偏移原点的距离
pDimStyleTblRcd->setDimgap(10*bili);//文字从尺寸线偏移 '当尺寸线分成段以在两段之间放置标注文字时，设置标注文字周围的距离
pDimStyleTblRcd->setDimjust(0);//控制标注文字的水平位置
pDimStyleTblRcd->setDimtix(1);//设置标注文字始终绘制在尺寸界线之间
//'.SetVariable "DimJust", 0 '控制标注文字的水平位置
// '0 将文字置于尺寸线之上，并在尺寸界线之间置中对正
// '1 紧邻第一条尺寸界线放置标注文字
// '2 紧邻第二条尺寸界线放置标注文字
// '3 将标注文字放在第一条尺寸界线以上，并与之对齐
//'4 将标注文字放在第二条尺寸界线以上，并与之对齐
pDimStyleTblRcd->setDimtmove(0);//设置标注文字的移动规则
//'0 尺寸线和标注文字一起移动
//'1 在移动标注文字时添加一条引线
// '2 允许标注文字自由移动而不用添加引线
pDimStyleTblRcd->setDimtxsty(lineId2);//指定标注的文字样式
pDimStyleTblRcd->setDimtxt(100);//指定标注文字的高度，除非当前文字样式具有固定的高度
pDimStyleTblRcd->setDimtad(1*bili); // 文字位于标注线的上方
// 将标注样式表记录添加到标注样式表中
pDimStyleTbl->add(lineId,pDimStyleTblRcd);
pDimStyleTblRcd->close();
//设置为当前
pDimStyleTbl->close();
acdbHostApplicationServices()->workingDatabase()
->getDimStyleTable(pDimStyleTbl, AcDb::kForRead);
//使用下面的方法不成功~
acedGetVar(_T("DIMSTYLE"),&pResult);//取得当前标注
pResult.resval.rstring =styleName;//;pLtName;
acedSetVar(_T("DIMSTYLE"), &pResult);
pDimStyleTbl->close();
return lineId;
}
问题是:我如何把某一标注样式设置为当前的标注样式,并且不要出现样式替代?
|
|
置顶卡
