如何将选择集中不同类型的对象赋予单一明确对象！

hdslj

求助： 

Set SSet = ThisDrawing.SelectionSets.Add("poumiantu")
    Call CreateSSetFilter(fType, fData, -4, "<or", 0, "text", 0, "line", 0, "LWPOLYLINE", 0, "INSERT", -4, "or>")
    SSet.Select acSelectionSetAll, , , fType, fData
   
    Dim ent As AcadEntity
    For Each ent In SSet
    Select Case ent.ObjectName
    Case "AcDbText"
    Dim txttemp As AcadText
    txttemp.InsertionPoint
    Case "AcDbline"
    Dim linetemp As AcadLine
    linetemp.StartPoint

sset选择集中包括文字、直线、多段线、块等对象，我想按照不同的类型进行不同的操作，如：

当ent为“text”时

将ent赋予texttemp

当ent为"line" 时

将ent赋予linetemp

本人为热爱vba的小菜鸟，恳求各位高手多多指教！问题应该很简单，就是不知道怎么搞！多谢，多谢！

已经解决，请版主删除帖子！惭愧！