SelectOnScreen的问题

dazhangyu

我想把某一图层上的所有entity的加入到我定义的一个选择集中，我该怎么办呢？
我试用了以下语句：
　　　　　　　ssetobj.SelectOnScreen 8, “Layler1”
没成功，提示我有错误：Error#-2147467259 ACADProject方法'SelectOnScreen'作用于对象'IAcadSelectionSet'时失败，这是为什么呢？

zeng29

2. Sub SelOnScrLayer()
   
3.     Dim ssetobj As AcadSelectionSet
   
4.     Dim FilterType(0) As Integer
   
5.     Dim FilterData(0) As Variant
   
6.    
   
7.     On Error Resume Next
   
8.     Set ssetobj = ThisDrawing.SelectionSets.Add("a")
   
9.     If Err Then
   
10.         Err.Clear
    
11.         Set ssetobj = ThisDrawing.SelectionSets.Item("a")
    
12.     End If
    
13.     ssetobj.Clear
    
14.     FilterType(0) = 8
    
15.     FilterData(0) = "Layler1"
    
16.     ssetobj.SelectOnScreen FilterType, FilterData
    
17.     Debug.Print ssetobj.Count
    
18.     Debug.Print ssetobj.Item(0).ObjectName
    
19. End Sub

Sub SelOnScrLayer()<br />     Dim ssetobj As AcadSelectionSet<br />     Dim FilterType(0) As Integer<br />     Dim FilterData(0) As Variant<br />     <br />     On Error Resume Next<br />     Set ssetobj = ThisDrawing.SelectionSets.Add("a")<br />     If Err Then<br />         Err.Clear<br />         Set ssetobj = ThisDrawing.SelectionSets.Item("a")<br />     End If<br />     ssetobj.Clear<br />     FilterType(0) = 8<br />     FilterData(0) = "Layler1"<br />     ssetobj.SelectOnScreen FilterType, FilterData<br />     Debug.Print ssetobj.Count<br />     Debug.Print ssetobj.Item(0).ObjectName<br /> End Sub

zeng29

ssetobj.SelectOnScreen 后面的参数是数组变量,否则会出错;
有不少的问题贴子,很多情况下是没有仔细查看对象模型中函数的使用规则.

dazhangyu

还是不行呀，还是作用在IAcadSelectionSetf对象时失败

mccad

程序是正确的，而且在2002及2004中都能正常运行。
你需要看看其它方面的，把你的程序贴出来。

dazhangyu

我用的是ACAD2000，这是不是原因呢？

dazhangyu

这是我程序中用到SelectOnScreen的那一段：

If (nPaperType = 3) Then

    Dim ssetobj As AcadSelectionSet '设置选择对象
  Set ssetobj = ThisDrawing.SelectionSets.Add("pmbj_SSET")
    ssetobj.Clear
　
    MsgBox "ssetobj的名字是：" & ssetobj.Name
    MsgBox "当前图层是：" & ThisDrawing.ActiveLayer.Name'当前图层就是PMBJ
    Dim stype(0) As Integer
    Dim sdata(0) As Variant
    stype(0) = 8
    sdata(0) = "MBJ"
    ssetobj.SelectOnScreen stype, sdata'当程序执行到这儿时，就提示出错：作用失败，无法再继续下去，why???

    ssetobj.Update
    point1(0) = BaseX + constLeftWidth
    point1(1) = BaseY - constTopLen
    Dim entry As AcadEntity
　For Each entry In ssetobj
   entry.Color = 5
   entry.Rotate point1, 1.5707962 '旋转90度
  entry.Update
    Next entry

End If




[em00][em00]

efan2000

dim ssetobj as acadselectionset '设置选择对象
set ssetobj = thisdrawing.selectionsets.add("pmbj_sset")
ssetobj.clear
　
之前有没有使用 On Error Resume Next，因为不能创建同名的选择集，所以如果名称为pmbj_sset的选择集已经存在。那么set ssetobj = thisdrawing.selectionsets.add("pmbj_sset")这句就发生错误了，后面的当然也都是错的了。

dazhangyu

我也用版主zeng29的方法做过，也就是在调用方法selectonscreen之前，加了下面这段语句：
On Error Resume Next
    Set ssetobj = ThisDrawing.SelectionSets.Add("pmbj_SSET")
    If Err Then
        Err.Clear
        Set ssetobj = ThisDrawing.SelectionSets.Item("pmbj_SSET")
    End If
结果我用ssetobj.count一测试，ssetobj.count=0也就是说选择集中有0个元素
这是为什么？真的无可救要了吗？

efan2000

选择时选中的实体有没有出现高亮的状态，选择也跟层的设置状态有关，像冻结之类的可能就不能选择。