梦想绘图控件编程技术专贴

mxdwg

后面会不停更新使用梦想控件中objectarx编程接口和Vba编程接口的例程代码，主要是一些常用功能的函数代码,
例程的代码的编译运行需要控件库才行，最新控件库下载连接:http://www.mxdraw.com/?p=9，技术交流QQ群:112199959

VC: 遍历当前块表记录中的所有实体，并修改颜色的代码

1.    void ModifyAllEntity()
   
2.     {
   
3.         // 下面读取图中指定块的属性。
   
4.         McDbBlockTableRecordPointer spBlkRec(MCDB_MODEL_SPACE,
   
5.             acdbCurDwg(),McDb::kForRead);
   
6. 
   
7.         if(spBlkRec.openStatus() != Mcad::eOk)
   
8.         {
   
9.             return;
   
10.         }
    
11. 
    
12.         // 生成遍历数据库用的遍历器.
    
13.         McDbBlockTableRecordIterator* pIterator = NULL;
    
14.         spBlkRec->newIterator(pIterator);
    
15. 
    
16.         if(pIterator == NULL)
    
17.             return;
    
18. 
    
19.         std::auto_ptr<McDbBlockTableRecordIterator> spIter(pIterator);
    
20. 
    
21.         // 遍历数据库
    
22. 
    
23.         for(;!pIterator->done();pIterator->step() )
    
24.         {
    
25.             McDbObjectId id;
    
26.             pIterator->getEntityId(id);
    
27. 
    
28.             McDbObjectPointer<AcDbEntity> spEntity(id,McDb::kForWrite);
    
29.             if(spEntity.openStatus() != Mcad::eOk)
    
30.                 continue;
    
31. 
    
32.             spEntity->setColorIndex(MrxDbgUtils::kWhite);
    
33. 
    
34.             if(McDbLine::cast(spEntity.object()) != NULL)
    
35.             {
    
36.                 // 是个直线实体
    
37.                 McDbLine* pLine = McDbLine::cast(spEntity.object());
    
38.             }
    
39.             else if(McDbArc::cast(spEntity.object()) != NULL)
    
40.             {
    
41.                 // 是个圆弧实体
    
42.                 McDbArc* pArc = McDbArc::cast(spEntity.object());
    
43.             }
    
44.             else if(McDbText::cast(spEntity.object()) != NULL)
    
45.             {
    
46.                 // 是个文字实体
    
47.                 McDbText* pText = McDbText::cast(spEntity.object());
    
48.             }
    
49.             /*
    
50.             else if... ...
    
51.             */
    
52. 
    
53.         }
    
54.     }
    

复制代码

VB6代码，得到图纸空间中所有实体

2. '得到当前图纸空间中所有实体的代码演示
   
3. '当前的图纸空间
   
4. Dim curSpace8 As MxDrawXLib.MxDrawBlockTableRecord
   
5. Set curSpace8 = app.WorkingDatabase.CurrentSpace
   
6. 
   
7. ' 工具对象，用于向命令行输入出字符串
   
8. Dim mxUtility8 As MxDrawXLib.MxDrawUtility
   
9. Set mxUtility8 = New MxDrawXLib.MxDrawUtility
   
10. 
    
11. '遍历器，用于遍历当前图纸空间中所有的实体
    
12. Dim iter As MxDrawXLib.MxDrawBlockTableRecordIterator
    
13. Set iter = curSpace8.NewIterator
    
14. 
    
15. Dim ptDim1 As MxDrawXLib.MxDrawPoint
    
16. Dim ptDim2 As MxDrawXLib.MxDrawPoint
    
17. 
    
18. If (iter Is Nothing) Then
    
19. Exit Sub
    
20. End If
    
21. 
    
22. '循环得到所有实体
    
23. Do While iter.Done = False
    
24. ' 得到遍历器当前的实体
    
25. Dim ent8 As MxDrawXLib.MxDrawEntity
    
26. Set ent8 = iter.GetEntity()
    
27. 
    
28. If (ent8 Is Nothing) = False Then
    
