VBA选中出错求助

qwh923820

练习AcadSelectionSet的相关函数，随便画廊几条线段，结果取不到任何信息，查看程序运行的信息，显示加载DLL错误。求助怎么解决。
程序如下：
Sub aaa()
Dim sset As AcadSelectionSet
On Error Resume Next
If Not IsNull(ThisDrawing.SelectionSets.Item("hhh")) Then
        Set sset = ThisDrawing.SelectionSets.Item("hhh")
        sset.Delete
    End If
    Set sset = ThisDrawing.SelectionSets.Add("hhh")
sset.Select acSelectionSetAll
End Sub

zzyong00

没遇到过，是正常安装的原版cad吗？不是什么绿化版吧？

qwh923820

就是绿化版的

dong20030432

count为4，说明选到东西了，你是不没让选择集高亮呀？我用你的程序试了下，没问题！

qwh923820

dong20030432 发表于 2018-1-10 16:46
count为4，说明选到东西了，你是不没让选择集高亮呀？我用你的程序试了下，没问题！

应该是CAD破解版的问题，我换了一个版本就好了！！:D