Pressure의 magnitude scale된 값으로 업데이트하기

선택된 하중이 많을 때 스케일링값으로 한꺼번에 업데이트하는 방법입니다.
loadsupdatecurve의 4는 pressure를 의미하므로 이 값을 다른 config번호를 입력하시면 다양한 load에 대해 사용가능합니다. 예를 들어 4 대신 1을 사용하면 force의 magnitude를 변경할 수 있습니다.

config
The configuration of the load:
1 Force
2 moment
3 constraints
5 temperature
6 flux
8 velocity
9 acceleration

*createmarkpanel loads 1 "select Pressure"
set pLoad [ hm_getmark loads 1 ]
set scalevalue [ hm_getfloat "scale=" "please let me know the scale"]

foreach uLoad $pLoad {
    hm_createmark loads 2 $uLoad
    set newULoad [ hm_getmark loads 2 ]
    set newpLoadValue ""
    set pLoadValue [ hm_getentityvalue loads $uLoad "magnitude" 0 ]
    set newpLoadValue [ expr $scalevalue*$pLoadValue ]
    *loadsupdatecurve 2 4 1  0  0 0 0 0 0 0  1 $newpLoadValue  0 0 0  0 0  0 0  0 0 0 0
    hm_markclear loads 2
}
hm_markclear loads 1