Below is the code:
The following example creates an L3 Forwarding Link between device1 and device2: set ret [::sth::link_config \ -link_src $device1 \ -link_dst $device2 \ -link_type L3_Forwarding_Link]