29. If TypeOf ent8 Is MxDrawXLib.MxDrawText Then
    
30. '当前实体是个文字实体
    
31. Dim text8 As MxDrawXLib.MxDrawText
    
32. Set text8 = ent8
    
33. mxUtility8.Prompt Chr(13) + Chr(10) + text8.TextString
    
34. ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawPolyline Then
    
35. '当前实体是一个多义线
    
36. Dim polyline As MxDrawXLib.MxDrawPolyline
    
37. Set polyline = ent8
    
38. 
    
39. mxUtility8.Prompt Chr(13) + Chr(10) + "发现Polyline曲线, 下面是它的坐标信息:"
    
40. '得到Polyline的端点坐标
    
41. 
    
42. Dim iNum As Long
    
43. iNum = 0
    
44. Do While iNum < polyline.NumVerts
    
45. 
    
46. Dim tmpPt As MxDrawXLib.MxDrawPoint
    
47. Set tmpPt = polyline.GetPointAt(iNum)
    
48. 
    
49. mxUtility8.Prompt Chr(13) + Chr(10) + "坐标为x:" & tmpPt.x & "y:" & tmpPt.y & "凸度为:" & polyline.GetBulgeAt(iNum)
    
50. 
    
51. 
    
52. iNum = iNum + 1
    
53. Loop
    
54. 
    
55. 
    
56. ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawDimAligned Then
    
57. 
    
58. Dim dimAligned8 As MxDrawXLib.MxDrawDimAligned
    
59. Set dimAligned8 = ent8
    
60. 
    
61. mxUtility8.Prompt Chr(13) + Chr(10) + dimAligned8.DimensionText
    
62. '当DimensionText返回为空时，可以用下面的ptDim1,ptDim2两点的距离算出标注内容。
    
63. Set ptDim1 = dimAligned8.XLine1Point
    
64. Set ptDim2 = dimAligned8.XLine2Point
    
65. 
    
66. ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawDimRotated Then
    
67. 
    
68. Dim dimRotated8 As MxDrawXLib.MxDrawDimRotated
    
69. Set dimRotated8 = ent8
    
70. 
    
71. mxUtility8.Prompt Chr(13) + Chr(10) + dimRotated8.DimensionText
    
72. '当DimensionText返回为空时，可以用下面的ptDim1,ptDim2两点的距离算出标注内容。
    
73. Set ptDim1 = dimRotated8.XLine1Point
    
74. Set ptDim2 = dimRotated8.XLine2Point
    
75. ' ElseIf TypeOf ent8 Is 其它类型 Then
    
76. ' ... ...
    
77. 
    
78. End If
    
79. 
    
80. End If
    
81. iter.Step
    
82. Loop

