# Skizze von einer Ebene auf eine andere Ebene kopieren und Skalieren
# (c) IDSLK Stefan
#
win = Windows()
enviroment = CurrentPart()
options = []
values = []
options.append(['Neue Skizze auf welcher Ebene', WindowsInputTypes.Plane, None]) # 0
options.append(['Name für die neue Skizze', WindowsInputTypes.String, 'Neue_skalierte_Skizze']) # 1
options.append(['Klicke im Design Explorer\nauf die zu kopierende Skizze', WindowsInputTypes.Sketch, None]) # 2
options.append(['Skalierungsfaktor in %', WindowsInputTypes.Real, 150.0]) # 3
values = win.OptionsDialog('CopySketch', options, 180)
if values == None:
  print 'Canceled'
  sys.exit()
origin_sketch_name = values[2]
new_sketch_name = values[1]
sketchbase = values[0]
scalefactor = values[3]
new_sketch = enviroment.AddSketch(new_sketch_name,sketchbase)
new_sketch.CopyFrom(origin_sketch_name,0,0,0,0,0,1,1,scalefactor)