AnsweredAssumed Answered

What is wrong with this code?

Question asked by wayne_5757 on Jun 21, 2019
Latest reply on Jun 28, 2019 by wayne_5757

It fails with " Error:0x800a000d 'Type mismatch: 'PutPlaneShape'' "

 

layerInt = 1
Set netObj = pcbDocObj.FindNet("GND")

 

ReDim pntsArr(2, 4 )
pntsArr(0,0) = -500.0 : pntsArr(1,0) = 0.0 : pntsArr(2,0) = 0
pntsArr(0,1) = -1000.0 : pntsArr(1,1) = 0.0 : pntsArr(2,1) = 0
pntsArr(0,2) = -1000.0 : pntsArr(1,2) = 500.0 : pntsArr(2,2) = 0
pntsArr(0,3) = -500.0 : pntsArr(1,3) = 500.0 : pntsArr(2,3) = 0
pntsArr(0,4) = -500.0 : pntsArr(1,4) = 0.0 : pntsArr(2,4) = 0
numPntsInt = UBound(pntsArr, 2) + 1

 


Call pcbDocObj.PutPlaneShape(layerInt,  numPntsInt, pntsArr, netObj, _
         false, epcbHatchDefault, 0, 0, "None", epcbUnitCurrent)

Outcomes