[求助]：这段程序代码怎么了？

yanjun_lyg

这是书中的一个例子，运行时，提示错误"91"
对象变量或with块变量未设置，请各位大虾，解答一下，谢谢！！
sub example_selection()
Dim sset As AcadSelectionSet
filtertype = 62
filterdata = 5
sset.SelectOnScreen filtertype, filterdata
End Sub。
问题已解决，定义为ftiltertype(0),filterdata(0)

busuanshou

这sset对象变量没有赋值~也就是说没有实体，
那么sset.SelectOnScreen  就不能用了

yanjun_lyg

最初由 busuanshou 发布
[B]这sset对象变量没有赋值~也就是说没有实体，
那么sset.SelectOnScreen  就不能用了 [/B]

Sub OnlySelectLine()
Dim ssLine As AcadSelectionSet
Dim filtertype, filterdata
If Not IsNull(ThisDrawing.SelectionSets.Item("PipeLine")) Then
    Set ssLine = ThisDrawing.SelectionSets.Item("PipeLine")
    ssLine.Delete
End If
filtertype = 62
filterdata = 5
Set ssLine = ThisDrawing.SelectionSets.Add("PipeLine")
ssLine.SelectOnScreen filtertype, filterdata
End Sub
运行时，提醒说filtertype在selectonscreen中无效