So-net無料ブログ作成

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;
Var
CurrentLib : IPCB_Library;
FootprintIterator : IPCB_LibraryIterator;
Footprint : IPCB_LibComponent;
FootprintList : TStringList;
ReportDocument : IServerDocument;
Filename : TString;
S : TString;
I : Integer;
Begin
CurrentLib := PCBServer.GetCurrentPCBLibrary;
If CurrentLib = Nil Then
begin
ShowMessage(' It is not Current PCB Library ! ');
Exit ;
end
else
begin
Filename := ExtractFilePath(CurrentLib.Board.FileName) + 'PCBLib_Report.csv';
S := '';
FootprintList := TStringList.Create;

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

FootprintList.Add(S);
Footprint := FootprintIterator.NextPCBObject;
End;

Finally
CurrentLib.LibraryIterator_Destroy(FootprintIterator);
FootprintList.SaveToFile(FileName);
FootprintList.Free;
End;

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

End;


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.

Adj_Pos.png

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.

Stray_C_Scr.png

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

Stray_OP_Ex.png




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.

FP_Tool1.png


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

FtCl_Scr0.png

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

FtCl_Scr1.png


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)

Freq_Via_Pitch.png


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.

https://sophil3.blog.so-net.ne.jp/2019-08-20-9#more
(Used strip1)

Mesh.png


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.

Lead_PAD2.png


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.

AL_SCR.jpg

...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.

AVR_Tr.png

...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.

QFP_Scr.png

...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.)

Tantal_C_Scr.png

...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.

Sod_Scr.png

...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.

DeLay_TXL_F.png
nice!(1)  コメント(0) 

PnP Rep. Scr [DOWNLOAD(E)]

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

PnP_Report.png


...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.)

Delphi_6_To_VBA.png


...Continue reading


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

Res. of VIA [DOWNLOAD(E)]

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

R_Calc_Hole2.png

...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.

PTN_Calc.png

...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.

Place_Arc5.jpg

...Continue reading


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