'得到当前图纸空间中所有实体的代码演示<br /> '当前的图纸空间<br /> Dim curSpace8 As MxDrawXLib.MxDrawBlockTableRecord<br /> Set curSpace8 = app.WorkingDatabase.CurrentSpace<br /> <br /> ' <a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>对象，用于向命令行输入出字符串<br /> Dim mxUtility8 As MxDrawXLib.MxDrawUtility<br /> Set mxUtility8 = New MxDrawXLib.MxDrawUtility<br /> <br /> '遍历器，用于遍历当前图纸空间中所有的实体<br /> Dim iter As MxDrawXLib.MxDrawBlockTableRecordIterator<br /> Set iter = curSpace8.NewIterator<br /> <br /> Dim ptDim1 As MxDrawXLib.MxDrawPoint<br /> Dim ptDim2 As MxDrawXLib.MxDrawPoint<br /> <br /> If (iter Is Nothing) Then<br /> Exit Sub<br /> End If<br /> <br /> '循环得到所有实体<br /> Do While iter.Done = False<br /> ' 得到遍历器当前的实体<br /> Dim ent8 As MxDrawXLib.MxDrawEntity<br /> Set ent8 = iter.GetEntity()<br /> <br /> If (ent8 Is Nothing) = False Then<br /> If TypeOf ent8 Is MxDrawXLib.MxDrawText Then<br /> '当前实体是个文字实体<br /> Dim text8 As MxDrawXLib.MxDrawText<br /> Set text8 = ent8<br /> mxUtility8.Prompt Chr(13) + Chr(10) + text8.TextString<br /> ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawPolyline Then<br /> '当前实体是一个多义线<br /> Dim polyline As MxDrawXLib.MxDrawPolyline<br /> Set polyline = ent8<br /> <br /> mxUtility8.Prompt Chr(13) + Chr(10) + "发现Polyline曲线, 下面是它的坐标信息:"<br /> '得到Polyline的端点坐标<br /> <br /> Dim iNum As Long<br /> iNum = 0<br /> Do While iNum < polyline.NumVerts<br /> <br /> Dim tmpPt As MxDrawXLib.MxDrawPoint<br /> Set tmpPt = polyline.GetPointAt(iNum)<br /> <br /> mxUtility8.Prompt Chr(13) + Chr(10) + "坐标为x:" & tmpPt.x & "y:" & tmpPt.y & "凸度为:" & polyline.GetBulgeAt(iNum)<br /> <br /> <br /> iNum = iNum + 1<br /> Loop<br /> <br /> <br /> ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawDimAligned Then<br /> <br /> Dim dimAligned8 As MxDrawXLib.MxDrawDimAligned<br /> Set dimAligned8 = ent8<br /> <br /> mxUtility8.Prompt Chr(13) + Chr(10) + dimAligned8.DimensionText<br /> '当DimensionText返回为空时，可以用下面的ptDim1,ptDim2两点的距离算出标注内容。<br /> Set ptDim1 = dimAligned8.XLine1Point<br /> Set ptDim2 = dimAligned8.XLine2Point<br /> <br /> ElseIf TypeOf ent8 Is MxDrawXLib.MxDrawDimRotated Then<br /> <br /> Dim dimRotated8 As MxDrawXLib.MxDrawDimRotated<br /> Set dimRotated8 = ent8<br /> <br /> mxUtility8.Prompt Chr(13) + Chr(10) + dimRotated8.DimensionText<br /> '当DimensionText返回为空时，可以用下面的ptDim1,ptDim2两点的距离算出标注内容。<br /> Set ptDim1 = dimRotated8.XLine1Point<br /> Set ptDim2 = dimRotated8.XLine2Point<br /> ' ElseIf TypeOf ent8 Is 其它类型 Then<br /> ' ... ...<br /> <br /> End If<br /> <br /> End If<br /> iter.Step<br /> Loop

C#代码，得到图纸空间中所有实体

2. private void GetAllEntity()
   
3. {
   
4. try
   
5. {
   
6. 
   
7. MxDrawApplication app = new MxDrawApplication();
   
8. MxDrawUtility mxUtility = new MxDrawUtility();
   
9. 
   
10. // 得到当前图纸空间
    
11. MxDrawBlockTableRecord blkRec = app.WorkingDatabase().CurrentSpace();
    
12. 
    
13. // 创建一个用于遍历当前图纸空间的遍历器
    
14. MxDrawBlockTableRecordIterator iter = blkRec.NewIterator();
    
15. if (iter == null)
    
16. return;
    
17. 
    
18. // 所有实体的id数组。
    
19. List<Int32> aryId = new List<Int32>();
    
20. 
    
21. int iLineNum = 0;
    
22. // 循环得到所有实体
    
23. 
    
24. for (; !iter.Done(); iter.Step(true, false))
    
25. {
    
26. // 得到遍历器当前的实体
    
27. MxDrawEntity ent = iter.GetEntity();
    
28. if (ent == null)
    
29. continue;
    
30. 
    
31. // 得到实体的id
    
32. aryId.Add(ent.ObjectID);
    
33. 
    
34. if (ent is MxDrawLine)
    
35. {
    
36. // 当前实体是一个直线
    
37. MxDrawLine line = (MxDrawLine)ent;
    
38. iLineNum++;
    
39. }
    
40. else if (ent is MxDrawBlockReference)
    
41. {
    
42. // 当前实体是一个块引用
    
43. MxDrawBlockReference blkRef = (MxDrawBlockReference)ent;
    
44. for (int j = 0; j < blkRef.AttributeCount; j++)
    
45. {
    
46. // 得到块引用中所有的属性
    
47. MxDrawAttribute attrib = blkRef.AttributeItem(j);
    
48. mxUtility.Prompt("n Tag: " + attrib.Tag + "Text:" + attrib.TextString);
    
49. }
    
50. 
    
51. }
    
52. // else if (ent is 其它类型)
    
53. //{
    
54. // ... ....
    
55. //}
    
56. }
    
57. 
    
58. String sT;
    
59. sT = "发现" + aryId.Count + "个实体,其中有" + iLineNum + "个直线";
    
60. MessageBox.Show(sT);
    
61. }
    
62. catch (Exception ex)
    
63. {
    
64. 
    
65. MessageBox.Show(ex.Message.ToString());
    
66. }
    
67. }

