练习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
置顶卡
