구조해석] 엑셀을 이용한 RM TCL에서 section 을 캐드로 변환하는 법

 

구조해석 프로그램 RM이라는 프로그램이 있습니다. 해석 제반 조건들이 모두 포함된 텍스트 파일의 확장자는 tcl 입니다. 이 tcl 파일 내에 있는 해석할 대상의 Section(단면)의 정보가 포함되는데 이 정보를 엑셀을 이용하여 캐드로 변환 해 보겠습니다. *이 글 아래에 링크된 엑셀을 다운 받으시기 바랍니다. 먼저 RM tcl의 단면정보가 어떻게 되어 있는지를 보면

RMPROP "MAIN_G_CEN_H"

#

# cross section definitions

#     RMCROSS  "001"        

       INFO        "MAIN_G_CEN_H"

        NODE            1              -2.025000     -0.420500

        NODE            2              -1.125000     -0.652500

        NODE            3              -0.225000     -0.884500

        NODE            4              -0.225000     -0.634500

        NODE            5              -0.225000     -0.384500

        NODE            6              -1.125000     -0.402500

.

.

        NODE          842               4.400000     -0.168000

        NODE          849               4.400000     -0.318000

       

        PART 1

            ELEM        1        1      2      3      4      5      6      1      1      7

            ELEM        2        8      9      1      6      5     11     12     13     14

            ELEM        3        5     15     16     17     18     19     12     11     21

            ELEM        4       22     23     24     25     26     27     28     29     30

.

.

            ELEM       72      415    549    543    542    541    553    417    416    556

        PART END

    RMCROSS END

 

NODE 와 ELEM 으로 이루어져서 있습니다. NODE는첫번재가 NODE번호 그 다음이 좌표 ELEM은  첫번째가 ELEM번호 그 다음이 NODE번호의 좌표로 연결, 생성됩니다. 그러면 ELEM당 NODE의 좌표를 읽어서 뿌려주면 될 것 같습니다. 엑셀을 이용해야 합니다. 먼저 NODE와 ELEM 텍스트를 카피해서 엑셀에서 텍스트 나누기로 나누어 줍니다.

 

그런 다음  "T2" 셀로 커서를 옮기고 나서 VBA(ALT+F11)를 켠 후 section() 내에서 F5를 눌러 실행시켜줍니다.

 

 

해당 ELEM가 가진 NODE를 일렬로 뿌려주는 것입니다. 우측으로 미리 엑셀로 작성해둔 Vlookup함수에 의해 NODE좌표가 읽혀지게 됩니다. 그 다음 (command "pline"~~)를 긁어서 아무 곳에 값만 복사한 후 F5를 눌러 빈칸 선택후 위로밀기로 없애 줍니다.

일렬로 정렬된 캐드명령어를 복사하여 캐드 command창에 붙여주면 됩니다.

EXCEL