아래와 같이, 출력요소 범위를 설정하고 (1번부터 3000번까지로 요소 범위 설정) 출력할 Load caset 설정하고 해석결과물을 정렬하여 ("COMPONENTS" 부분) Beam force를 Table 형태로 추출하도록 만들었다. '--------------------------------------------------------------------------------------------------------- ' MIDAS에서 부재력 추출 Set dicMain = New Dictionary Set dicSub1 = New Dictionary dicSub1.Add "TABLE_NAME", "Result" dicSub1.Add "TAB..
엑셀 VBA에서 NX API를 이용하여, Load Case 생성하기. Main 함수에서 아래와 같이 생성할 load case들을 배열로 설정하고, NX_LOADCASE_Add 라는 서브함수를 이용해서 load case가 자동으로 생성되도록 구현하였다. ' 로드케이스 생성 ' aLCase = Array( _ Array("DC", "USER"), _ Array("DW", "USER"), _ Array("LL1", "USER"), _ Array("LL2", "USER"), _ Array(..
MIDAS NX API를 이용해서, 단위계를 설정하는 방법 Dim dicMain As Scripting.DictionaryDim dicSub1 As Scripting.DictionaryDim 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 ..
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..