关于更改对象样式的问题

我有一张打开的线层表，记为PolylineTab
现在我想通过用MapBasic编程的方法改变该表中的每一个线对象的颜色，使用如下命令：
'先确定修改后的线对象样式
Dim PolyLine_Obj As Object

PolyLine_Obj = Selection.obj
Alter Object PolyLine_Obj                  
Info OBJ_INFO_PEN, MakePen(1, 2, blue)

'更新选择集中的所有对象
Update Selection
Set Obj = PolyLine_Obj

现在的问题是，程序运行后，无论选择对象有多少，只有一个对象的样式被更改。请问这是为什么？

问题已解决
需要做循环