hexagon logo
Register Sign in
  • Replies 9 replies
  • Subscribers 30 subscribers
  • Views 111 views
  • Users 0 members are here
Options
Related

VB.NET Open Pcdmis with selected program file

chrisryn
I am trying to write an application that will organize our programs by customer. I have everything written and complete but I have one issue when I try to open pcdmis with the selected file loaded, depending on what method i'm using at the time i get the following results

1. Pcdmis opens but the program file doesn't
2. pcdmis opens and brings up the new program dialog box with the program name list in the first textbox
3. my application crashes saying file not found.

I have done this numerous times with other applications and nothing seems to work.

I have tried system.diagnostics.process.start, I have tried the shell command it just doesn't seem to work. It does work if I double click the program file in the explorer app. I have seen other programs similar to this but they don't have source code available. Has any one got this to work in vb.net(not vbscript)? I'm starting to get frustrated as I have tried 36 different ways as of right now. Taking a break and hope some one will have some insight.
  • Please post the code you are using.

    IIRC, there is another thread in here with the exact same issue as you.

    A snippet from one of my VBS: 

    ...
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
PCDPartPrograms.Open objDLG.FileName, "CMM1"
...
  • I can't remember all the different things i have tried but the last two where this. 

    fname = "Y:\" + Label1.Text + "\" + ListBox1.SelectedItem
        Dim cmstart As String
        cmstart = "C:\Program Files (x86)\WAI\PC-DMIS 2012 MR1 (Release)\PCDLRN.exe""" + """" + fname
        Start(cmstart)



    fname = "Y:\" + Label1.Text + "\" + ListBox1.SelectedItem
        Dim cmstart As String
        cmstart = "C:\Program Files (x86)\WAI\PC-DMIS 2012 MR1 (Release)\PCDLRN.exe""" + """" + fname
        Shell(cmstart)


    I have seen the other post and have tried code similiar to what you have. The one question I have is are you using visual studio? If so do you have to have a import command to use the pcdmis commands like what you have?


    Edit: What is the "CMM1" for?
  • Reading through the forums I have tried this 

    PCDApp = CreateObject("PCDLRN.Application")
        PCDPartPrograms = PCDApp.partprograms
        PCDApp.visible = True
        PCDApp.setactive()
        PCDApp.maximize()
        PCDPartPrograms.open(fname, "Machine1")


    pcdmis will open briefly then close. Could me issue be that I don't have pcdmis installed on the machine i develop vb.net on? It will be as soon as my offline seat gets here.
  • This is a simple example of the method I use to start PC-DMIS: 

    PcdApp = CreateObject("PCDLRN.Application")
PcdApp.WaitUntilReady(60)
Threading.Thread.Sleep(2000)


    I'll add other properties like PcdApp.Visible = True after the Thread.Sleep call.
  • I do not use VS/VB on the CMM computers - I code mainly in the internal scripting engine in PC-DMIS or VB script.
    I do have a VS installation on my workstation, but haven't begun fiddling with that yet. I'd like my stuff to be as transparent as possible (ie. not needing extra IDE/compilers) and be able to edit the sources with a texteditor.
  • By the way, did you get PC-DMIS installed on the PC you're developing on? Doing so registers the PC-DMIS type library on your system, making it easy to add a reference in your VS project. You can then add an "Imports PCDLRN" namespace reference if you so desire.

    I would need to test this to be fully certain it would work, but you might also be able to use GetObject with an invalid argument ("" or " ") to get your application to first try connecting to an existing instance of PC-DMIS before creating a new one: 

    PcdApp = GetObject("","PCDLRN.Application")
PcdApp.WaitUntilReady(60)
Threading.Thread.Sleep(2000)


    The more important part of this is the WaitUntilReady and Thread.Sleep methods. If you start addressing properties on your application object before PC-DMIS is really ready, it may ignore the properties or occasionally get confused and start another instance. The WaitUntilReady method provides a flag for PC-DMIS to say it is ready to start responding to automation, and the extra two second sleep provides a bit of extra buffer for slow systems.
  • Ok got it to work. I had to do several things. First thing I had to do was add a reference to interop.pcdlrn.dll to my project.

    Then I added this at the very beginning of my program. 

    Imports PCDLRN
Public Class Form1
    Dim PCDApp As PCDLRN.Application
    Dim pcdpartprograms As PCDLRN.PartPrograms


    Then once program to open is selected I did this. 

    Dim fname As String
        fname = "Y:\" + Label1.Text + "\" + ListBox1.SelectedItem
        PCDApp = CreateObject("PCDLRN.Application")
        PCDApp.WaitUntilReady(60)
        Threading.Thread.Sleep(2000)
        PCDPartPrograms = PCDApp.partprograms
        PCDApp.visible = True
        PCDApp.setactive()
        PCDApp.maximize()
        PCDPartPrograms.open(fname, "Machine1")


    The only issue I have now is that it opens PCDmis then closes then reopens with the part program. I haven't figured out how to keep it from opening first.
  • Did you give the GetObject method instead of CreateObject a try? 

    PCDApp = GetObject("","PCDLRN.Application")


    This might help as your not automatically trying to create a new instance of PC-DMIS each time, but first looking for a running instance to attach to. It's possible this will keep PC-DMIS from disappearing/reappearing.
  • My code will check to see if PC-DMIS is running then close if it is then open new instance with selected program. This is occurring with no DMIS running. I am also trying to figure out how to open a PC-DMIS and automatically show new program dialog box.
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement