2 Replies Latest reply on Feb 20, 2013 5:04 AM by Head1

    Error in defining a round conductive area

    Head1

      Hello everyone,

       

      I tried to write a very small program that places a round conductiveArea in a board.

       

      I probably have a syntax error, because the respond is:  OBJECT REQUIRED.

        ( the error appears in RED line)

       

       

      Private Sub Run_but_Click()

           Dim Arr()
           Dim Cond_Area
           Dim My_net

       

           My_net = My_Board.FindNet("GROUND")

           My_Board.TransactionStart (epcbDRCModeNoneWithBatchQuery)

       

            Arr = My_app.Utility.CreateCircleXYR(18, 35, 2)     ' Board defined in mm
            Set Cond_Area = My_Board.PutConductiveArea(1, My_net, UBound(Arr, 2) + 1, Arr, Nothing, epcbAnchorNone, epcbUnitCurrent)

            My_Board.TransactionEnd 
      End Sub

       

       

      Can anybody  point my mistake ?

       

      Thanks for any help.

       

          Head1.