( inScheme ( defun select_aligned ( @key ( obj ( car ( geGetSelectedSet )) ) ( cv obj -> cellView ) ( direction ‘ horizontal ) ( modulo 2 ) ( shift 0 ) @rest _ ) “Return objects in CV that have the same master as OBJ and are aligned with it according to DIRECTION. Returned list of objects is filtered by MODULO and SHIFT.” ;; Check inputs ( assert ( dbobjectp obj) “select_aligned - ?obj should be a dbobject: %N” cv) ( assert ( and ( dbobjectp cv ) ( equal “cellView “ cv -> objType)) “select_aligned - ?cv should be a cellview: %N” cv) ( letseq ( ( x ( xCoord ( lowerLeft obj -> bBox)) ) ( y ( yCo