sailorjt 发表于 2005-3-9 17:20:00

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

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


Sub MultiExtend()<BR>                       Dim number As Integer<BR>                       Dim ObjSelectionSet As AcadSelectionSet<BR>                       i = 0<BR>                       <BR>                       '获取当前图形中选择集的个数<BR>                       number = ThisDrawing.SelectionSets.Count<BR>                       <BR>                       '删除当前图形中所有的选择集<BR>                       While i &lt; number<BR>                                                       Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)<BR>                                                       ObjSelectionSet.Delete<BR>                                                       i = i + 1<BR>                       Wend


上面的对于“objSelectionSet =”弹出“编译错误：不支持的对象库功能”，不知道该怎么处理？

laoliu09 发表于 2005-3-9 17:46:00

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

sailorjt 发表于 2005-3-9 19:29:00

2004

mccad 发表于 2005-3-9 21:38:00

重装AutoCAD

my_computer 发表于 2005-3-10 08:18:00

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

laoliu09 发表于 2005-3-10 10:09:00

行，如果你的cad没问题的话！
页: [1]
查看完整版本: 在看《AutoCAD VBA精彩实例教程》的问题