在看《AutoCAD VBA精彩实例教程》的问题

sailorjt

我没有按照顺序看下来，毕竟我不是职业编程开发的，只是选择了工作常用到的程序，所以本人的基础也不是很扎实。在看“3.10 多重延伸”时，第一段代码关于选择集就好像有问题： Sub MultiExtend()
Dim number As Integer
Dim ObjSelectionSet As AcadSelectionSet
i = 0

'获取当前图形中选择集的个数
number = ThisDrawing.SelectionSets.Count

'删除当前图形中所有的选择集
While i < number
Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)
ObjSelectionSet.Delete
i = i + 1
Wend 上面的对于“objSelectionSet =”弹出“编译错误：不支持的对象库功能”，不知道该怎么处理？

laoliu09

你用的是什么版本的CAD啊，我用2002,没问题啊！

sailorjt

2004

mccad

重装AutoCAD

my_computer

直接用ThisDrawing.SelectionSets.Item(0).delete 行吗？

laoliu09

行，如果你的cad没问题的话！