Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Sub main()

Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.ActiveDoc


Part.SelectByID "Ebene1", "PLANE", 0, 0, 0
Part.InsertSketch
Part.SketchRectangle 0, 0, 0, 0.1, 0.1, 0, 1
Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.3, 0.01, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
Part.EditRebuild
Part.ClearSelection
Part.EditRebuild

Z = 0 
U = 0

U_kon = 0
  
if U_kon < 0.3	then

DO While Z<15
  

Randomize		 

  	x1 = Int((9 * Rnd) + 1)
  	vx1 = Int((2 * Rnd) + 1)
   	x1 = x1 * 0.01     
    vx1 = vx1 * 0.001 
	x2 = x2 * 0.01
   	x2 = x1 + vx1		
	

	vy1 = Int((10 * Rnd) + 1)
	vy2 = Int((2 * Rnd) + 1)
   	     
    vy1 = vy1 * 0.01 
	vy2 = vy2 * 0.001
	
	
	y1 = vy1 + U
	y2 = y1 + vy2	
	vy1 = vy1 * 0.01    
	y2 = y2 * 0.01 
     
	

'MsgBox "x1= " & x1 & Chr(13) & "x2= " & x2 
'MsgBox "y1= " & y1 & Chr(13) & "y2= " & y2 


Part.SelectByID "Ebene2", "PLANE", 0, 0, 0
Part.InsertSketch
Part.SketchRectangle x1, y1, 0, x2, y2, 0, 1
'Part.FeatureCut3 1, 0, 0, 0, 0, 0.1, 0.1, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1
Part.EditRebuild
Part.ClearSelection
Part.EditRebuild

U_kon = U

Z = Z+1
U = U+0.04

Loop

end if


End Sub