[VBA程序]：选择集的问题

lhx2000

如何获得由COPY、MOVE 、erase等命令 发出后产生的选择集的内容。

雪山飞狐(lzh)

activeselectionset

lhx2000

Private Sub NotDel()        '发出命令后进行操作
Dim sset As AcadSelectionSet
     Set sset = AcadDoc.ActiveSelectionSet
      Dim objs(0) As AcadEntity

Dim Ent As Object
        DDD = sset.Count
        For Each Ent In sset
        On Error Resume Next
            Ent.GetXData "Test_Application", xt, xd

           If IsNull(xd(0)) = True Then
             Else
                If xd(0) = "Test_Application" Then
                     Set objs(0) = Ent
                     sset.RemoveItems objs
             '  AcadDoc.ActiveSelectionSet.RemoveItems objs
             '使用上面这条语句也不行
               End If         
            End If
       Next
End Sub
斑主我写了上面的代码，现在想实现如果存在有属性的实体就不能被移动拷贝删除，也就是从当前活动的ActiveSelectionSet选择集中去处这些实体，使之不能被操作。
还有一个问题，在执行ERASE命令时上述代码无法起作用，实体还一样被删除，好像该实体已经被删除了。我看帮助好像ActiveSelectionSet选择集可以进行读写操作。
请斑主给帮忙。

takeiteasy

楼主问的是斑竹，我看见了，先说说我的看法，呵呵
第一，不知你用的是VB还是VBA，如果是VBA的话，Set sset = AcadDoc.ActiveSelectionSet 应该改成 Set sset = = ThisDrawing.ActiveSelectionSet
第二，可能是判断属性是否存在的语句出了毛病，请把 If IsNull(xd(0)) = True Then 改成
If VarType(xd) = vbEmpty Then 试一下
小弟浅薄，如果有错误之处，请不要见笑

lhx2000

我使用的使VB,使用VB作一个OCX直接加载到CAD中，可以作出ARX开发的效果。关于两条语句的功能基本一致。
目前主要是想解决基础图纸不能被拷贝，复制，删除等操作。做法是从这些命令发出指令后从ENDCOMMAND中进行获得当前的选择集（ActiveSelectionSet）并从该选择集中删除这些被控制的实体。这些实体在加入时已经给了属性。
其他使用什么好方法也不知道。使用外部参照可以被用户发现路径无法保证图形的安全性。
希望大家从事过这方面的同志能给点思路。我了解杭州有一家公司可以实现这项功能。