From: John Stone (johns_at_ks.uiuc.edu)
Date: Wed Mar 29 2006 - 10:54:12 CST

Here's a simple proc to do this:

proc label_atoms { molid seltext } {
  set sel [atomselect $molid $seltext]
  set atomlist [$sel list]
  foreach {atom} $atomlist {
    set atomlabel [format "%d/%d" $molid $atom]
    label add Atoms $atomlabel
  }
  $sel delete
}

To label all of the CA atoms, you'd do this:
  label_atoms 0 "name CA"

Enjoy,
  John Stone
  vmd_at_ks.uiuc.edu

On Wed, Mar 29, 2006 at 06:42:50PM +0200, Nguyen Hoang Phuong wrote:
>
> Dear All,
>
> is it possible to automatically label the atoms of the molecule? The only
> way I found being click on every atoms.
>
> Thanks,
>
> Phuong

-- 
NIH Resource for Macromolecular Modeling and Bioinformatics
Beckman Institute for Advanced Science and Technology
University of Illinois, 405 N. Mathews Ave, Urbana, IL 61801
Email: johns_at_ks.uiuc.edu                 Phone: 217-244-3349
  WWW: http://www.ks.uiuc.edu/~johns/      Fax: 217-244-6078