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
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,