请问如何画一个多边形,并获取该多边形里的图元?

sclkkk

请问如何画一个多边形,并获取该多边形里的图元?

sclkkk

哪位高手贴段代码参考下啊!

guohq

1.     Public Enum PolygonSelectType
   
2.         ''' <summary>
   
3.         ''' 圈交(实选)
   
4.         ''' </summary>
   
5.         ''' <remarks></remarks>
   
6.         CrossingPolygon = 1
   
7.         ''' <summary>
   
8.         ''' 圈围(范选)
   
9.         ''' </summary>
   
10.         ''' <remarks></remarks>
    
11.         WindowPolygon = 2
    
12.     End Enum
    
13. 
    
14.     Public Function SelectEntsByPolygon(ByVal objEditor As Editor, ByVal Pts As Point3dCollection, Optional ByVal sFilter As SelectionFilter = Nothing, Optional ByVal SelectType As PolygonSelectType = PolygonSelectType.CrossingPolygon) As ObjectId()
    
15.         Dim resSel As PromptSelectionResult = Nothing
    
16.         Select Case SelectType
    
17.             Case 1
    
18.                 If sFilter Is Nothing Then
    
19.                     resSel = objEditor.SelectCrossingPolygon(Pts)
    
20.                 Else
    
21.                     resSel = objEditor.SelectCrossingPolygon(Pts, sFilter)
    
22.                 End If
    
23.             Case 2
    
24.                 If sFilter Is Nothing Then
    
25.                     resSel = objEditor.SelectWindowPolygon(Pts)
    
26.                 Else
    
27.                     resSel = objEditor.SelectWindowPolygon(Pts, sFilter)
    
28.                 End If
    
29.             Case Else
    
30.                 '暂时没有其它情况
    
31.         End Select
    
32. 
    
33.         If resSel.Value Is Nothing Then
    
34.             Return New clsAADS.ObjectId() {}
    
35.         Else
    
36.             Return (resSel.Value.GetObjectIds())
    
37.         End If
    
38.     End Function

    Public Enum PolygonSelectType<br />         ''' <summary><br />         ''' 圈交(实选)<br />         ''' </summary><br />         ''' <remarks></remarks><br />         CrossingPolygon = 1<br />         ''' <summary><br />         ''' 圈围(范选)<br />         ''' </summary><br />         ''' <remarks></remarks><br />         WindowPolygon = 2<br />     End Enum<br /> <br />     Public Function SelectEntsByPolygon(ByVal objEditor As Editor, ByVal Pts As Point3dCollection, Optional ByVal sFilter As SelectionFilter = Nothing, Optional ByVal SelectType As PolygonSelectType = PolygonSelectType.CrossingPolygon) As ObjectId()<br />         Dim resSel As PromptSelectionResult = Nothing<br />         Select Case SelectType<br />             Case 1<br />                 If sFilter Is Nothing Then<br />                     resSel = objEditor.SelectCrossingPolygon(Pts)<br />                 Else<br />                     resSel = objEditor.SelectCrossingPolygon(Pts, sFilter)<br />                 End If<br />             Case 2<br />                 If sFilter Is Nothing Then<br />                     resSel = objEditor.SelectWindowPolygon(Pts)<br />                 Else<br />                     resSel = objEditor.SelectWindowPolygon(Pts, sFilter)<br />                 End If<br />             Case Else<br />                 '暂时没有其它情况<br />         End Select<br /> <br />         If resSel.Value Is Nothing Then<br />             Return New clsAADS.ObjectId() {}<br />         Else<br />             Return (resSel.Value.GetObjectIds())<br />         End If<br />     End Function

多边形的顶点坐标转到point3dcollection就不用说了吧

sclkkk

回复 guohq 的帖子

谢谢,请问你有C#的代码么?我现在只要获取到多边形里所有图元的ObjectId后,删除该多边形或刷新图层该怎么做.本人新手希望代码能全点,谢谢

guohq

自己找个网站翻译一下好了，C# 我也不会写，不过语法基本还是比较接近的。
http://www.developerfusion.com/tools/convert/vb-to-csharp/

sclkkk

回复 guohq 的帖子

谢谢了!你能把整个代码给我看看么?我对方法里传的值看不明白

sclkkk

哪为高手帮帮忙啊!给个具体点的实例参考下啊

zjh0603

          public static bool selctText(ObjectId idp, Point3dCollection point3D)
        {
           Document doc = Autodesk.AutoCAD.Applicati**ervices.Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database ;
            bool fa = false;
            using (Transaction tr = doc.TransactionManager.StartTransaction())
            {         
                object obj = tr.GetObject(idp, OpenMode.ForWrite);
                Entity ent = (Entity)tr.GetObject(idp, OpenMode.ForWrite);
                TypedValue[] TypValAr1 = new TypedValue[1];
                TypValAr1.SetValue(new TypedValue((int)DxfCode.Start, "*TEXT"), 0);               
                SelectionFilter acSelFtr1 = new SelectionFilter(TypValAr1);
                PromptSelectionResult acSStext;
                acSStext = doc.Editor.SelectCrossingPolygon(point3D, acSelFtr1);
                if (acSStext.Status == PromptStatus.OK)
                {
                  
                    foreach (ObjectId id in acSStext.Value.GetObjectIds())
                    {
                        Entity entT = (Entity)tr.GetObject(id, OpenMode.ForRead);
                        string Str="";
                        if (entT is DBText)
                        {
                            DBText DBt = (DBText)tr.GetObject(id, OpenMode.ForRead);
                            Str = DBt.TextString;
                        }
                    }
                }
                tr .Commit ();
            }
}

chpmould

不错的例子...

sclkkk

回复 zjh0603 的帖子

请问 ObjectId idp, Point3dCollection point3D 是什么值?我是用多段线画的多边形