[MIDAS NX API] Node 추가하기

 

 

 

엑셀 VBA와 MIDAS NX API를 이용해서, 노드를 추가하는 Code를 작성하였다.

 

노드 데이터는 aNode라는 2차원 배열로 저장하였으며,

 

aNode()에는 Node 번호, X좌표, Y좌표, Z좌표가 저장되어있다.

 

    'Dictionary
    Dim dicMain As Scripting.Dictionary
    Dim dicSub1 As Scripting.Dictionary
    Dim dicSub2 As Scripting.Dictionary
    
    Dim sResp As String
    Dim sWebReq As String

    Set dicMain = New Dictionary
    Set dicSub1 = New Dictionary

For iC = 0 To UBound(aNode)

    Set dicSub2 = New Dictionary
    
    iNode = aNode(iC)(0)
    dX = aNode(iC)(1)
    dY = aNode(iC)(2)
    dZ = aNode(iC)(3)
    
    dicSub2.Add "X", dX
    dicSub2.Add "Y", dY
    dicSub2.Add "Z", dZ
       
    dicSub1.Add iNode, dicSub2
    
    Set dicSub2 = Nothing
        
Next iC

    dicMain.Add "Assign", dicSub1

    sWebReq = JsonConverter.ConvertToJson(dicMain)
    sResp = WebRequest("POST", "/db/node", sWebReq)

    Set dicSub1 = Nothing
    Set dicMain = Nothing