[MIDAS NX API] 단위계 Unit 설정

 

 

 

MIDAS NX API를 이용해서, 단위계를 설정하는 방법

 

 

Dim dicMain As Scripting.Dictionary
Dim dicSub1 As Scripting.Dictionary
Dim dicSub2 As Scripting.Dictionary
    
    Set dicMain = New Dictionary
    Set dicSub1 = New Dictionary
    Set dicSub2 = New Dictionary
    
    dicSub2.Add "FORCE", "KN"
    dicSub2.Add "DIST", "M"
    dicSub2.Add "TEMPER", "C"
    
    dicSub1.Add 1, dicSub2
    
    dicMain.Add "Assign", dicSub1
    
    sWebReq = JsonConverter.ConvertToJson(dicMain)
    sResp = WebRequest("PUT", "/db/UNIT", sWebReq)
    
    Set dicSub2 = Nothing
    Set dicSub1 = Nothing
    Set dicMain = Nothing