# Skizze von einer Ebene auf eine andere Ebene kopieren und Skalieren
# (c) IDSLK Stefan
#
win = Windows()
enviroment = CurrentPart()
options = []
values = []
options.append(['New Sketch on which Plane:', WindowsInputTypes.Plane, None]) # 0
options.append(['Name for the new sketch:', WindowsInputTypes.String, 'New_copied_sketch']) # 1
options.append(['Click on sketch to copy\nin Design Explorer:', WindowsInputTypes.Sketch, None]) # 2
options.append(['Scalefactor 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)