XY坐标标注

zdqwy19

  在网上看到不少XY坐标标注插件，lisp为多，objectarx比较少，我用objectarx写了一个放上来，与 大家交流一下。

1. //根据相对极坐标来确定一个点的位置;
   
2. static AcGePoint3d PolarPoint(const AcGePoint3d& pt, double angle, double distance)
   
3. {
   
4.   ads_point ptForm, ptTo;
   
5.   ptForm[X] = pt[X];
   
6.   ptForm[Y] = pt[Y];
   
7.   ptForm[Z] = pt[Z];
   
8.   acutPolar(ptForm, angle, distance, ptTo);
   
9.   return asPnt3d(ptTo);
   
10. }
    
11. //XY坐标标注;
    
12. static void zdqMyGroup_test () {
    
13.   // Put your command code here
    
14.   // 定义点接收用户选择点;
    
15.   ads_point adspt1;
    
16.   while(acedGetPoint(NULL,ACRX_T("\n选择标注点："), adspt1)== RTNORM)
    
17.   {
    
18.    CString tx, ty, ts, txx, tyy, tp;
    
19.    tp=ACRX_T("\\P");
    
20.    tx=ACRX_T("X=");
    
21.    ty=ACRX_T("\\PY=");
    
22.    txx.Format(ACRX_T("%.3f"),adspt1[X]);//设置三位小数;
    
23.    tyy.Format(ACRX_T("%.3f"),adspt1[Y]);
    
24.    ACHAR stx[100], sty[100], strx[100],stry[100],sts[100],stp[100];
    
25.    _tcscpy(stp,tp);
    
26.    _tcscpy(stx,tx);
    
27.    _tcscpy(sty,ty);
    
28.    _tcscpy(strx,txx);
    
29.    _tcscpy(stry,tyy);
    
30.    AcGePoint3d point1, point2, point3;
    
31.    //将ads_point转为AcGePoint3d类型
    
32.    point1.set(adspt1[0],adspt1[1],0.0);
    
33.    point2.set(adspt1[0]+100.0,adspt1[1]+100.0,0.0); //这儿随便写;
    
34.    point3.set(adspt1[0]+1000.0,adspt1[1]+100.0,0.0);//这儿随便写;
    
35.    //获取模型空间块表记录，为了添加实体
    
36.    AcDbBlockTable *pBlockTable;
    
37.    acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable, AcDb::kForRead);
    
38.    AcDbBlockTableRecord *pBlockTableRecord;
    
39.    pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord, AcDb::kForWrite);
    
40.    pBlockTable->close();
    
41.    //新建一个多行文字对象并添加到模型空间;
    
42.    AcDbObjectId mtextId, mtextId1;
    
43.    AcDbMText *pMtext = new AcDbMText();
    
44.    pMtext->setDatabaseDefaults () ;
    
45.    pMtext->setContents(_tcscat(_tcscat(stx,strx),_tcscat(sty,stry)));
    
46.    pMtext->setLocation (point2);
    
47.    pMtext->setTextHeight(500);//设置文字高度;
    
48.    if(point1[X]<=point2[X]){pMtext->setAttachment(AcDbMText::kMiddleLeft);}
    
49.    if(point1[X]>point2[X]){pMtext->setAttachment(AcDbMText::kMiddleRight);}
    
50.    pBlockTableRecord->appendAcDbEntity(mtextId, pMtext);
    
51.    double lo=pMtext->actualWidth();
    
52.    pMtext->close();
    
53.    //新建一个多行文字对象并添加到模型空间;
    
54.    AcDbMText *pMtext1 = new AcDbMText();
    
55.    pMtext1->setDatabaseDefaults () ;
    
56.    pMtext1->setContents(ACRX_T("X=\\PY="));
    
57.    pMtext1->setLocation (point2);
    
58.    pMtext1->setTextHeight(500);
    
59.    pBlockTableRecord->appendAcDbEntity(mtextId1, pMtext1);
    
60.    pMtext1->close();
    
61.    //新建一个引线对象并添加到模型空间;
    
62.    AcDbObjectId leaderId;
    
63.    AcDbLeader *pLeader = new AcDbLeader();
    
