Option Explicit

Dim xOrigin
Dim yOrigin
Dim zOrigin

xOrigin = 0
yOrigin = 0
zOrigin = 0

Dim gxLayer
Dim gxURec
Dim gxPlayList
Dim gxSelList
Dim x
Dim n
Dim m
On Error Resume Next
Set gxPlayList = ActiveDrawing.GraphicSets("PlayList")
if (Err.Number <> 0) then
	Set gxPlayList = ActiveDrawing.GraphicSets.Add("PlayList", false)
else
	gxPlayList.Clear
End If
On Error GoTo 0
On Error Resume Next
Set gxSelList = ActiveDrawing.GraphicSets("SelectionList")
if (Err.Number <> 0) then
	Set gxSelList = ActiveDrawing.GraphicSets.Add("SelectionList", false)
else
	gxSelList.Clear
End If
On Error GoTo 0

Dim gxChild
For x=0 to 100
Set gxURec = ActiveDrawing.AddUndoRecord("Script Play Add Graphic Entity")
Set gxChild = gxPlayList.Add(11,,false,"Normale Linien")
On Error Resume Next
With gxChild.Properties
	.Item("TextSize") = false
	.Item("PenScale") = 1.000000
	.Item("PenStyle") = 2
	.Item("BrushColor") = -5
	.Item("BrushScale") = 50.000000
	.Item("BrushAngle") = 0.000000
	.Item("BrushStyle") = 1
	.Item("TextStyle") = 1
	.Item("ScaleSystem") = 2
	.Item("Layer") = 1
	.Item("Info") = ""
	.Item("TextFont") = "Times New Roman"
	.Item("TextFormat") = 36716
	.Item("HatchCross") = 0
	.Item("BrushDrawMode") = 0
	.Item("PenAlignment") = 0
	.Item("StyleTree") = 0
	.Item("TextSize") = true
End With
On Error GoTo 0

With gxChild.Vertices
	.Clear
	Dim gxVrt
	Set gxVrt = .Add(xOrigin + m, yOrigin + 300.0000000000000000, zOrigin + 0.0000000000000000, true, true, true, true, true, false)
	Set gxVrt = .Add(xOrigin + m+n, yOrigin + 300.0000000000000000, zOrigin + 0.0000000000000000, true, true, true, true, true, false)
	Set gxVrt = .Add(xOrigin + m+n, yOrigin + 200.0000000000000000, zOrigin + 0.0000000000000000, true, true, true, true, true, false)
	Set gxVrt = .Add(xOrigin + m, yOrigin + 200.0000000000000000, zOrigin + 0.0000000000000000, true, true, true, true, true, false)
	Set gxVrt = .Add(xOrigin + m, yOrigin + 300.0000000000000000, zOrigin + 0.0000000000000000, true, true, true, true, true, false)
End With
gxChild.Closed = true

Set gxChild = gxPlayList(0+x)
ActiveDrawing.Graphics.AddGraphic gxChild
gxURec.AddGraphic gxChild
gxChild.Draw
gxURec.Close
n=n+0.1
m=m+2*n
next
gxPlayList.Delete
Set gxPlayList = Nothing
gxSelList.Delete
Set gxSelList = Nothing