Thanks for the spiral code Brian.
I changed it slightly to work with ClientBasic in Protel. Spirals are placed directly
on the PCB.
Copy paste the code into a text file in your project and name it Spiral.bas. Save the
file (also every time changes are made).
Then go into your PCB design click on the Down Arrow menu , Run Script, and double
click Spiral.bas.
Of course a dialog and macro can be made to simplify things. Some day I'll try doing
that.
-------------------------------------------------
DIM x0,y0,stp,growth as DOUBLE
DIM p0,pi,xc0,xc1,yc0,yc1 as DOUBLE
pi = 3.141592654#
x0 = 3000 'spiral center x location
y0 = 3000 'spiral center y location
spacing = 20
loops = 4
res = 2 'resolution
trackwidth=10
loops = loops * 2
stp = res / pi / 4
growth = spacing / pi * stp / 2
' ClientBasic uses only integers with For-Next loops
FOR p0 = 0 TO loops * pi / stp + 1
p = p0 * stp - stp
xc1 = INT(COS(p) * spacing)
yc1 = INT(SIN(p) * spacing)
spacing = spacing + growth
if p0<>0 then
ResetParameters
AddStringParameter "Width",trackwidth
AddStringParameter "Location1.X", x0 + xc0
AddStringParameter "Location1.Y", y0 + yc0
AddStringParameter "Location2.X", x0 + xc1
AddStringParameter "Location2.Y", y0 + yc1
' AddStringParameter "UserRouted", "False"
AddStringParameter "Layer", "Current"
RunProcess "PCB:PlaceTrack"
end if
xc0=xc1
yc0=yc1
NEXT p0
------------------------------
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* To post a message: mailto:[EMAIL PROTECTED]
*
* To leave this list visit:
* http://www.techservinc.com/protelusers/subscrib.html
* - or email -
* mailto:[EMAIL PROTECTED]?body=leave%20proteledaforum
*
* Contact the list manager:
* mailto:[EMAIL PROTECTED]
*
* Browse or Search previous postings:
* http://www.mail-archive.com/[email protected]
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
