6 Replies Latest reply on Feb 14, 2013 3:23 AM by Head1

    Bug in assigning net name to Conductive area


      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



      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,