Vb Script File List

[Karl@CP PISTONS]

Is there a way using the script engine to search for a file in multiple directories?  I have this working in the script:

Set FileList = CreateObject("System.Collections.ArrayList")

If FSO.FileExists(Directory & JobNumber & ".MCAM") Then '// File found
    FileList.add (Directory & JobNumber & ".MCAM")
End If

But I really need it to search the sub folders and return all the files found. Is this possible?

 

Thanks in advance.

[Zaffin_D]

Hi,

I know nothing about the capabilities of the VB script dll.

But, if you swapped over to a NET-Hook this is easily done with the EnumerateFiles method and Linq.

            var mastercamExtentions = new List<string> { ".MCAM-CONTROL",
                                                         ".MCAM-MMD",
                                                         ".MCAM-LMD",
                                                         ".MCAM-RMD",
                                                         ".MCAM-WMD",
                                                         ".PST",
                                                         ".PSB",
                                                         ".PSM",
                                                         ".MCPOST",
                                                         ".MCBPOST",
                                                         ".MCDPOST",
                                                         ".MACHINE",
                                                         ".MCAM"
                                                        };

            var allFiles = Directory
                           .EnumerateFiles(folderPath, "*", SearchOption.AllDirectories)
                           .Where(file => mastercamExtensions.Any(file.ToUpper().EndsWith))
                           .ToList();

You can read more about this here.
   

[Karl@CP PISTONS]

I did switch this over to .net and a custom c-hook. Works great,

How can I add this c-hook (or any custom one) onto the toolbar? I looked in the commands from  add-ins. List shows all the Mastercam C-Hooks but none of the custom c-hooks? They are all in the mastercam chook folder with the corresponding FT file??

[Roger Martin from CNC Software]

19 hours ago, Karl@CP PISTONS said:

I looked in the commands from  add-ins.

What you're seeing in that list are special Add-Ins already "known" by Mastercam.

You let Mastercam know about your Add-In with a (.FT) Function Table file.

Now in Options, select in the Choose command from:

Commands Not in the Ribbon -or- All Commands

If your FT is proper, your add-in TipString will appear in the command list.

If not, check the Mastercam Log as it will complain if something is incorrect in the .FT file.

 

 

 

[Karl@CP PISTONS]

Sorry, I must me missing something. Only some of the c-hooks supplied by CNC systems show in the list, and NONE of mine  Can I just add the info from the FT file into the MC_chooks.ft file?

[Roger Martin from CNC Software]

17 hours ago, Karl@CP PISTONS said:

Can I just add the info from the FT file into the MC_chooks.ft file?

NO - Do not do that!

You create your own separate .FT file for your C-Hook (or NET-Hook) Add-In. 

Something like this ->

*Shown below is a sample FT for a C-Hook type Add-In.

The .FT for a NET-Hook Add-In would differ in the fact that it would have a FUNCTION NET section where you declare the entry point method and the tip-string and icons resources and the addition of a dnRES_NAME line where you would specify the "name" of the Resources in the .NET Assembly where Mastercam is to look to find those "resource" items.

# MyAwesomeAddIn.FT
#
# Application name should be uniquely named and be specific 
# to your company and/or product.
# 3rd party add-ins should NOT make this "Mastercam"!
APPLICATION "MyAwesomeAddIn_CP_PISTONS"

# Point to the locations of your function and resource libraries.
FUNC_DLL "chooks\MyAwesomeAddIn.dll"
RES_DLL    "chooks\MyAwesomeAddIn.dll"

CATEGORY "CP PISTONS Add-Ins"

# Specify the name of your entry point function,
# the Resource IDs of the tool tip string and 
# the small and large icon images for your add-in.
# The small icon must be a 16x16 pixel PNG image.
# The large icon must be a 32x32 pixel PNG image.
FUNCTION CPP "m_main"
    TIP  1
    SPNG 18001 
    LPNG 18002    
END_FUNCTION
 

 

Edited May 1, 2019 by Roger Martin from CNC Software

[Karl@CP PISTONS]

Yes my FT file looks similar ( also similar to existing .net ft files i.e. atp.ft which DOES show in the all commands list ) here is in entirety:

###############################################################################
# NET-Hook function table            
###############################################################################
#
# Name        : UHM_Open.ft
# NETHook     : UHM_Open.dll
# Date        : 
# Author    :  K Stickel
# Notes        : Rename all YOUR_NETHOOK with the name of this project
# Language    : VB.NET
#
###############################################################################

#######################################
# ASSIGN A UNIQUE NAME FOR THIS NETHOOK
#######################################
APPLICATION "UHM_Open"

######################
# NET-Hook PATHS
######################
#
# Update paths below to match your install path and project name.
# you can use folders if you wish to have your NETHook in a CHooks sub folder
# just make sure to edit this path to match.
FUNC_DLL   "CHOOKS\UHM_Open.dll"
RES_DLL    "SAME"
dnRES_NAME "UHM_Open.NETHook"
CATEGORY   "CP-Custom"

##############################################################################
# Public functions here
##############################################################################
#
# The main system entry point
FUNCTION NET "Run"
    dnSPNG "Run16"
    dnLPNG "Run24"
    dnTIP  "UHM Open"
END_FUNCTION

#
# EOF
 

[Roger Martin from CNC Software]

Check the Mastercam Log just after starting Mastercam.

There will be complaints in there if Mastercam could not find the specified Resources in your DLL.

If an Add-In is not showing up when you have an FT for it, that's that first place to look.

[Mick George]

Your FT entry dnTIP "UHM Open" has a space, this might cause a problem.

[Karl@CP PISTONS]

First off thanks all of the above who replied and helped out. The  icons showed up in the all commands section now..

But,  how do I get tMastercam to show the name as it is only just an icon without a description? Also when they are added to the toolbar the tool tip does not show up on mouse hover, should it?

 

 

[Roger Martin from CNC Software]

On 5/1/2019 at 10:28 AM, Karl@CP PISTONS said:

dnTIP  "UHM Open"

If you're not seeing the "Tip String Text" , there's something wrong with this Resource item. What appears between the "quotes" for the dnTip in the FT is the name of the String Resource item in here -> dnRES_NAME "UHM_Open.NETHook"

[Karl@CP PISTONS]

This place is the best. Thanks for all the help.

All fixed and looking good.