[求助：]请问vb.net怎样全选模型空间的图形 然后判断是否为块

382327412

请问vb.net怎样全选模型空间的图形 然后判断是否为块

hnzgs

回复 382327412 的帖子
用过滤器

2. '获取当前活动文档的Editor对象
   
3.         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
   
4.         Dim db As Database = HostApplicationServices.WorkingDatabase
   
5. '定义过滤条件
   
6. 
   
7.         Dim values() As TypedValue = {New TypedValue(DxfCode.Start, "INSERT")}
   
8.         '建立过滤器
   
9.         Dim sfilter As New SelectionFilter(values)
   
10. 
    
11.         '返回选择集的用户提示类.
    
12.         Dim resSel As PromptSelectionResult
    
13.         resSel = ed.SelectAll(sfilter)
    
14. If resSel.Status <> PromptStatus.OK Then
    
15.              ' 得到选择集中所有对象的ObjectId集合.
    
16.         Dim ids As ObjectId() = resSel.Value.GetObjectIds()
    
17.         End If
    

'获取当前活动文档的Editor对象<br />         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor<br />         Dim db As Database = HostApplicationServices.WorkingDatabase<br /> '定义过滤条件<br /> <br />         Dim values() As TypedValue = {New TypedValue(DxfCode.Start, "INSERT")}<br />         '建立过滤器<br />         Dim sfilter As New SelectionFilter(values)<br /> <br />         '返回选择集的用户提示类.<br />         Dim resSel As PromptSelectionResult<br />         resSel = ed.SelectAll(sfilter)<br /> If resSel.Status <> PromptStatus.OK Then <br />              ' 得到选择集中所有对象的ObjectId集合.<br />         Dim ids As ObjectId() = resSel.Value.GetObjectIds()<br />         End If<br />