Sub Main
With Netcad

for i=0 to 17
    Dim poly  
    Set poly = .newpoly
    poly.addcoor .newc(100.0*i*2, 100.0, 0)
    poly.addcoor .newc(200.0*i*2, 100.0, 0)
    poly.addcoor .newc(200.0*i*2, 200.0, 0)
    poly.addcoor .newc(100.0*i*2, 200.0, 0)
    poly.addcoor .newc(150.0*i*2, 250.0, 0)
    poly.addcoor .newc(100.0*i*2, 100.0, 0)
    Dim pline  
    Set pline = .MakePline(\"Dikdortgen\", 1, 0, 0, 1.0, 0, poly)

    pline.tabaka = netcad.createlayer(i,i)
    pline.flags = i
    .AddObject pline


    Set poly = Nothing
    Set pline = Nothing


    next 
End With

End Sub