📅  最后修改于: 2022-03-11 14:59:36.843000             🧑  作者: Mango
set pdbname [ molinfo top get name]
puts "$pdbname"
set name1 [ molinfo top get name]
set name1 [split $name1 . ]
set pbdname [lindex $name1 0]
puts $pdbname