- UID
- 5043
- 积分
- 1347
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2002-5-13
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
在AutoCAD中,经常需要在一个创建一个文字实体之前,先要计算出它根据字体样式,字高和宽高比在图纸中所占的宽度,比如在一大段文字排版的时候很有用。于是整理封装了一下这个函数:
double YgxGeometry::TextLength(LPCSTR str, double h, double wr)
{
if(strlen(str) == 0) return(0.);
struct resbuf *list = NULL;
ads_point bl,rt;
char styleName[31] = {0};
YgxAu()->CurrTextStyle(styleName);
list = acutBuildList(RTDXF0,"text",1,str,7,styleName,40,h,41,wr,51,0.,NULL);
acedTextBox(list,bl,rt);
acutRelRb(list);
return fabs(bl[0]-rt[0]);
}
其中YgxAu()->CurrTextStyle(styleName)是得到当前字体样式,函数如下: view plaincopy to clipboardprint?
void YgxAcadUtil::CurrTextStyle(char styleName[])
{
AcDbObjectId Id = CurrDB()->textstyle();
AcDbTextStyleTableRecord* pStyleRecord;
if(acdbOpenObject((AcDbObject *&)pStyleRecord, Id, AcDb::kForRead) == Acad::eOk) {
const char *name;
pStyleRecord->getName(name);
strcpy(styleName, name);
pStyleRecord->close();
}
else strcpy(styleName, "STANDARD");
}
其中CurrDB()就是得到当前数据库,acdbHostApplicationServices()->workingDatabase();
|
|