import rhinoscriptsyntax as rs
"""
allobjts = rs.AllObjects()
rs.DeleteObjects(allobjts)
"""
#M-Kurve zeichnen
#rs.Command("-_Curve Degree=3 0,30,0 15,30,0 15,10,0 15,30,0 30,30,0 30,0,0 45,0,0 45,45,0 15,45,0 15,15,0 15,45,0 -15,45,0 -15,0,0 close _Enter")
#crv = rs.FirstObject(select=True)
mytext = rs.AddText("M",(0,0,0),height=5)
crv = rs.ExplodeText(mytext,True) [0]
rs.SelectObject(crv)

#M-Kurve extrudieren
rs.Command("-_ExtrudeCrv Solid=No +50 _Enter")
srf = rs.FirstObject(select=True)
rs.UnselectObject(crv)

#Shape verandern
rs.Command("-_Rebuild UPointCount=12 VpointCount=5 UDegree=3 VDegree=3 DeleteInput=Yes _Enter")
rs.EnableObjectGrips(srf, True)

"""
#Wo liegen die Punkte?
pointlist = rs.ObjectGripLocations(srf)
print pointlist
for i,pt in enumerate(pointlist):
    cmd = "-Dot {} {} _Enter".format(str(i),str(pt))
    rs.Command(cmd,False)
"""

rs.SelectObjectGrip(srf,21)
rs.SelectObjectGrip(srf,22)
rs.SelectObjectGrip(srf,23)
rs.Command("-_Move 0,0,0 5,10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,11)
rs.SelectObjectGrip(srf,12)
rs.SelectObjectGrip(srf,13)
rs.Command("-_Move 0,0,0 5,0,0 _Enter")
rs.UnselectAllObjects()


rs.SelectObjectGrip(srf,36)
rs.SelectObjectGrip(srf,37)
rs.SelectObjectGrip(srf,38)
rs.Command("-_Move 0,0,0 0,-10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,51)
rs.SelectObjectGrip(srf,52)
rs.SelectObjectGrip(srf,53)
rs.Command("-_Move 0,0,0 0,10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,6)
rs.SelectObjectGrip(srf,7)
rs.SelectObjectGrip(srf,8)
rs.Command("-_Move 0,0,0 0,10,0 _Enter")
rs.UnselectAllObjects()

rs.EnableObjectGrips(srf, False)


#Contour Boeden
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 0,0,1 3.0 _Enter")

#(Contour Linien sind bereits ausgewahlt) Extrusion fur Boden
rs.Command("_ExtrudeCrv Solid=Yes 0.3 _Enter")

#Contour linien Stutzen
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 1,0,0 2.0 _Enter")
rs.Command("Pipe 0.2 _Enter")

rs.DeleteObject(srf)

"""
allobjts = rs.AllObjects()
rs.DeleteObjects(allobjts)
"""
"""
#L-Kurve zeichnen
#rs.Command("-_Curve Degree=3 0,30,0 15,30,0 15,10,0 15,30,0 30,30,0 30,0,0 45,0,0 45,45,0 15,45,0 15,15,0 15,45,0 -15,45,0 -15,0,0 close _Enter")
#crv = rs.FirstObject(select=True)
mytext = rs.AddText("L",(200,0,0),height=5)
crv = rs.ExplodeText(mytext,True) [0]
rs.SelectObject(crv)

#M-Kurve extrudieren
rs.Command("-_ExtrudeCrv Solid=No +50 _Enter")
srf = rs.FirstObject(select=True)
rs.UnselectObject(crv)

#Shape verandern
rs.Command("-_Rebuild UPointCount=12 VpointCount=5 UDegree=3 VDegree=3 DeleteInput=Yes _Enter")
rs.EnableObjectGrips(srf, True)


#Wo liegen die Punkte?
pointlist = rs.ObjectGripLocations(srf)
print pointlist
for i,pt in enumerate(pointlist):
    cmd = "-Dot {} {} _Enter".format(str(i),str(pt))
    rs.Command(cmd,False)


rs.SelectObjectGrip(srf,21)
rs.SelectObjectGrip(srf,22)
rs.SelectObjectGrip(srf,23)
rs.Command("-_Move 0,0,0 5,10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,11)
rs.SelectObjectGrip(srf,12)
rs.SelectObjectGrip(srf,13)
rs.Command("-_Move 0,0,0 5,0,0 _Enter")
rs.UnselectAllObjects()


rs.SelectObjectGrip(srf,36)
rs.SelectObjectGrip(srf,37)
rs.SelectObjectGrip(srf,38)
rs.Command("-_Move 0,0,0 0,-10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,51)
rs.SelectObjectGrip(srf,52)
rs.SelectObjectGrip(srf,53)
rs.Command("-_Move 0,0,0 0,10,0 _Enter")
rs.UnselectAllObjects()

rs.SelectObjectGrip(srf,6)
rs.SelectObjectGrip(srf,7)
rs.SelectObjectGrip(srf,8)
rs.Command("-_Move 0,0,0 0,10,0 _Enter")
rs.UnselectAllObjects()

rs.EnableObjectGrips(srf, False)

#Contour Boeden
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 0,0,1 3.0 _Enter")

#(Contour Linien sind bereits ausgewahlt) Extrusion fur Boden
rs.Command("_ExtrudeCrv Solid=Yes 0.3 _Enter")

#Contour linien Stutzen
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 1,0,0 2.0 _Enter")
rs.Command("Pipe 0.2 _Enter")

rs.DeleteObject(srf)
"""