【求助】求一个tcl脚本

sdyxidian

set clock_pins ""
foreach_in_collection pin [get_pins -hier *] {
               if {[regexp CLK_NAME[get_object_name
                 [get_attribute $pin clocks -quiet]]]} {
                   append_to_collection clock_pins $pin
                 }
               }
foreach i [get_object_name [ get_pins $clock_pins]] {
    change_selection [get_pins $i ] -add
}

sdyxidian

fixed new one:
set clock_pins ""
foreach_in_collection pin [get_flat_pins -filter  "is_sequential==true"] {
               if {[regexp CLK_NAME[get_object_name
                 [get_attribute $pin clocks -quiet]]]} {
                   append_to_collection clock_pins $pin
                 }
               }
foreach i [get_object_name [ get_pins $clock_pins]] {
    change_selection [get_pins $i ] -add
}