Add Altium Delphi scripts

[eda-utils.git] / scripts / altium / pcb-resize-refdes-selection.pas

diff --git a/scripts/altium/pcb-resize-refdes-selection.pas b/scripts/altium/pcb-resize-refdes-selection.pas
new file mode 100644 (file)
index 0000000..63c4f5c
--- /dev/null
+++ b/scripts/altium/pcb-resize-refdes-selection.pas
@@ -0,0 +1,33 @@
+// Summary: Change reference designator text size of the selected component.\r
+\r
+Procedure PCB_ResizeRefDes_Selection;\r
+Var\r
+    Board     : IPCB_Board;\r
+    Comp      : IPCB_Component;\r
+    x,y,      : TCoord;\r
+    \r
+Begin\r
+    Pcbserver.PreProcess;\r
+\r
+    Try\r
+        Board := PCBServer.GetCurrentPCBBoard;\r
+        If Not Assigned(Board) Then\r
+        Begin\r
+            ShowMessage('The Current Document is not a Protel PCB Document.');\r
+            Exit;\r
+        End;\r
+    \r
+        Board.ChooseLocation(x,y, 'Choose Component');\r
+        Comp := Board.GetObjectAtXYAskUserIfAmbiguous(x,y,MkSet(eComponentObject),AllLayers, eEditAction_Select);\r
+        If Not Assigned(Comp) Then Exit;\r
+        \r
+        // Call resize function\r
+        ResizeRefDes(Comp);\r
+\r
+    Finally\r
+        Pcbserver.PostProcess;\r
+        Client.SendMessage('PCB:Zoom', 'Action=Redraw', 255, Client.CurrentView);\r
+    End;\r
+    \r
+   \r
+End;\r