[每日一码] 计算文字在AutoCAD中所占的长度，和字体样式，字高

admin

1. 在AutoCAD中，经常需要在一个创建一个文字实体之前，先要计算出它根据字体样式，字高和宽高比在图纸中所占的宽度，比如在一大段文字排版的时候很有用。于是整理封装了一下这个函数：
2. double YgxGeometry::TextLength(LPCSTR str, double h, double wr)  
3. {  
4.     if(strlen(str) == 0) return(0.);  
5.     struct resbuf *list = NULL;  
6.     ads采用point bl,rt;  
7.     char styleName[31] = {0};  
8.     YgxAu()->CurrTextStyle(styleName);  
10.     list = acutBuildList(RTDXF0,"text",1,str,7,styleName,40,h,41,wr,51,0.,NULL);  
12.     acedTextBox(list,bl,rt);  
13.     acutRelRb(list);  
15.     return fabs(bl[0]-rt[0]);  
16. }
19. 其中YgxAu()->CurrTextStyle(styleName)是得到当前字体样式，函数如下：
20. view plaincopy to clipboardprint?
21. void YgxAcadUtil::CurrTextStyle(char styleName[])  
22. {  
23.     AcDbObjectId Id = CurrDB()->textstyle();  
24.     AcDbTextStyleTableRecord* pStyleRecord;  
25.     if(acdbOpenObject((AcDbObject *&)pStyleRecord, Id, AcDb::kForRead) == Acad::eOk) {  
26.         const char *name;  
27.         pStyleRecord->getName(name);  
28.         strcpy(styleName, name);  
29.         pStyleRecord->close();  
30.     }  
31.     else strcpy(styleName, "STANDARD");  
32. }
35. 其中CurrDB()就是得到当前数据库，acdbHostApplicationServices()->workingDatabase();

复制代码