AnsweredAssumed Answered

Bug in assigning net name to Conductive area

Question asked by Head1 on Feb 12, 2013
Latest reply on Feb 14, 2013 by Head1

Hello everybody,

 

I try to write a  small program, which assigns a net to all conductive areas on layer 1.

 

' =============================================

Private Sub Assing_net_to_conductiveareas()

    Dim All_ca           ' All conductive areas

    Dim Curr_ca        ' Current conductive area

    Dim net1              ' The current net

 

    ' My_Board  is the document. defined earlier.

 

     Set net1 = My_Board.FindNet("GND")    ' Such a net exists

 

     Set All_ca = My_Board.ConductiveAreas(epcbSelectAll, 1)

 

     For Each Curr_ca In All_ca

         Curr_ca.net = net1

     Next

 

End Sub

' ============================================

 

On  red line I get an error:  “ Object doesn’t support property or method”

 

Do I have any syntax error ?

Is the property All_ca.net   read only ?   If yes - how can I assign a net

  to conductive areas with automation ?

 

   Thanks for any help,

 

          Head1.

 

 

 

 

Outcomes