社区 › VB › VBA选中出错求助

qwh923820 发表于 2017-9-7 12:56:00

VBA选中出错求助

练习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 发表于 2017-9-7 17:09:00

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

qwh923820 发表于 2017-12-7 09:27:00

就是绿化版的

dong20030432 发表于 2018-1-10 16:46:00

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

qwh923820 发表于 2018-1-16 09:07:00

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

查看完整版本: VBA选中出错求助