[MIDAS NX API] 총 요소수 노드수 확인하기

 

 

 

 

 

NX API를 이용해서, 현재 모델링 내의 요소 정보와 노드 정보를 가져오고 싶을때..

 

 

 

현재까지 모델링 된 총 요소 정보 가져오기

    Dim sJSON As String
    Dim json As Object
    Dim elem As Object
    Dim elemDict As Dictionary
    
    sJSON = WebRequest("GET", "/db/elem", "")

    ' JSON 파싱
    Set json = JsonConverter.ParseJson(sJSON)
    Set elemDict = json("ELEM")

    ' 배열 초기화
    ReDim resultArr(0 To elemDict.Count - 1, 0 To 5)

    i = 0
    
    For Each key In elemDict.Keys
        Set elem = elemDict(key)
        resultArr(i, 0) = key                  ' 요소 번호
        resultArr(i, 1) = elem("TYPE")
        resultArr(i, 2) = elem("MATL")
        resultArr(i, 3) = elem("SECT")

        ReDim arr(0 To elem("NODE").Count - 1)

        For j = 1 To elem("NODE").Count
            arr(j - 1) = elem("NODE")(j)
        Next j
        
        resultArr(i, 4) = arr(0)
        resultArr(i, 5) = arr(1)
        i = i + 1
        
    Next key

 

 

현재까지 모델링 된 총 노드 정보 가져오기

    Dim sJSON As String
    Dim json As Object
    Dim node As Object
    Dim nodeDict As Dictionary
    Dim key As Variant
    Dim resultArr() As Variant
    Dim i As Long

    sJSON = WebRequest("GET", "/db/node", "")

    ' JSON 파싱
    Set json = JsonConverter.ParseJson(sJSON)
    Set nodeDict = json("NODE")

    ' 배열 초기화
    ReDim resultArr(0 To nodeDict.Count - 1, 0 To 3)

    i = 0
    
    For Each key In nodeDict.Keys
    
        Set node = nodeDict(key)
        
        resultArr(i, 0) = key                  ' 요소 번호
        resultArr(i, 1) = node("X")
        resultArr(i, 2) = node("Y")
        resultArr(i, 3) = node("Z")
        
        i = i + 1
        
    Next key