用户有如下格式的数据文件：
area: 493519.5425999999861,2813662.4879999998957,657.5828074929132 493520.4519999999902,2813660.9509000000544,658.4074183342204 493522.4256000000169,2813657.7604999998584,660.0736246957492 493524.5035999999964,2813654.7100999997929,661.5791760283206 493525.4970999999787,2813653.2834000000730,662.2715671872681 493531.9806000000099,2813663.0576999997720,654.6549842500001 493530.6492999999900,2813663.9419999998063,654.5990000000000 493527.8231999999844,2813665.8273999998346,654.4800000000000 493525.0021999999881,2813667.7204999998212,654.3610000000001 493523.6769000000204,2813668.6137000001036,654.3050157500001 493519.5425999999861,2813662.4879999998957,657.5828074929132 area: 493749.0158999999985,2813537.9978000000119,668.6211523537329 493750.1016999999993,2813538.4964999998920,667.7805833910656 493754.6641999999993,2813540.6987000000663,664.1495110569949 493755.6404999999795,2813540.9621999999508,663.5678773000000 493757.1675999999861,2813544.7672000001185,663.5803773000000 493756.4210999999777,2813545.0671000001021,663.5521965250001 493753.2707999999984,2813546.3388000000268,663.4331965250001 493752.5252999999793,2813546.6411999999546,663.4050157500001 493749.0158999999985,2813537.9978000000119,668.6211523537329 area: 494053.1201000000001,2813406.2634000000544,673.1459311568273 494053.6019000000088,2813406.1296999999322,673.1608135877451 494063.0461999999825,2813440.1625000000931,673.1608135877451 494062.5644999999786,2813440.2962000002153,673.1459311568273 494053.1201000000001,2813406.2634000000544,673.1459311568273 area: 506917.5998000000254,2805112.1779000000097,585.5950000000006 506918.0748000000021,2805112.0219000000507,585.5832500000006 506930.1571000000113,2805148.8070000000298,585.5832500000006 506929.6819999999716,2805148.9629999999888,585.5950000000006 506917.5998000000254,2805112.1779000000097,585.5950000000006 area: 510633.3751000000047,2790864.0855000000447,490.9422774970565 510633.3765000000130,2790863.5855000000447,490.9422431618052 510653.3244999999879,2790863.6392999999225,490.9422431618052 510653.3230999999796,2790864.1392999999225,490.9422774970565 510633.3751000000047,2790864.0855000000447,490.9422774970565 area: 510772.3967999999877,2790132.1567999999970,482.5426207900385 510772.5370000000112,2790131.6768000000156,482.5359887624795 510798.8243999999831,2790139.3533999999054,482.5359887624795 510798.6843000000226,2790139.8333000000566,482.5426207900385 510772.3967999999877,2790132.1567999999970,482.5426207900385
每组数据之间用area:分割，每组数据组成一个形元素（Shape Element）。实际的数据有35000多行，921个形状，如何能自动将这些数据生成对应的Shape呢？其实用MicroStation的VBA语言写个小程序就能实现该功能。
详细的程序源代码和使用方法请看如下帖子：