64.    pLeader->appendVertex(point1);
    
65.    pLeader->appendVertex(point2);
    
66.    pLeader->appendVertex(point3);
    
67.    pLeader->setDatabaseDefaults(curDoc()->database());
    
68.    pBlockTableRecord->appendAcDbEntity(leaderId, pLeader);
    
69.    pBlockTableRecord->close();
    
70.    pLeader->close();
    
71.    //放置多行文字
    
72.    AcDbMText *pText,*pMext;AcDbLeader *pLea;
    
73.    AcDbEntity *pEnt,*pEntm,*pEn;
    
74.    acedPrompt(_T("\n选择放置点："));
    
75.    AcGePoint3d ptInsertNew(0, 0, 0);
    
76.    // 鼠标拖动部分;
    
77.    int track = 1, type; //track=1
    
78.    struct resbuf result; // 保存鼠标拖动时的动态坐标;
    
79.    while (track > 0)
    
80.    {
    
81.     acedGrRead(track, &type, &result); // 追踪光标移动;
    
82.     ptInsertNew[X] = result.resval.rpoint[X];
    
83.     ptInsertNew[Y] = result.resval.rpoint[Y];
    
84.     // 设置拖动位置为直线的终点坐标;
    
85.     acdbOpenObject(pEnt, mtextId, AcDb::kForWrite);
    
86.     acdbOpenObject(pEntm, mtextId1, AcDb::kForWrite);
    
87.     acdbOpenObject(pEn, leaderId, AcDb::kForWrite);
    
88.     if (pEnt->isKindOf(AcDbMText::desc()))
    
89.     {
    
90.      pMext = AcDbMText::cast(pEntm);
    
91.      pText = AcDbMText::cast(pEnt);
    
92.      pLea = AcDbLeader::cast(pEn);
    
93.      if (pText != NULL)
    
94.      {
    
95.       _tcscpy(stp,tp);
    
96.       _tcscpy(strx,txx);
    
97.       _tcscpy(stry,tyy);
    
98.       pText->setContents(_tcscat(_tcscat(strx,stp),stry));
    
99.       if(point1[X]<=ptInsertNew[X])
    
100.       {
     
101.        pMext->setLocation(ptInsertNew);
     
102.        pMext->setAttachment(AcDbMText::kMiddleLeft);
     
103.        pText->setLocation(PolarPoint(ptInsertNew,0,lo));
     
104.        pText->setAttachment(AcDbMText::kMiddleRight);
     
105.       }
     
106.       if(point1[X]>ptInsertNew[X])
     
107.       {
     
108.        pMext->setLocation(PolarPoint(ptInsertNew,-3.1415926535897932384626433832795,lo));
     
109.        pMext->setAttachment(AcDbMText::kMiddleLeft);
     
110.        pText->setLocation(ptInsertNew);
     
111.        pText->setAttachment(AcDbMText::kMiddleRight);
     
112.       }
     
113.       pLeader->setVertexAt(0,point1);
     
114.       pLeader->setVertexAt(1,ptInsertNew);
     
115.       if(point1[X]<=ptInsertNew[X]){pLea->setVertexAt(2, PolarPoint(ptInsertNew,0,lo));}
     
116.       if(point1[X]>ptInsertNew[X]){pLea->setVertexAt(2, PolarPoint(ptInsertNew,-3.1415926535897932384626433832795,lo));}
     
117.      }
     
118.     }
     
119.     pEnt->close();pEn->close();pEntm->close();
     
120.     if (type == 3) // 如果用户按下了鼠标左键;
     
121.     {
     
122.      track = 0;
     
123.     }
     
124.    }
     
125.   }
     
126. }
     
127. //注册命令;
     
128. ACED_ARXCOMMAND_ENTRY_AUTO(CtestApp, zdqMyGroup, _test, test, ACRX_CMD_MODAL, NULL)
     

