HyperMesh二次开发_老表，HyperMesh也能拿来绘画哦

proc show_image { } {    set file_path "example22.txt"set stack [open $file_path r]  set i 0    while 1 {set line [gets $stack]if {[eof $stack]} {            close $stack            break        }    *collectorcreateonly components $i "" $i     *createmark components 1 $i    *setvalue comps mark=1 color=[lindex $line 0]    *createmark elements 1   {*}[lrange $line 1 end]    catch { *movemark elements 1  $i }    incr i    *window 0 0 0 0 0    }}show_image