private void GetAllEntity()<br /> {<br /> try<br /> {<br /> <br /> MxDrawApplication app = new MxDrawApplication();<br /> MxDrawUtility mxUtility = new MxDrawUtility();<br /> <br /> // 得到当前图纸空间<br /> MxDrawBlockTableRecord blkRec = app.WorkingDatabase().CurrentSpace();<br /> <br /> // 创建一个用于遍历当前图纸空间的遍历器<br /> MxDrawBlockTableRecordIterator iter = blkRec.NewIterator();<br /> if (iter == null)<br /> return;<br /> <br /> // 所有实体的id数组。<br /> List<Int32> aryId = new List<Int32>();<br /> <br /> int iLineNum = 0;<br /> // 循环得到所有实体<br /> <br /> for (; !iter.Done(); iter.Step(true, false))<br /> {<br /> // 得到遍历器当前的实体<br /> MxDrawEntity ent = iter.GetEntity();<br /> if (ent == null)<br /> continue;<br /> <br /> // 得到实体的id<br /> aryId.Add(ent.ObjectID);<br /> <br /> if (ent is MxDrawLine)<br /> {<br /> // 当前实体是一个直线<br /> MxDrawLine line = (MxDrawLine)ent;<br /> iLineNum++;<br /> }<br /> else if (ent is MxDrawBlockReference)<br /> {<br /> // 当前实体是一个块引用<br /> MxDrawBlockReference blkRef = (MxDrawBlockReference)ent;<br /> for (int j = 0; j < blkRef.AttributeCount; j++)<br /> {<br /> // 得到块引用中所有的属性<br /> MxDrawAttribute attrib = blkRef.AttributeItem(j);<br /> mxUtility.Prompt("n Tag: " + attrib.Tag + "Text:" + attrib.TextString);<br /> }<br /> <br /> }<br /> // else if (ent is 其它类型)<br /> //{<br /> // ... ....<br /> //}<br /> }<br /> <br /> String sT;<br /> sT = "发现" + aryId.Count + "个实体,其中有" + iLineNum + "个直线";<br /> MessageBox.Show(sT);<br /> }<br /> catch (Exception ex)<br /> {<br /> <br /> MessageBox.Show(ex.Message.ToString());<br /> }<br /> }

Delphi中的例程，遍历图中的所有实体，找到块名为A23TIT_KH的图块，并得到它的属性

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3. curDababase : IMxDrawDatabase;
   
4. modleSpace : IMxDrawBlockTableRecord ;
   
5. newIterator : IMxDrawBlockTableRecordIterator ;
   
6. pEnt : IMxDrawEntity;
   
7. pBlkRef : IMxDrawBlockReference;
   
8. pAttribute : IMxDrawAttribute;
   
9. tag : WideString;
   
10. text : WideString;
    
11. ii : Integer;
    
12. 
    
13. fModel : WideString;
    
14. fTitle : WideString;
    
15. fDwgNo : WideString;
    
16. fMaterial : WideString;
    
17. fQuantity : WideString;
    
18. fRemark : WideString;
    
19. fDrawData : WideString;
    
20. fScale : WideString;
    
21. fVersion : WideString;
    
22. fReview : WideString;
    
23. fDrawName : WideString;
    
24. fApprove : WideString;
    
25. begin
    
26. curDababase := MxDrawApplication1.WorkingDatabase;
    
27. modleSpace := curDababase.CurrentSpace ;
    
28. newIterator := modleSpace.NewIterator ;
    
29. if newIterator <> nil then
    
30. begin
    
31. while newIterator.Done() = False do
    
32. begin
    
33. pEnt := newIterator.GetEntity();
    
34. newIterator.Step(True,False);
    
35. if pEnt <> nil then
    
36. begin
    
37. 
    
38. pEnt.QueryInterface(IMxDrawBlockReference, pBlkRef);
    
39. if pBlkRef <> nil then
    
40. begin
    
41. if pBlkRef.GetBlockName() = 'A23TIT_KH' then
    
42. begin
    
43. for ii := 0 to pBlkRef.AttributeCount -1 do
    
44. begin
    
45. pAttribute := pBlkRef.AttributeItem(ii);
    
46. tag := pAttribute.Get_Tag();
    
47. text := pAttribute.Get_TextString();
    
48. showmessage(tag + ':' + text);
    
49. case ii of
    
50. 0: fModel := text;
    
51. 1: fTitle := text;
    
52. 2: fDwgNo := text;
    
53. 3: fMaterial := text;
    
54. 4: fQuantity := text;
    
55. 5,6,7: fRemark := fRemark + text + ' ';
    
56. 8: fDrawData := text;
    
57. 9: fScale := text;
    
58. 10: fVersion := text;
    
59. 11: fReview := text;
    
60. 12: fDrawName := text;
    
61. 13: fApprove := text;
    
62. end;
    
63. end;
    
64. end;
    
65. end;
    
66. end;
    
67. end;
    
68. end;
    
69. 
    
70. if text = '' then
    
71. begin
    
72. showmessage('没有发现块名为' + 'A23TIT_KH' + '的块实体');
    
73. end;
    
74. end;

复制代码

mxdwg

圆弧的凸度参数说明
圆弧的凸度计算如下图：


计算程序:

1. 
   

复制代码

1. // 由圆弧的开始点，结束点，凸度，计算圆弧的中心点
   
2. bool GetArcCenter(McGePoint3d startPoint,McGePoint3d endPoint,double bulge,McGePoint3d& center)
   
3. {
   
4.     if (bulge==0.0)
   
5.     {
   
6.         center = startPoint;
   
7.         return false;
   
8.     }
   
9. 
   
10.     if (bulge < 0.0)
    
11.     {
    
12.         McGePoint3d tmpPt    =    endPoint;
    
13.         endPoint            =    startPoint;
    
14.         startPoint            =    tmpPt;
    
15.         bulge                =    -bulge;
    
16.     }
    
17. 
    
18.     // 计算圆弧的半径
    
19. 
    
20.     double dDX,dDY,dR;
    
21.     dDX    =    startPoint.distanceTo(endPoint) / 2.0;
    
22.     dDY    =    bulge    *    dDX;
    
23.     dR    =    ((dDX*dDX)+(dDY*dDY)) / (2.0 * dDY);
    
24. 
    
25.     // 计算圆弧的中心点
    
26.     double tmpAng;
    
27.     ads_point tmpPt;
    
28.     tmpAng    =    Mx::mcutAngle(startPoint,endPoint);
    
29. 
    
30.     Mx::mcutPolar(asDblArray(startPoint),tmpAng,dDX,tmpPt);
    
31.     ads_point tmpCenter;
    
32.     Mx::mcutPolar(tmpPt,(tmpAng + (3.14159265 / 2.0) ),(dR-dDY),tmpCenter);
    
33.     center = asPnt3d(tmpCenter);
    
34. 
    
35.     return true;
    
36. };
    
37. 
    
38. 
    

复制代码