//根据相对极坐标来确定一个点的位置;<br /> static AcGePoint3d PolarPoint(const AcGePoint3d& pt, double angle, double distance)<br /> {<br />   ads_point ptForm, ptTo;<br />   ptForm[X] = pt[X];<br />   ptForm[Y] = pt[Y];<br />   ptForm[Z] = pt[Z];<br />   acutPolar(ptForm, angle, distance, ptTo);<br />   return asPnt3d(ptTo);<br /> }<br /> //XY坐标标注;<br /> static void zdqMyGroup_test () {<br />   // Put your command code here<br />   // 定义点接收用户选择点;<br />   ads_point adspt1;<br />   while(acedGetPoint(NULL,ACRX_T("\n选择标注点："), adspt1)== RTNORM)<br />   {<br />    CString tx, ty, ts, txx, tyy, tp;<br />    tp=ACRX_T("<a href=\"http://bbs.xdcad.net/file://\\P\" target=\"_blank\">\\P</a>");<br />    tx=ACRX_T("X=");<br />    ty=ACRX_T("<a href=\"http://bbs.xdcad.net/file://\\PY\" target=\"_blank\">\\PY</a>=");<br />    txx.Format(ACRX_T("%.3f"),adspt1[X]);//设置三位小数;<br />    tyy.Format(ACRX_T("%.3f"),adspt1[Y]);<br />    ACHAR stx[100], sty[100], strx[100],stry[100],sts[100],stp[100];<br />    _tcscpy(stp,tp);<br />    _tcscpy(stx,tx);<br />    _tcscpy(sty,ty);<br />    _tcscpy(strx,txx);<br />    _tcscpy(stry,tyy);<br />    AcGePoint3d point1, point2, point3;<br />    //将ads_point转为AcGePoint3d类型<br />    point1.set(adspt1[0],adspt1[1],0.0);<br />    point2.set(adspt1[0]+100.0,adspt1[1]+100.0,0.0); //这儿随便写;<br />    point3.set(adspt1[0]+1000.0,adspt1[1]+100.0,0.0);//这儿随便写;<br />    //获取模型空间块表记录，为了添加实体<br />    AcDbBlockTable *pBlockTable;<br />    acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable, AcDb::kForRead);<br />    AcDbBlockTableRecord *pBlockTableRecord;<br />    pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord, AcDb::kForWrite);<br />    pBlockTable->close();<br />    //新建一个多行文字对象并添加到模型空间;<br />    AcDbObjectId mtextId, mtextId1;<br />    AcDbMText *pMtext = new AcDbMText();<br />    pMtext->setDatabaseDefaults () ; <br />    pMtext->setContents(_tcscat(_tcscat(stx,strx),_tcscat(sty,stry)));<br />    pMtext->setLocation (point2);<br />    pMtext->setTextHeight(500);//设置文字高度;<br />    if(point1[X]<=point2[X]){pMtext->setAttachment(AcDbMText::kMiddleLeft);}<br />    if(point1[X]>point2[X]){pMtext->setAttachment(AcDbMText::kMiddleRight);}<br />    pBlockTableRecord->appendAcDbEntity(mtextId, pMtext);<br />    double lo=pMtext->actualWidth();<br />    pMtext->close();<br />    //新建一个多行文字对象并添加到模型空间;<br />    AcDbMText *pMtext1 = new AcDbMText();<br />    pMtext1->setDatabaseDefaults () ; <br />    pMtext1->setContents(ACRX_T("X=\\PY="));<br />    pMtext1->setLocation (point2);<br />    pMtext1->setTextHeight(500);<br />    pBlockTableRecord->appendAcDbEntity(mtextId1, pMtext1);<br />    pMtext1->close();<br />    //新建一个引线对象并添加到模型空间;<br />    AcDbObjectId leaderId;<br />    AcDbLeader *pLeader = new AcDbLeader();<br />    pLeader->appendVertex(point1);<br />    pLeader->appendVertex(point2);<br />    pLeader->appendVertex(point3);<br />    pLeader->setDatabaseDefaults(curDoc()->database());<br />    pBlockTableRecord->appendAcDbEntity(leaderId, pLeader);<br />    pBlockTableRecord->close();<br />    pLeader->close();<br />    //放置多行文字<br />    AcDbMText *pText,*pMext;AcDbLeader *pLea;<br />    AcDbEntity *pEnt,*pEntm,*pEn;<br />    acedPrompt(_T("\n选择放置点："));<br />    AcGePoint3d ptInsertNew(0, 0, 0);<br />    // 鼠标拖动部分;<br />    int track = 1, type; //track=1<br />    struct resbuf result; // 保存鼠标拖动时的动态坐标;<br />    while (track > 0)<br />    {<br />     acedGrRead(track, &type, &result); // 追踪光标移动;<br />     ptInsertNew[X] = result.resval.rpoint[X];<br />     ptInsertNew[Y] = result.resval.rpoint[Y];<br />     // 设置拖动位置为直线的终点坐标;<br />     acdbOpenObject(pEnt, mtextId, AcDb::kForWrite);<br />     acdbOpenObject(pEntm, mtextId1, AcDb::kForWrite);<br />     acdbOpenObject(pEn, leaderId, AcDb::kForWrite);<br />     if (pEnt->isKindOf(AcDbMText::desc()))<br />     {<br />      pMext = AcDbMText::cast(pEntm);<br />      pText = AcDbMText::cast(pEnt);<br />      pLea = AcDbLeader::cast(pEn);<br />      if (pText != NULL)<br />      {<br />       _tcscpy(stp,tp);<br />       _tcscpy(strx,txx);<br />       _tcscpy(stry,tyy);<br />       pText->setContents(_tcscat(_tcscat(strx,stp),stry));<br />       if(point1[X]<=ptInsertNew[X])<br />       {<br />        pMext->setLocation(ptInsertNew);<br />        pMext->setAttachment(AcDbMText::kMiddleLeft);<br />        pText->setLocation(PolarPoint(ptInsertNew,0,lo));<br />        pText->setAttachment(AcDbMText::kMiddleRight);<br />       }<br />       if(point1[X]>ptInsertNew[X])<br />       {<br />        pMext->setLocation(PolarPoint(ptInsertNew,-3.1415926535897932384626433832795,lo));<br />        pMext->setAttachment(AcDbMText::kMiddleLeft);<br />        pText->setLocation(ptInsertNew);<br />        pText->setAttachment(AcDbMText::kMiddleRight);<br />       }<br />       pLeader->setVertexAt(0,point1);<br />       pLeader->setVertexAt(1,ptInsertNew);<br />       if(point1[X]<=ptInsertNew[X]){pLea->setVertexAt(2, PolarPoint(ptInsertNew,0,lo));}<br />       if(point1[X]>ptInsertNew[X]){pLea->setVertexAt(2, PolarPoint(ptInsertNew,-3.1415926535897932384626433832795,lo));}<br />      }<br />     }<br />     pEnt->close();pEn->close();pEntm->close();<br />     if (type == 3) // 如果用户按下了鼠标左键;<br />     {<br />      track = 0;<br />     }<br />    }<br />   }<br /> }<br /> //注册命令;<br /> ACED_ARXCOMMAND_ENTRY_AUTO(CtestApp, zdqMyGroup, _test, test, ACRX_CMD_MODAL, NULL)<br />

这段代码生成的标注不是一个整体，由两个多行文字和一个引线组成，虽然在绘制过程可以整体拖动预览，一旦生成就不能整体拖动，这是一个缺憾！

炫翔

支持，{:soso_e179:}

yjf247606

辛苦楼主，感谢！

XDSoft

生成后，你可以通过修改引线的点坐标和其他实体的拉伸点坐标用JIG拖动。

zdqwy19

XDSoft 发表于 2013-8-4 16:23
生成后，你可以通过修改引线的点坐标和其他实体的拉伸点坐标用JIG拖动。

objectarx刚刚才学，做成可以整体拖动，估计得做成块或自定义实体，再用jig拖动，没有思路，对我太难了！

st788796

zdqwy19 发表于 2&nbsp;分钟前

                               
登录/注册后可看大图

objectarx刚刚才学，做成可以整体拖动，估计得做成块或自定义实体，再用jig拖动，没有思路，对我太难了！

不能说一通百通，autocad这点事，把一个做通了也就差不多了，支持下:)来自: Android客户端

范建威

你可以将X,Y文字做成块，在将标注点与块的插入点用多段线连接啊

xdj86

非常感谢，正需要这代码，改改就能用