caidiot.blogspot.com
CA Idiot: Convert net labels to text Labels and vice versa
http://caidiot.blogspot.com/2011/07/covert-net-labels-to-text-labels-and.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Thursday, July 14, 2011. Convert net labels to text Labels and vice versa. Click on a text label and it will be converted to a net label, click on a text label on it will be converted to a net label. If SchServer Is Nothing Then Exit Sub. Set CurrentSheet = SchServer.GetCurrentSchDocument. If CurrentSheet is Nothing Then Exit Sub. Set Alocation = CurrentSheet.Location. Call SchServ...
caidiot.blogspot.com
CA Idiot: PCB Filter
http://caidiot.blogspot.com/2013/07/pcb-filter.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Friday, July 12, 2013. Select a group of components with the traces and vias. Not( (ObjectKind = 'Component') And IsSelected. In to the PCB Filter panel. Below in the Object passing the filter check the "Select" box. And in the Objects not passing the filter check the "Deselect" and choose "Normal" in the drop down box. View my complete profile. PCB Layout and Design in San Diego.
caidiot.blogspot.com
CA Idiot: March 2012
http://caidiot.blogspot.com/2012_03_01_archive.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Monday, March 19, 2012. Net Classes and the members. Iterate through the net classes and the members but skip pass any net class that begins with "All". Checks if the current document is a PCB document. Set Board = PCBServer.GetCurrentPCBBoard. If Board is Nothing Then Exit Sub. Iterator = Board.BoardIterator Create. Set NetClass = Iterator.FirstPCBObject. Subscribe to: Posts (Atom).
caidiot.blogspot.com
CA Idiot: May 2011
http://caidiot.blogspot.com/2011_05_01_archive.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Thursday, May 26, 2011. Toggle all component designators on PCB from shown to hidden. Set Board = PCBServer.GetCurrentPCBBoard. If Board is Nothing Then Exit Sub. Iterator = Board.BoardIterator Create. Set Component= Iterator.FirstPCBObject. While Not(Component is Nothing). Component.NameOn = Not(Component.NameOn). Set Component= Iterator.NextPCBObject. Tuesday, May 24, 2011. Frida...
caidiot.blogspot.com
CA Idiot: July 2013
http://caidiot.blogspot.com/2013_07_01_archive.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Friday, July 12, 2013. Select a group of components with the traces and vias. Not( (ObjectKind = 'Component') And IsSelected. In to the PCB Filter panel. Below in the Object passing the filter check the "Select" box. And in the Objects not passing the filter check the "Deselect" and choose "Normal" in the drop down box. Subscribe to: Posts (Atom). View my complete profile.
caidiot.blogspot.com
CA Idiot: Clone a vias net to another via
http://caidiot.blogspot.com/2011/09/clone-vias-net-to-another-via.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Thursday, September 15, 2011. Clone a vias net to another via. Set Board = PCBServer.GetCurrentPCBBoard. If Board is Nothing Then Exit Sub. Set ObjVia = Board.GetObjectAtCursor(MkSet(eViaObject). AllLayers,"Select Via to Clone"). NetIterator = Board.BoardIterator Create. Set NetFound = NetIterator.FirstPCBObject. While FoundIt = 0 AND Not (NetFound Is Nothing). PCB Layout and Desig...
caidiot.blogspot.com
CA Idiot: List of Altium Shortcut keys
http://caidiot.blogspot.com/2011/07/list-of-altium-shortcut-keys.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Friday, July 22, 2011. List of Altium Shortcut keys. Http:/ wiki.altium.com/display/ADOH/Editor Shortcuts. PCB Engineer who still uses Altium Designer even after the long wait for AD10 (now AD13, AD14.) which did very little to improve the PCB design portion. This is my online notebook for small scripts that I use to write more complicated scripts. View my complete profile.
caidiot.blogspot.com
CA Idiot: September 2011
http://caidiot.blogspot.com/2011_09_01_archive.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Wednesday, September 21, 2011. Move the designator where you click the mouse. Click on the component and then click at the location where the designator is to be and it moves the designator to that location. Set Board = PCBServer.GetCurrentPCBBoard. If Board is Nothing Then Exit Sub. While Board.ChooseLocation(x,y, "Click Via To Change") = True. If Not(Comp is Nothing) Then. While ...
caidiot.blogspot.com
CA Idiot: Net Classes and the members
http://caidiot.blogspot.com/2012/03/net-classes-and-members.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Monday, March 19, 2012. Net Classes and the members. Iterate through the net classes and the members but skip pass any net class that begins with "All". Checks if the current document is a PCB document. Set Board = PCBServer.GetCurrentPCBBoard. If Board is Nothing Then Exit Sub. Iterator = Board.BoardIterator Create. Set NetClass = Iterator.FirstPCBObject. View my complete profile.
caidiot.blogspot.com
CA Idiot: July 2011
http://caidiot.blogspot.com/2011_07_01_archive.html
Altium Designer Script Information in VB for PCB Layout and Schematic Capture by Bill Smock from Tru Designs, San Diego, CA. Friday, July 22, 2011. List of Altium Shortcut keys. Http:/ wiki.altium.com/display/ADOH/Editor Shortcuts. Thursday, July 14, 2011. Convert net labels to text Labels and vice versa. Click on a text label and it will be converted to a net label, click on a text label on it will be converted to a net label. If SchServer Is Nothing Then Exit Sub. If (HitTest.HitTestCount 0) Then.