교량구조설계

엑셀 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 DictionaryFor iC = 0 To UBound(aNode..

엑셀 VBA와 MIDAS NX API 이용하여, 재료물성을 자동으로 추가하도록 구성하였다. 재료 물성은 MIDAS 내부에 들어있는 DB를 이용하여, 아래와 같이 합성과 강재에 대해서 입력할 수 있도록 입력 데이터를 만들었다. 위와 같이 입력한 물성데이터를 이용해서, MIDAS에 재료물성이 자동으로 추가되도록 아래와 같이 Coding 하였다. 'DictionaryDim dicMain As Scripting.DictionaryDim dicSub1 As Scripting.DictionaryDim dicSub2 As Scripting.DictionaryDim dicSub3 As Scripting.DictionaryDim dicSub4 As Scripting.DictionaryDim sResp As StringD..

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