import rhinoscriptsyntax as rs

allobjs = rs.AllObjects ()
rs.DeleteObjects(allobjs)
initial = "J"
hgt= 60
size =40

###BUCHSTABE 1
#draw a closed curve in Rhino
mytext = rs.AddText(initial,(0,0,0),height=size, font="Arial")
crv = rs.ExplodeText(mytext,True)[0]
rs.SelectObject(crv)

#extrude the curve
rs.Command("-_ExtrudeCrv Solid=No DeleteInput=Yes {} _Enter".format(hgt))
srf = rs.FirstObject(select=True)

#use handles to change Nurbs shape
rs.Command("-_Rebuild UPointCount=10  VPointCount=4  UDegree=3  VDegree=3  DeleteInput=Yes _Enter")
rs.EnableObjectGrips(srf, True)

"""
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, 20)
rs.SelectObjectGrip (srf, 25)
rs.Command("_Move 0,0,0 15,0,0 _Enter")
rs.UnselectAllObjects()

rs.EnableObjectGrips(srf, False)

#create contourlines in z-directions extrude them (flor plates)
rs.SelectObject(srf,)
rs.Command("Contour 0,0,0 0,0,1 3.0 _Enter")
rs.Command ("_ExtrudeCrv Solid=Yes 0.3 _Enter")

#create Contourlines in x-directions and use the pipe command (vertical supperot)
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 1,0,0 2.0 _Enter")
rs.Command("Pipe 0.2 _Enter")

#rs.DeleteObject(srf)
rs.UnselectAllObjects()

###BUCHSTABE 2
letter = "L"
hgt= 60
size =40


#draw a closed curve in Rhino
myinitial = rs.AddText(letter,(40,0,0),height=size, font="Arial")
crv = rs.ExplodeText(myinitial,True)[0]
rs.SelectObject(crv)

#extrude the curve
rs.Command("-_ExtrudeCrv Solid=No DeleteInput=Yes {} _Enter".format(hgt))
srf = rs.FirstObject(select=True)

#use handles to change Nurbs shape
rs.Command("-_Rebuild UPointCount=10  VPointCount=4  UDegree=3  VDegree=3  DeleteInput=Yes _Enter")
rs.EnableObjectGrips(srf, True)

"""
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, 20)
rs.SelectObjectGrip (srf, 25)
rs.Command("_Move 0,0,0 15,0,0 _Enter")
rs.UnselectAllObjects()

rs.EnableObjectGrips(srf, False)

#create contourlines in z-directions extrude them (flor plates)
rs.SelectObject(srf,)
rs.Command("Contour 0,0,0 0,0,1 3.0 _Enter")
rs.Command ("_ExtrudeCrv Solid=Yes 0.3 _Enter")

#create Contourlines in x-directions and use the pipe command (vertical supperot)
rs.SelectObject(srf)
rs.Command("Contour 0,0,0 1,0,0 2.0 _Enter")
rs.Command("Pipe 0.2 _Enter")

rs.DeleteObject(srf)