PutUserLayerGfx component argument set to Nothing does not work in Microsoft Visual Basic

Discussion created by mgeisler on May 12, 2014
Latest reply on Aug 26, 2014 by mgeisler

Like • Show 0 Likes0
Comment • 24

I am using the PutUserLayerGfx Method in my Microsoft Visual Basic 2010 program and I do not want the graphics to be attached to a component so I set the argument to Nothing.

From the automation reference:

The component (Component) to which this user layer graphics is added. Specify Nothing if

the element is not part of a component. Note that, VBScript requires that you specify the

object or Nothing as an argument.

When I run the script, I get a type mismatch error:

System.Runtime.InteropServices.COMException was unhandled

ErrorCode = -2147352571

Message=Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))

Source = Microsoft.VisualBasic

It works fine if I attach it to a component object, but does not recognize "Nothing" as an argument.

Outcomes

24 Replies

andrew_french May 14, 2014 12:53 PM
VB.net is not the same as vbscript so you might be able to just omit entering anything since the default value is null for no component.
Like • Show 0 Likes0
Actions
mgeisler @ andrew_french on May 14, 2014 12:56 PM
Tried leaving the argument blank but with the same results.
Like • Show 0 Likes0
Actions
andrew_french @ mgeisler on May 14, 2014 1:04 PM
This doesn't work?

