| ||
;procedure(VerOrHor()
lheng=list()
lshu=list()
/*analyse which is vertical,which is horizontal and save in list*/
object_List=geGetSelSet()
foreach(object object_List
widthA=object~>width
layerA=object~>layerName
pointsA1=object~>beginPt
pointsA2=object~>endPt
pointsA=list(pointsA1 pointsA2)
if(caar(pointsA)==caadr(pointsA) then
lshu =append(list(object) lshu)
else
lheng =append(list(object) lheng)
);if
) ;for