1 2 First Previous 16 Replies Latest reply on Dec 19, 2013 4:55 PM by kendall_hiles

    Problem in placing TestPoints

    Head1

      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

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

        1 2 First Previous