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

 

RM tcl에서 NODE정보는 아래와 같이 NODE번호 X, Y, Z 좌표로 되어 있습니다.

 

#

# node coordinates

#

NODE 101 0.000000 58.490000

NODE 102 4.240000 58.659600

NODE 103 15.250000 59.100000

NODE [SERIES 104 112 1 30.500000 12.000000 59.710000 0.480000]

NODE [SERIES 202 219 1 138.500000 12.000000 64.030000 0.480000 -7.734600 0.000000]

NODE [SERIES 220 222 1 350.000000 7.500000 72.490000 0.300000 -7.734600 0.000000]

NODE [SERIES 223 236 1 372.500000 12.000000 73.390000 0.480000 -7.734600 0.000000]

NODE 237 540.500000 80.106325 -7.734600

NODE 238 552.500000 80.573125 -7.734600

NODE 239 564.500000 81.030325 -7.734600

NODE 240 576.500000 81.477925 -7.734600

...

...

 

101번부터 103번까지는 X, Y, Z 가 NODE별로 표시가 되어 있는데 104번은 SERIES로 되어 있습니다. 104에서 112까지 NODE번호가 1씩 증가, X좌표가 30.5에서 12씩 증가 Y좌표가 59.71에서 0.48씩 증가, Z좌표는 0이 겠네요. 202, 220, 223은 Z좌표의 증분이 표시되어 있습니다.

 

이 걸 분리해야 캐드에 좌표에 의해 그림을그릴 수 있습니다.

 

* 글 하단에 링크된 엑셀 파일이 있습니다. 이 엑셀로 아래의 예를 작성한 것입니다.

 

먼저 NODE 전체 좌표를 긁어서 엑셀에 붙여 넣습니다.

 

텍스트 나누기 '공백'을 체크하고 각 셀마다 분할해 줍니다.

 

J열과 L열을 선택하고 찾아바꾸기(ctrl+h)로 ]를  공백으로 바꿔 줍니다.

 

셀 위치를 C1에 두고 VBA를 실행(Alt+F11)시키고 모듈 함수내에 커서를 두고 실행(F5) 합니다. VBA코드를 보면 2000번 반복하는 것으로 되어 있는데 하고 싶은 숫자로 변경해서 실행하면 됩니다.

SERIES 가 밀리면서 그 사이의 NODE가 생성됩니다.

 

다음은 예제로 링크 된 엑셀의 좌표를 읽어 캐드에 배치한 것입니다.

 

EXCEL