엑셀 VBA를 이용한 좌표에 따른 그림 그리기

엑셀에서 자유형 도면을 그릴 수 있는 기능이 있습니다.

커서로 화면상에 임의점을 찍지만, 프로그램 내부에서는 임의점이 좌표(x, y)로 계산되어 그려 지는 것입니다. 이것을 이용하여 의도된 좌표(그리고자 하는)로 그려볼 수 있습니다. 

 

다음은 아래에 첨부된 엑셀화면입니다.

Solid Geo. 와 Hollow Geo.는 각각 외곽선과 뚫려지는 내부선을 의미합니다. Rebar는 그 사이에 들어가는 점이라고 생각하면됩니다.(Rebar는 철근을 의미합니다) 그려보고자 하는 임의점을 적어주고 Alt+F11(VBA)로 들어갑니다. geoDraw()라는 창에 커서를 두고 F5(실행)시키면 좌표에 의한 그림이 그려집니다.

그래프로 그리는 것보다 조금 더 깔끔하다고 생각됩니다.

엑셀 다운 링크입니다.

엑셀링크