michael.weber

Problem with IsPointInside in Windows 7 / 64bit Expedition 7.9.4

Discussion created by michael.weber on May 2, 2013
Latest reply on May 3, 2013 by michael.weber

Hi All,

 

I have a little script, that check, if is a via inside a pad. On Windows XP (32Bit) my script works well:

 

Code Snippet:

 

Set pads = pcbDoc.PadstackObjects(epcbPadstackObjectPin,epcbSelectPlaced)

Set Vias = pcbDoc.Vias(epcbSelectAll)

    i = 0

    'lege Grösse des Arrays fest

    ReDim viaarray(3, Vias.Count)

    'collect Via Coordinates and drillsizes

    For Each via In Vias

        x = FormatNumber(via.PositionX,PRECISION)

        y = FormatNumber(via.PositionX,PRECISION)

        viaarray(0, i) = x

        viaarray(1, i) = y

        viaarray(2, i) = via.holes(1).DrillSize

        viaarray(3, i) = via.Name

        i = i + 1

    Next

    i = 0

    For Each pad In pads

        i = i + 1

        If pad.holes.Count = 0 Then        'pcbPinClassSMD kein Loch = SMD ?

            For j = 0 To UBound(viaarray, 1)

 

                x = viaarray(0, j)

                y = viaarray(1, j)

                d = viaarray(2, j)

                ViaName = viaarray(3, j)

 

                If pad.IsPointInside(x, y) Then

...

 

Now it seems, that IsPointInside doesn't works anymore. Has anyone the same problem ?

 

BR Michi

Outcomes