Added Spiral Generator and Planar Transformer scripts by Darren Moore

PlanarTXv0.7/PlanarTx.vbs

@@ -0,0 +1,243 @@
+'----------------------------------------------------
+' Draw rounded rectangle spiral track
+' Copyright (c) 2005 Mooretronics Pty Ltd
+' Melbourne Australia
+'----------------------------------------------------
+' This script will draw a trace around a user defined rectangle.
+' User enters the size of the rectangle to draw tracks around,
+' the clearance, track width, track to track clearance and number
+' of turns to draw.
+' Metric support added
+' Mouse select start point added
+' Improve dialog, DXP style
+' get current layer
+' much faster calls now
+' grouped undo
+' removed Str2Int functions so it can handle non integer values
+' fixed metric issue, force change to imperial before placing objects
+' make some cosmetic changes
+' set dialog to open in middle of screen
+' add layer names to Layers list again
+'....................................................
+
+' Darren Moore
+' May 2005
+
+' Version 0.7
+
+'....................................................
+
+    Dim   Board
+    DIM   xm,ym    'mouse coordinate
+
+'-----------------------------------------------------------------------
+Sub PlacePlanarTxFormCreate(Sender)
+
+    Set Board = PCBServer.GetCurrentPCBBoard
+    If Board is Nothing Then Exit Sub
+
+    If Not Board.ChooseLocation(xm,ym,"Choose PlanarTx start location") Then
+    End If
+
+    xm = (xm - Board.XOrigin)/10000               'convert to mils, offset to relative origin
+    ym = (ym - Board.YOrigin)/10000               '
+
+    PlacePlanarTxForm.StartX.Text = xm
+    PlacePlanarTxForm.StartY.Text = ym
+
+    PlacePlanarTxForm.LayerListBox.Text = Layer2String(Board.CurrentLayer)    'get current layer
+
+    If (Board.DisplayUnit) Then
+       PlacePlanarTxForm.Metric.Checked = false
+    Else
+       PlacePlanarTxForm.Metric.Checked = true                   ' read 0 = Metric, 1 = Inch
+    End If
+
+    SizeX.Color = RGB(236, 233, 216) '&HD8E9EC&
+    SizeY.Color = RGB(236, 233, 216)
+    StartX.Color = RGB(236, 233, 216)
+    StartY.Color = RGB(236, 233, 216)
+    Spacing.Color = RGB(236, 233, 216)
+    ClearanceInside.Color = RGB(236, 233, 216)
+    SizeRadius.Color = RGB(236, 233, 216)
+    TrackWidth.Color = RGB(236, 233, 216)
+    Loops.Color = RGB(236, 233, 216)
+
+End Sub
+'-----------------------------------------------------------------------
+
+Sub XPBitBtn1Click(Sender)
+
+    DIM   ArcX1, ArcX2, ArcX3, ArcX4, ArcY1, ArcY2, ArcY3, ArcY4, NowX, NowY, RadiusNow
+    DIM   Length, Height, Radius, TrackSpacing, Width, Windings, Layer, Track, Arc
+
+' force values to imperial
+       Metric.Checked = false
+
+    Width       =  (TrackWidth.Text)
+    Radius      =  (SizeRadius.Text)
+    Clearance   =  ((ClearanceInside.Text) * 1)
+    Length      =  ((SizeX.Text) - (Radius * 2))
+    Height      =  ((SizeY.Text) - (Radius * 2))
+    TrackSpacing   =  (Spacing.Text)
+    Layer       =  String2Layer(LayerListBox.Text)
+    Windings    =  ((Loops.Text) * 1)
+    NowX     =  (StartX.Text + (Board.XOrigin/10000))
+    NowY     =  (StartY.Text + (Board.YOrigin/10000))
+
+
+    ArcX1 = NowX
+    ArcY1 = (NowY - Radius - Clearance)
+    ArcX2 = (NowX + Length)
+    ArcY2 = ArcY1
+    ArcX3 = ArcX2
+    ArcY3 = (ArcY2 - Height)
+    ArcX4 = ArcX1
+    ArcY4 = ArcY3
+
+    PlacePlanarTxForm.Hide
+
+    RadiusNow = (Radius + Clearance)
+    ArcY1 = (ArcY1 + TrackSpacing + Width)
+
+    PCBServer.PreProcess
+
+    FOR p0 = 1 TO Windings
+
+    Track          = PCBServer.PCBObjectFactory(eTrackObject, eNoDimension, eCreate_Default)
+    Track.Width    = MilsToCoord(Width)
+    Track.X1       = MilsToCoord(NowX)
+    Track.Y1       = MilsToCoord(NowY)
+    Track.X2       = MilsToCoord(NowX + Length)
+    Track.Y2       = MilsToCoord(NowY)
+    Track.Layer    = Layer
+    Board.AddPCBObject(Track)
+
+    NowX = (NowX + (Length - Radius))
+
+    Arc            = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
+    Arc.LineWidth  = MilsToCoord(Width)
+    Arc.XCenter    = MilsToCoord(ArcX2)
+    Arc.YCenter    = MilsToCoord(ArcY2)
+    Arc.Radius     = MilsToCoord(RadiusNow)
+    Arc.Layer      = Layer
+    Arc.StartAngle = 0
+    Arc.EndAngle   = 90
+    Board.AddPCBObject(Arc)
+
+    NowX = ArcX2 + RadiusNow
+    NowY = ArcY2
+
+    Track          = PCBServer.PCBObjectFactory(eTrackObject, eNoDimension, eCreate_Default)
+    Track.Width    = MilsToCoord(Width)
+    Track.X1       = MilsToCoord(NowX)
+    Track.Y1       = MilsToCoord(NowY - Height)
+    Track.X2       = MilsToCoord(NowX)
+    Track.Y2       = MilsToCoord(NowY)
+    Track.Layer    = Layer
+    Board.AddPCBObject(Track)
+
+    Arc            = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
+    Arc.LineWidth  = MilsToCoord(Width)
+    Arc.XCenter    = MilsToCoord(ArcX3)
+    Arc.YCenter    = MilsToCoord(ArcY3)
+    Arc.Radius     = MilsToCoord(RadiusNow)
+    Arc.Layer      = Layer
+    Arc.StartAngle = 270
+    Arc.EndAngle   = 0
+    Board.AddPCBObject(Arc)
+
+    NowX = ArcX3
+    NowY = ArcY3 - RadiusNow
+
+    Track          = PCBServer.PCBObjectFactory(eTrackObject, eNoDimension, eCreate_Default)
+    Track.Width    = MilsToCoord(Width)
+    Track.X1       = MilsToCoord(NowX - Length)
+    Track.Y1       = MilsToCoord(NowY)
+    Track.X2       = MilsToCoord(NowX)
+    Track.Y2       = MilsToCoord(NowY)
+    Track.Layer    = Layer
+    Board.AddPCBObject(Track)
+
+    Arc            = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
+    Arc.LineWidth  = MilsToCoord(Width)
+    Arc.XCenter    = MilsToCoord(ArcX4)
+    Arc.YCenter    = MilsToCoord(ArcY4)
+    Arc.Radius     = MilsToCoord(RadiusNow)
+    Arc.Layer      = Layer
+    Arc.StartAngle = 180
+    Arc.EndAngle   = 270
+    Board.AddPCBObject(Arc)
+
+    NowX = ArcX4 - RadiusNow
+    NowY = ArcY4
+
+    Track          = PCBServer.PCBObjectFactory(eTrackObject, eNoDimension, eCreate_Default)
+    Track.Width    = MilsToCoord(Width)
+    Track.X1       = MilsToCoord(NowX)
+    Track.Y1       = MilsToCoord(NowY + Height + TrackSpacing + Width)
+    Track.X2       = MilsToCoord(NowX)
+    Track.Y2       = MilsToCoord(NowY)
+    Track.Layer    = Layer
+    Board.AddPCBObject(Track)
+
+    Arc            = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
+    Arc.LineWidth  = MilsToCoord(Width)
+    Arc.XCenter    = MilsToCoord(ArcX1)
+    Arc.YCenter    = MilsToCoord(ArcY1)
+    Arc.Radius     = MilsToCoord(RadiusNow)
+    Arc.Layer      = Layer
+    Arc.StartAngle = 90
+    Arc.EndAngle   = 180
+    Board.AddPCBObject(Arc)
+
+    NowX = ArcX1
+    NowY = ArcY1 + RadiusNow
+
+    RadiusNow = RadiusNow + TrackSpacing + Width
+
+    NEXT
+
+    Pcbserver.PostProcess
+    ' Refresh PCB workspace.
+    ResetParameters
+    Call AddStringParameter("Action", "Redraw")
+    RunProcess("PCB:Zoom")
+
+  Close
+End Sub
+
+'-----------------------------------------------------------------------
+Sub MetricClick(Sender)
+    If    Metric.Checked Then
+          StartX.Text = (StartX.Text / 39.37)
+          StartY.Text = (StartY.Text / 39.37)
+          SizeX.Text = (SizeX.Text / 39.37)
+          SizeY.Text = (SizeY.Text / 39.37)
+          Spacing.Text = (Spacing.Text / 39.37)
+          ClearanceInside.Text = (ClearanceInside.Text / 39.37)
+          SizeRadius.Text = (SizeRadius.Text / 39.37)
+          TrackWidth.Text = (TrackWidth.Text / 39.37)
+    Else
+          StartX.Text = (StartX.Text * 39.37)
+          StartY.Text = (StartY.Text * 39.37)
+          SizeX.Text = (SizeX.Text * 39.37)
+          SizeY.Text = (SizeY.Text * 39.37)
+          Spacing.Text = (Spacing.Text * 39.37)
+          ClearanceInside.Text = (ClearanceInside.Text * 39.37)
+          SizeRadius.Text = (SizeRadius.Text * 39.37)
+          TrackWidth.Text = (TrackWidth.Text * 39.37)
+    End If
+
+End Sub
+
+'-----------------------------------------------------------------------
+Sub Main
+    PlacePlanarTxForm.showmodal
+End Sub
+
+'-----------------------------------------------------------------------
+Sub XPBitBtn2Click(Sender)
+    close
+End Sub
+