From: Georcki Ropon (groponp_at_gmail.com)
Date: Wed Nov 17 2021 - 19:04:32 CST

Dear user,

I want change serial atom number , my number start with 3000 but I want all number (para chain B) start 1 2 3 4 ….

Bellow my code but not fix it.

mol new prot_orient_add_ter.pdb

set prob [atomselect top "segid PROB"]

set serials [$prob get serial]

set count 0
foreach atom $serials {
        $prob set serial $count
        incr $count

}

set all [atomselect top all]
$all writepdb renum.pdb
quit