교량구조설계

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..