| ||
;author:gjli
;2024-08-08
;V1.0
;this Function is used to rename the instance name,
procedure(name(my_name)
var1=my_name
mywin=getCurrentWindow()
listaa=list(var1 "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20")
listb=cdr(listaa)
foreach(myinst geGetSelSet(mywin)
mytype=myinst~>objType
if(mytype=="inst" then
var_b=car(listb)
var_a=car(listaa)
list_name=list(var_a var_b)
myinst~>name=buildString(list(var_a var_b) ".")
listb=cdr(listb) ;minus the first element
)
)
);procedure