Altium教程Memec Virtex2 V2MB1000 2软件设计B1

Memec Virtex2 V2MB1000 Rev3 Dev Kit - TSK51_2软件设计软件设计第一部分 原理图1.18X8PWM.SchDocU_PWM71.28X8PWM.PAS {..............................................................................} { Summary }{ Demo the use of ChooseRectangleByCorners method and the spatial iterator. } { Selects free primitives only on the focussed PCB }{ }{ Copyright (c) 2004 by PurPer Limited } {..............................................................................}{..............................................................................} Procedure SearchForObjectsWithinTheBoundaryRectangle;VarBoard : IPCB_Board;PCBObject : IPCB_Object;Iterator : IPCB_SpatialIterator;X1,Y1,X2,Y2 : TCoord;ASetOfLayers : TLayerSet;ASetOfObjects : TObjectSet;BeginBoard := PCBServer.GetCurrentPCBBoard;If Board = Nil Then Exit;(* The ChooseRectangleByCorners fn is an interactive function where *)(* you are prompted to choose two points on a PCB document.*)If Not (Board.ChooseRectangleByCorners( 'Choose first corner','Choose final corner',x1,y1,x2,y2)) Then Exit;(* Top/Bottom Layers and Arc/Track objects definedfor the Spatial iterator constraints *)ASetOfLayers := MkSet(eTopLayer,eBottomLayer);ASetOfObjects := MkSet(eArcObject,eTrackObject);(* Setup a spatial iterator which conducts a *)(* search within a defined boundary by the *)(* ChooseRectangleByCorners method *)Iterator := Board.SpatialIterator_Create;Iterator.AddFilter_ObjectSet(ASetOfObjects);Iterator.AddFilter_LayerSet(ASetOfLayers);Iterator.AddFilter_Area(X1,Y1,X2,Y2);(* Iterate for tracks and arcs on bottom/top layers *)PCBObject := Iterator.FirstPCBObject;While PCBObject <> 0 DoBeginPCBObject.Selected := True;PCBObject := Iterator.NextPCBObject;End;Board.SpatialIterator_Destroy(Iterator);(* Update PCB document *)Client.SendMessage('PCB:Zoom', 'Action=Redraw' , 255, Client.CurrentView); End; {..............................................................................}{..............................................................................}1.38X8PWM_2.PAS {..............................................................................} { Summary Layers information based on the current PCB layer stack }{ of the pcb document. }{ Copyright (c) 2004 by PurPer Limited } {..............................................................................}{..............................................................................} Function ConvertDielectricTypeTOString (DT : TDielectricType): String;BeginResult := 'Unknown Type';Case DT OfeNoDielectric : Result := 'No Dielectric';eCore : Result := 'Core';ePrePreg : Result := 'PrePreg';eSurfaceMaterial : Result := 'Surface Material';End;End; {..............................................................................}{..............................................................................} Function GetLayerInfo(BoardHandle : IPCB_Board; Var LayerID : TLayer) : String; VarLayerObj : IPCB_LayerObject;BeginLayerObj := yerObject[LayerId];Result := Layer2String(LayerID) + ', ' + + ', ' +'Copper' + ', ' + FloatToStr(LayerObj.CopperThickness / 10000) + ', ';If LayerObj.Dielectric.DielectricType <> eNoDielectric ThenBeginResult := Result + ConvertDielectricTypeTOString(LayerObj.Dielectric.DielectricType) + ', ' +LayerObj.Dielectric.DielectricMaterial + ', ' + FloatToStr(LayerObj.Dielectric.DielectricHeight / 10000) + ', ' +FloatToStr(LayerObj.Dielectric.DielectricConstant);End;LayerObj := yerStack.NextLayer(LayerObj);If LayerObj <> Nil ThenLayerID := yerIDElseLayerID := eNoLayer;End; {..............................................................................}{..............................................................................}Procedure FetchLayersInformation;VarBoardHandle : IPCB_Board;Str : String;Filename : String;OutFile : TextFile;Layer : TLayer;ReportDocument : IServerDocument;BeginBoardHandle := PCBServer.GetCurrentPCBBoard;If BoardHandle = Nil ThenBeginShowError('Current document is not PCB document');Exit;End;Str := 'Layer, Name, Material, Cu Thickness, Dielectric Material, type, constant, height ' + #13#10;Layer := MinLayer;RepeatStr := Str + GetLayerInfo(BoardHandle, Layer) + #13#10;Until Layer = eNoLayer;FileName := ChangeFileExt(BoardHandle.FileName, '') + '_LayerRpt.cvs';TryAssignFile(OutFile, Filename);Rewrite(OutFile);Write(OutFile, Str);FinallyCloseFile(OutFile);End;ReportDocument := Client.OpenDocument('Text', FileName);If ReportDocument <> Nil ThenClient.ShowDocument(ReportDocument);End; {..............................................................................}{..............................................................................}。