Footprint name from PCBLIB [Altium Delphi (E/J)]

This is a script that extracts the FootPrint name from a single PCBLIB.
Open the PCBLIB file you want to check before running the script.
The result is a * .CSV file.

Procedure FootFind;
CurrentLib : IPCB_Library;
FootprintIterator : IPCB_LibraryIterator;
Footprint : IPCB_LibComponent;
FootprintList : TStringList;
ReportDocument : IServerDocument;
Filename : TString;
S : TString;
I : Integer;
CurrentLib := PCBServer.GetCurrentPCBLibrary;
If CurrentLib = Nil Then
ShowMessage(' It is not Current PCB Library ! ');
Exit ;
Filename := ExtractFilePath(CurrentLib.Board.FileName) + 'PCBLib_Report.csv';
S := '';
FootprintList := TStringList.Create;

FootprintIterator := CurrentLib.LibraryIterator_Create;
Footprint := FootprintIterator.FirstPCBObject;
While Footprint <> Nil Do
// Determine which units are in use
If CurrentLib.Board.DisplayUnit = eMetric Then
S :=
S := ;

Footprint := FootprintIterator.NextPCBObject;


//Display and save report
ReportDocument := Client.OpenDocument('Text', FileName);
If ReportDocument <> Nil Then


nice!(0)  コメント(0) 

Round multiple part coordinates [Altium VB Scripts(E/J)]

I created a script that rounds part coordinates in PCBDOC.
The language of this script was created with VB.
This simply rounds the individual XY coordinates to the menu digits.


A part of the code is shown below.
Rd : menu digits

Dim CompDes
Dim Rd
Set CompDes = Iterator.FirstPCBObject
Compdes.x = MMstocoord(Round(CoordToMMs(Compdes.x),Rd))
Compdes.y = MMstocoord(Round(CoordToMMs(Compdes.y),Rd))
Set CompDes = Iterator.NextPCBObject

nice!(1)  コメント(0) 

Stray capacitance around high-speed OPAMP [Altium Delphi (E/J)]

It seems that there is a case where the characteristics do not appear
due to the effect of solid GND in high-speed OPAMP.

A customer has been told to leave a solid ground of 1mm from the pad
of the input part on the component side and solder side.
This seems to be due to the effect of stray capacitance.

I created a script to calculate the capacitance between conductors.


When calculated, it was a safe value more than one digit.


nice!(0)  コメント(0) 

Pad outline [Altium Delphi (E/J)]

I created a script that places a pad outline rectangle when creating
a footprint.
Such contour lines are advantageous in dimensional drawings.

However, only rotations of 0, 90, 180 and 270 degrees are supported.
The pad is not a through pad, only the Top layer.


nice!(0)  コメント(0) 

Script to place mounting holes [Altium Delphi (E/J)]

This was made by improving the script for placing pads.
It is possible to place a circle and a cross in the center of the pad.

If the hole diameter of the pad is specified, the double is processed
as the pad diameter.
The pad name is “MNT”.
This pad name can be specified by a query when injecting polygons.

Place_PAD script3.jpg

nice!(0)  コメント(0) 

Fix footprint collection script [Altium Delphi (E/J)]

This reports a list of footprints by specifying a parent folder
with multiple PCBLIBs.

For Summer09


For AD14 or higher
Since the component "XPDirectoryEdit" is old, I modified that part.


nice!(1)  コメント(0) 

VIA spacing at high frequencies [Altium Delphi (E/J)]

This calculates the proper distance to strike VIA on solid ground.
Calculated from the wavelength of the frequency being used.
(From overseas literature : P = wavelength / 20)


nice!(1)  コメント(0) 

Thickness during cross-hatching [Altium Delphi (E/J)]

If cross-hatching is used, the capacitance decreases.

This will cause an error when calculating the width
of the microstrip line.
Calculate the target Zmesh by calculating this back.
Enter this Zmesh instead of Z and recalculate with the script
introduced earlier.
(Used strip1)


nice!(0)  コメント(0) 

Pad placement script [Altium Delphi (E/J)]

I created a basic script that places a pad.
This is to cope with the case where it cannot be processed by other scripts.


nice!(0)  コメント(0) 

Chip ALC creation script [DOWNLOAD(E)]

This is an SMD type aluminum electrolysis creation script.
The type of silk matches the company's standard.


...Continue reading

nice!(1)  コメント(0) 

AVR, TR shape drawing script [DOWNLOAD(E)]

This script is used for SMD type AVR or TR.
When the heat dissipating pad is T-shaped, it is processed by combining two pads.


...Continue reading

nice!(1)  コメント(0) 

QFP footprint creation script [DOWNLOAD(E)]

A QFP script that only supports packages with the same vertical and horizontal
sizes has been completed.

QFP with more than 80 pins can place a mark every 10 pins.


...Continue reading

nice!(0)  コメント(0) 

Tantalum footprint creation script [DOWNLOAD(E)]

I created a script to create a chip tantalum capacitor footprint.
The pad shape is specified by Jt, Jh, Js with respect to the
value of L1 + L2.
(L2 should be 0.1mm or more.)


...Continue reading

nice!(1)  コメント(0) 

SOD footprint creation script [DOWNLOAD(E)]

This is a diode-only script.
At first I tried to share it with chip tantalum.
In the case of diodes, there are many lead wires.
It became exclusive.


...Continue reading

nice!(0)  コメント(0) 

Transmission line delay time [Altium Delphi (E/J)]

This was ported as a Delphi script from EXCEL.
This script simply calculates from the difference in length between
the two tracks.

The effective dielectric constant value of the substrate material is preset.

nice!(1)  コメント(0) 

PnP Rep. Scr [DOWNLOAD(E)]

This script outputs the Pick and Place report of the PCB.


...Continue reading

nice!(0)  コメント(2) 

Delphi Script to VBA [DOWNLOAD(E)]

This is EXCEL macro for board design.
It is a port of a single DELPHI script to EXCEL.
(The menu is Japanese.)


...Continue reading

nice!(1)  コメント(0) 


This is a script to calculate the resistance value of PAD and VIA hole.


...Continue reading

タグ:Delphi ALTIUM script
nice!(1)  コメント(0) 

Pattern and inductance [DOWNLOAD(E)]

This is a script to calculate the resistance and inductance of the pattern.
I made it with a layout similar to scripts of other transmission lines.

Since the conductance is not linear, I created a script that can calculate it
at the same time.


...Continue reading

nice!(0)  コメント(0) 

Places circles [DOWNLOAD(E)]

This script places circles and arcs.
Customize the program for your company, such as mechanical layer settings.


...Continue reading

nice!(1)  コメント(0)