DocObj.PutUserLayerGfx((uLayer, gWidth, nPts, ArrayPts)
Like • Show 0 Likes0
Actions
mgeisler @ andrew_french on May 14, 2014 1:07 PM
No. The component argument is not an option, it is required. That is why the automation reference says to put in Nothing if you don't want it to be attached to a component.
Like • Show 0 Likes0
Actions
andrew_french @ mgeisler on May 14, 2014 1:25 PM
Usage

Document.PutUserLayerGfx(ByVal pUserLayer As IMGCPCBUserLayer ,
ByVal dGraphicsWidth As Double ,
ByVal nPnts As Long , pSafeArrayOfPnts As Variant ,
[ByVal bFilled As Boolean = False] ,
[ByVal pComponent As IMGCPCBComponent] ,
[ByVal eUnit As EPcbUnit = epcbUnitCurrent]) As IMGCPCBUserLayerGfx

hmm, you are correct, won't work for me either. I was always under the impression that the arguments in brackets [ ] were optional to specify.

well I get a slightly different result in C# by specifying null I get the error "Could not covert argument 1 for call to PutUserLayerGfx" which is basically the same problem I am having with PutObstruct which I have another thread open on...

I guess at the very least my problem appears to be consistent...
Like • Show 0 Likes0
Actions
kendall_hiles @ andrew_french on May 14, 2014 1:59 PM
im not on my computer but try wrapping it with a transaction start and end.
Like • Show 0 Likes0
Actions
andrew_french @ kendall_hiles on May 15, 2014 5:13 AM
things I learned to make this work

if you're copying an existing user layer graphic that is currently stored in MGCPCB.UserLayerGfxs userGfxs

int nPts = userGfx.Geometry.PointsArray.Length /3;
Each point has 3 entries in the array (X, Y, R) so you have to divide by 3 to get the number of points. I was originally just taking the length which isn't going to work.

object pSafeArrayOfPnts = userGfx.Geometry.PointsArray;
I was defining my pSafeArrayOfPnts as a var previously which wasn't working, switched to object and things started working for me.

The transaction start and end didn't help any at all for me, maybe it will help mgeisler though. We were having different issues.

Now that I have the arguments formatted correctly, I did test leaving out the arguments with brackets [] and the code did work in C#.
Like • Show 0 Likes0
Actions
Patrick.Cashman May 19, 2014 11:41 AM
If you use this function in Expedition, the argument is required:

ulgfx = pcbdoc.PutUserLayerGfx(ulr, 0, 1+ubound(ptary, 2), ptary, false, nothing)

In Fablink and Drawing Editor, there is no 'component', so you can omit the argument:

ulgfx = fabdoc.PutUserLayerGfx(ulr, 5, 5, ptary, false, , 0)

This is using VB.net, so there may be differences with VBA. The COM object reference is the same though, so I have been under the impression that it works similarly.

mgeisler, perhaps you could post the code you are using. There may be some other problem with it.
Like • Show 0 Likes0
Actions
mgeisler @ Patrick.Cashman on Aug 5, 2014 5:04 AM
Back at it again, but this time with PutTrace, which also requires 'Nothing' to be in the arguments. I have wrapped it in a transaction but with the same results. I tried doing a FindComponent method with an erroneous refdes to return Nothing to an object variable, but that variable didn't work either when I put it in the PutTrace method arguments. I also tried Dim nullObj as Object = Nothing, and Dim nullObj = Nothing, and Dim nullObj as New Object, but none of these worked either. I keep getting the Type Mismatch error. Somehow I need to find a way to set a variable to equal the 'Nothing' that the Mentor PutUserLayerGfx and PutTrace methods will accept as the correct type of object.
Like • Show 0 Likes0
Actions
peter.kurlak @ mgeisler on Aug 5, 2014 9:12 AM
Without confirming this, try Type.Missing
Like • Show 0 Likes0
Actions
mgeisler @ peter.kurlak on Aug 5, 2014 9:20 AM
Negative. Did not work.
Like • Show 0 Likes0
Actions

peter.kurlak @ mgeisler on Aug 5, 2014 9:43 AM

Did you try just Nothing? This works for me:

PutTrace(1, myNet, 10, 2, pointsArray, Nothing, MGCPCB.EPcbAnchorType.epcbAnchorNone, MGCPCB.EPcbUnit.epcbUnitCurrent)

Actions

mgeisler @ peter.kurlak on Aug 5, 2014 9:54 AM
Just using Nothing and getting the type mismatch is what started this discussion.
I tried the following with continued negative results:

trcObj = pcbDoc.PutTrace(6, netObj, 25.0, 2, pntsArr,Type.Missing, 0, 5)

and
trcObj = pcbDoc.PutTrace(6, netObj, 25.0, 2, pntsArr,Nothing, 0, 5)
Like • Show 0 Likes0
Actions
peter.kurlak @ mgeisler on Aug 5, 2014 10:10 AM
Which version of Expedition? I'm on 7.9.5
Like • Show 0 Likes0
Actions
mgeisler @ peter.kurlak on Aug 5, 2014 10:13 AM
I am running Expedition EE7.9.4
Like • Show 0 Likes0
Actions
kendall_hiles @ mgeisler on Aug 5, 2014 11:29 AM
You forgot the SET

set trcObj = pcbDoc.PutTrace(6, netObj, 25.0, 2, pntsArr,Nothing, 0, 5)
Like • Show 0 Likes0
Actions
kendall_hiles @ kendall_hiles on Aug 5, 2014 11:32 AM
Download AATK and look at the example scripts. A good start to figure out what is wrong is to look at a similar script that works..
Like • Show 0 Likes0
Actions
peter.kurlak @ kendall_hiles on Aug 5, 2014 11:52 AM
He's using VB.NET, not VBScript
Like • Show 0 Likes0
Actions
peter.kurlak @ mgeisler on Aug 5, 2014 11:59 AM
Are you able to paste all of your code? The ONLY thing that changes when the code works and when it doesn't is you replace Nothing with objComp? The layout remains the same and the way you're obtaining the points array is constant?
Like • Show 0 Likes0
Actions
mgeisler @ peter.kurlak on Aug 5, 2014 12:05 PM
If I set compObj to an existing component and use that in the Component argument in the PutUserLayerGfx method, it works fine and adds it to the component. If I replace compObj with Nothing, I get the type mismatch error. Everything else is unchanged.
Like • Show 0 Likes0
Actions

peter.kurlak @ mgeisler on Aug 8, 2014 8:06 AM

This code works for me on a design with at least 1 net:

Module Module1
 
    Sub Main()
        Dim pcbApp As MGCPCB.Application
        pcbApp = GetObject(, "MGCPCB.ExpeditionPCBApplication")
 
        Dim pcbDoc As MGCPCB.Document
        pcbDoc = pcbApp.ActiveDocument
        If ValidateDocument(pcbDoc) Then
            Dim pointsArray, pcbNet
            pointsArray = pcbApp.Utility.CreateRectXYR(0, 0, 100, 10)
 
            For Each pcbNet In pcbDoc.Nets
                Dim pcbTrace
                pcbTrace = pcbDoc.PutTrace(1, pcbNet, 10, 2, pointsArray, Nothing,
                                           MGCPCB.EPcbAnchorType.epcbAnchorNone,
                                           MGCPCB.EPcbUnit.epcbUnitCurrent)
                Exit For
            Next
        End If
    End Sub
 
    Function ValidateDocument(document As MGCPCB.Document)
        Dim key
        key = document.Validate(0)
 
        Dim licenseServer
        licenseServer = New MGCPCBAutomationLicensing.Application()
 
        Dim licenseToken
        licenseToken = licenseServer.GetToken(key)
 
        Try
            document.Validate(licenseToken)
            ValidateDocument = True
        Catch ex As Exception
            ValidateDocument = False
        End Try
 
    End Function
 
End Module

Actions

mgeisler @ peter.kurlak on Aug 26, 2014 1:02 PM
See attachment for what your code looks like when I plug it into Microsoft Visual Basic 2010.
Attachments
- ExpPutTraceSource_1.JPG147.3 KB
Like • Show 0 Likes0
Actions
peter.kurlak @ mgeisler on Aug 26, 2014 1:10 PM
Like • Show 0 Likes0
Actions
mgeisler @ peter.kurlak on Aug 26, 2014 1:38 PM
Awesome Peter! That was the key.
Like • Show 0 Likes0
Actions

PutUserLayerGfx component argument set to Nothing does not work in Microsoft Visual Basic

Outcomes

Attachments

Related Content

Recommended Content