1 Reply Latest reply on Jul 6, 2011 1:38 AM by Satoru

    Cannot assign a thermal pad to Padstack?

    Joey

      In the padstacks editor GUI, I can associate the thermal pad “TH121x146_10_15B” to Padstacks “PAD45_80OB20DPST” manually, and can save the database successfully.

      Now I want to assign the thermal pad “TH121x146_10_15B” to Padstacks “PAD45_80OB20DPST” using Automation script.

      snap0133.jpg

       

      But I always get the error information: "The Plane Thermal is invalid. Only Thermal Pad types can be assigned as a Plane Thermal Pad"

      snap0134.jpg

       

      I attached the test library and my script. I don’t know how to fix that error. Please help.

       

      ‘==========================VBS Script Start====================================

      Option Explicit

       

      On Error Resume Next

       

      'Load Automation Libraries

      Scripting.AddTypeLibrary( "LibraryManager.LibraryManagerApp" )

      Scripting.AddTypeLibrary( "MGCPCBLibraries.PadstackEditorDlg") 

       

      Dim app 

      Dim libObj

      Dim objPadstackEd, objPadEdDB

      Dim objThermalPad, objPadstack

       

      Set app = GetObject(, "LibraryManager.Application")

      Set libObj = app.ActiveLibrary

      Set objPadstackEd = libObj.PadstackEditor

      Set objPadEdDB = objPadstackEd.ActiveDatabase

       

      Set objThermalPad=objPadEdDB.FindPad("TH121x146_10_15B")

      Set objPadstack = objPadEdDB.FindPadstack("PAD45_80OB20DPST")

       

      Set objPadstack.Pad(epsdbPadLayerPlaneThermal) = objThermalPad 'epsdbPadLayerPlaneThermal 

      If (Err) Then

               msgbox  err.description

      End If

       

      Set objPadEdDB = Nothing

      objPadstackEd.quit          

      Set objPadstackEd = Nothing

      Set libObj=Nothing

       

      ‘==========================VBS Script End====================================