I defined in my LMC some Parts with a Part Number value and Part Label value different
I want to change
Part Number value must be Part Label value and reverse
How to do this ?
Need a script ?
This is a vb.net example. If you use EFM with vbscript it will be somewhat different. There are examples of how to do it with vbscript in the AATK, if I'm not mistaken. This should give you a decent overview:
I have a module that connects to the library. It declares the variables that will represent partitions, parts, and other library objects. It also has the facility to establish a connection to the parts library database. The relevant parts are these:
Public Module DX_Library_Interface
Public job As String 'this is just the path to the central library .lmc file
Public part_ed_dlg As MGCPCBPartsEditor.PartsEditorDlg
Public pdb_db As MGCPCBPartsEditor.PartsDB
Public partitions As MGCPCBPartsEditor.Partitions
Public partition As MGCPCBPartsEditor.Partition
Public parts As MGCPCBPartsEditor.Parts
Public part As MGCPCBPartsEditor.Part
Public Sub Get_Part_Editor()
job = prj.CentralLibraryPath
pdb_db = part_ed_dlg.OpenDatabaseEx(job, False)
If part_ed_dlg.LockServer() Then
msgbox("Could not lock database for writing")
Public Sub Drop_Part_Editor()
'Close the open library and release hooks
pdb_db = Nothing
part_ed_dlg = Nothing
Then somewhere else in the project I have a subroutine that runs Get_Part_Editor, and does a part number and part name change:
Public Sub set_library_obsolete_parts()
Dim part As MGCPCBPartsEditor.Part
Dim partition as MGCPCBPartsEditor.Partition
partitions = pdb_db.Partitions
For Each partition In partitions
parts = partition.parts
For Each part In parts
If obs_parts.Contains(part.number) Then
part.Number = tmp & "-OBS"
part.Name = tmp & "-OBS"
Retrieving data ...