evaporated 发表于 2005-4-10 16:32:00

请教各位关于选择集！

各位大侠帮忙看看：


1 If Not IsNull(ThisDrawing.SelectionSets.Item("ccurblock")) Then<BR>                                                       Set curblock = ThisDrawing.SelectionSets.Item("ccurblock")<BR>                                                       curblock.Delete<BR>                       End If


这种判定选择集不能重名的代码是直接套用明经出的《autocadvba精彩示例教程》的


可是在autocad2004，2002中经常保错啊。


核心是ThisDrawing.SelectionSets.Item("ccurblock")在不存在ccurblock的时候，就会出错 。难道选择集不能这样引用么？


2 有关filtertype 和 filterdata ，


当 filtertype 为 0,filterdata 为 "TEXT" 时 ，


curText.Select acSelectionSetAll, , , filtertype, filterdata


能够选中所有的文字么？在块中或者其他地方的行么？


谢谢各位！

mccad 发表于 2005-4-10 20:53:00

出错是因为该名称的选择集不存在。<BR>前面可加上<BR>On Error Resume Next<BR>

evaporated 发表于 2005-4-11 19:35:00

谢谢啦！


果然是这个问题！


今天复习了on error 的用法。才发现自己原来的想法是错的
页: [1]
查看完整版本: 请教各位关于选择集！