[ARX程序]：[ARX程序]：请问真正的高手！

5233

怎样获取DWG图中文字的外围轮廓？在CAD2000中快捷工具下文字选项下有个文字分解功能，
但是，分解后的文字外围轮廓有多余的线，不能满足要求，请文哪为高手碰到过这样的问题？
直接用程序获取文字的外围轮廓？
   初次上来，多多指导！

Raininging

acedTextBox();

lee5181

我写过的这样的程序，AcGiTextStyle 类。

rackyye

1. 
   
2.   [FONT=courier new]
   
3. int tbox()
   
4. {
   
5.     ads_name tname;
   
6.     struct resbuf *textent, *tent;
   
7.     ads_point origin, lowleft, upright, p1, p2, p3, p4;
   
8.     ads_real rotatn;
   
9.     char rotatstr[15];
   
10.     if (acedEntSel("\nSelect text: ", tname, p1) != RTNORM) {
    
11.         acdbFail("No Text entity selected\n");
    
12.         return BAD;
    
13.     }
    
14.     textent = acdbEntGet(tname);
    
15.     if (textent == NULL) {
    
16.         acdbFail("Couldn't retrieve Text entity\n");
    
17.         return BAD;
    
18.     }
    
19. 
    
20.     tent = entitem(textent, 10);
    
21.     origin[X] = tent->resval.rpoint[X]; //ECS coordinates
    
22.     origin[Y] = tent->resval.rpoint[Y];
    
23. 
    
24.     tent = entitem(textent, 50);
    
25.     rotatn = tent->resval.rreal;
    
26.              // acdbAngToS() converts from radians to degrees.
    
27.     if (acdbAngToS(rotatn, 0, 8, rotatstr) != RTNORM) {
    
28.         acdbFail("Couldn't retrieve or convert angle\n");
    
29.         acutRelRb(textent);
    
30.         return BAD;
    
31.     }
    
32. 
    
33.     if (acedTextBox(textent, lowleft, upright) != RTNORM) {
    
34.         acdbFail("Couldn't retrieve text box
    
35.                     coordinates\n");
    
36.         acutRelRb(textent);
    
37.         return BAD;
    
38.     }
    
39.     acutRelRb(textent);
    
40. 
    
41.         // If not currently in the WCS, at this point add
    
42.         // acedTrans() calls to convert the coordinates
    
43.         // retrieved from acedTextBox().
    
44. 
    
45.     p1[X] = origin[X] + lowleft[X]; // UCS coordinates
    
46.     p1[Y] = origin[Y] + lowleft[Y];
    
47. 
    
48.     p2[X] = origin[X] + upright[X];
    
49.     p2[Y] = origin[Y] + lowleft[Y];
    
50. 
    
51.     p3[X] = origin[X] + upright[X];
    
52.     p3[Y] = origin[Y] + upright[Y];
    
53. 
    
54.     p4[X] = origin[X] + lowleft[X];
    
55.     p4[Y] = origin[Y] + upright[Y];
    
56. 
    
57.     if (acedCommand(RTSTR, "pline", RTPOINT, p1,
    
58.         RTPOINT, p2, RTPOINT, p3,RTPOINT, p4, RTSTR, "c",
    
59.         0) != RTNORM) {
    
60.             acdbFail("Problem creating polyline\n");
    
61.             return BAD;
    
62.     }
    
63.     if (acedCommand(RTSTR, "rotate", RTSTR, "L", RTSTR, "",
    
64.         RTPOINT, origin, RTSTR, rotatstr, 0) != RTNORM) {
    
65.             acdbFail("Problem rotating polyline\n");
    
66.             return BAD;
    
67.     }
    
68.     return GOOD;
    
69. }
    
70. 
    
71.   [/FONT]
    

复制代码

lee5181

void Asdkmyselect()
{

ads_name sset;
ads_point p0;
AcDbObjectId objId,textstyleId;
if ( acedEntSel("select a text",sset ,p0) != RTNORM )
{
acutPrintf("\nno entity select");
return;
}

if(acdbGetObjectId(objId, sset)==Acad::eOk)
{

AcDbText *pEnt;
if(acdbOpenObject(pEnt, objId, AcDb::kForRead)==Acad::eOk)
{

AcGePoint2d p2d;
AcGiTextStyle mytextstyle;
textstyleId=pEnt->textStyle();
string mystring = pEnt->textString();
acutPrintf("\nThe position is x=%f",pEnt->position().x);
acutPrintf("\nThe position is y=%f",pEnt->position().y);
acutPrintf("\nThe aliagnpoint is x=%f",pEnt->alignmentPoint().x);
acutPrintf("\nThe aliagnpoint is y=%f",pEnt->alignmentPoint().y);

pEnt->close();
if(fromAcDbTextStyle(mytextstyle,textstyleId)!=Acad::eOk)
{
acutPrintf("open errO");
return;
}

p2d=mytextstyle.extents(mystring.data(),Adesk::kFalse,mystring.size(),Adesk::kTrue,NULL);
acutPrintf("\nthe width is%f", p2d.x);
acutPrintf("\nthe height is%f", p2d.y);
acutPrintf("\nthe big font is%s",mytextstyle.bigFontFileName());

}
}
acedSSFree(sset);
}