AnsweredAssumed Answered

Problem in placing TestPoints

Question asked by Head1 on May 21, 2010
Latest reply on Dec 19, 2013 by kendall_hiles

Hello everybody.

     I tried lately to write a small script that placesTestpoints in an horizontal line.

     Due to  lack of knowledge - it does not work.

 

     When it comes to line :

 

     Set My_Tp = My_Board.PutTestPoint(C_name, False, x, y, 0, Curr_net.name, , , 1, , , 0)

 

     I get an error message: Object required.

 

     Thanks in advance,

 

                  Head1

 

' --------------------------------------------------------------------------

Private Sub Run_but_Click()

Const Dx = 2.2                  ' Distance among Testpoints
Const TP_Cell = "TP36"    ' TestPoint Cell name
Const y = 0                       ' Y coordinate for TestPoint

 

Dim x As Single
Dim All_nets
Dim Curr_net
Dim My_Tp

 

  x = 0                  ' X coordinte for TestPoint
 
  Set All_nets = My_Board.Nets  ' My_Board is the document, and is already defined.


For each Curr_net in All_nets
  If curr_net.RequiredNumberOfTestPoints=1 then
           x=x+2    ' Increment x coordinate for testPoint
           Set My_Tp = My_Board.PutTestPoint(TP_Cell, False, x, y, 0, Curr_net.name, , , 1, , , 0)
  End if 
Next
   
End Sub

' --------------------------------------------------------------------------

Outcomes