Altium教程焊盘和过孔特性设置.docVIP

Pad And Via of Type 第一部分 Pad And Via of Type in PCB Design 1 Pad And Via of Type 1 Count_Connection_Lines.pas {..............................................................................} { Summary } { Demo How to find and list all connection lines in the PCB } { and display the connection line data on the Messages panel. } { } { Version 1.0 } { Copyright (c 2008 by PurPer Limited } {..............................................................................} {..............................................................................} Procedure DisplayResultsInMessagePanel (Results : TStringList ; Var WSM : IWorkSpace ; MM : IMessagesManager ; ImageIndex : Integer; F : Boolean; I : Integer; Begin WSM := GetWorkSpace ; If WSM = Nil Then Exit; // Obtain the Messages Panel interface MM := WSM .DM_MessagesManager; If MM = Nil Then Exit; // Tick Icon for the lines in the Message panel ImageIndex := 3; // Clear out messages from the Message panel... MM .ClearMessages; MM .BeginUpdate; F := False; For I := 0 to Results .Count - 1 Do Begin MM .AddMessage({MessageClass } Connection Line: + IntToStr (I + 1, {MessageText } Results .Strings[I ], {MessageSource } , {MessageDocument } , {MessageCallBackProcess } , {MessageCallBackParameters} , ImageIndex , F ; End ; MM .EndUpdate; // Display the Messages panel in PurPer Designer. WSM .DM_ShowMessageView; End ; {..............................................................................} {..............................................................................} Procedure CountAndFindConnections ; Var Board : IPCB_Board; Connect : IPCB_Connection; Iterator : IPCB_BoardIterator; ConnectionList : TStringList ; ConnectNumber : Integer; Document : IServerDocument ; FileName : TPCBString; Begin ConnectNumber := 0; // Retrieve the current board Board := PCBServer .GetCurrentPCBBoard; If Board = Nil Then Exit; ConnectionList := TStringList .Create; // retrieve the iterator Iterator := Board .BoardIterator_Create;