Using the Scripting Interface with Visual Basic: Examples
Examples are provided below of using the Scripting Interface with Visual Basic in eCADSTAR Library Editor, eCADSTAR Schematic Editor and eCADSTAR PCB Editor. To download examples of VBA macros in Excel, click: Scripting Examples. For a specified design, these provide a list of components and their associated parts. In the downloaded data, execute a file in the Excel folder. In the displayed Excel document, click Get Component List to browse to a .pdes or .sdes design file.
To Display All Part Properties in a Library
Module Module1
Sub Main()
Dim LibraryPath As String
DesignPath = "C:/Users/Public/eCADSTAR/eCADSTAR 2021.0/Library"
Dim App As Object
App = CreateObject("eCADSTAR.LibraryEditor.Application")
App.OpenLibrary(LibraryPath)
For i = 1 To App.Library.Parts.Count
Dim Part As Object
Part= App.Library.Parts(i)
For j = 1 To Part.Properties.Count
Dim Prop As Object
Prop =Part.Properties(j)
Console.WriteLine(Prop.Name + " : " + Prop.Value)
Next
Next
App.Quit()
End Sub
End Module
To Display All Sheet Properties in a Schematic Design
Module Module1
Sub Main()
Dim DesignPath As String
DesignPath = "C:/Users/Public/eCADSTAR/eCADSTAR 2019.0/Designs/DIY_Training/SCH/DIY_Training/DIY_Training.sdes"
Dim App As Object
App = CreateObject("eCADSTAR.SchematicEditor.Application")
App.OpenDesign(DesignPath)
For i = 1 To App.Design.Sheets.Count
Dim Sheet As Object
Sheet = App.Design.Sheets(i)
Sheet.Open()
Dim Props As Object
Props = Sheet.Properties
For j = 1 To Props.Count
Dim Prop As Object
Prop = Props(j)
Console.WriteLine(Prop.Name + " : " + Prop.Value)
Next
Sheet.Close()
Next
App.Quit()
End Sub
End Module
To Display All Component Properties in a PCB Design
Module Module1
Sub Main()
Dim DesignPath As String
DesignPath = "C:/Users/Public/eCADSTAR/eCADSTAR 2019.0/Designs/DIY_Training/PCB/Design9.pdes"
Dim App As Object
App = CreateObject("eCADSTAR.PCBEditor.Application")
App.OpenDesign(DesignPath)
For i = 1 To App.CurrentDesign.Components.Count
Dim Component As Object
Component = App.CurrentDesign.Components(i)
For j = 1 To Component.Properties.Count
Dim Prop As Object
Prop = Component.Properties(j)
Console.WriteLine(Prop.Name + " : " + Prop.Value)
Next
Next
App.Quit()
End Sub
End Module
