pass var/val between tcl/qsf

is there any way to passing value/variable between tcl and qsf for example

in tcl

set width 10

in .qsf

set_global_assignment -name LL_WIDTH $width -section_id lock_region