Xform project

[KRESIMIR]

Hi all!

Can enyone help me with Xform Project quastion?

How can Xform Project all entities in level 2 (arc, line ..) onto surfaces in level 5 ( visual basic 2010 )??

(move - not copy)

 

Thanks!

 

Kresimir

[Roger Martin from CNC Software]

You can call the XForm_Project function within Mastercam,

works just like if the uer had selected the command.

 

Add a Class to your C# Project

[ C# <-> VB convert ]

 

using System;
using System.Runtime.InteropServices;

namespace MyProject
{
   // Declare the P/Invoke signatures
   class Interop
   {                
       // extern "C" __declspec(dllexport) int do_xform_project (int dummy)
       [DllImport("McCore.dll", EntryPoint = "do_xform_project", CharSet = CharSet.Auto)]
       public static extern int XformProject(int dummy);
   }
}

 

 

And make the call, like this ->

 

int rv = MyProject.Interop.XformProject(0);

[rocheey1]

Windows 7 32bit - Tested under Mcx7/VS2010 and Mcx6/VS2010

 

When running the above code in the IDE, it runs OK, but after completion, the IDE gives a PInvoke Error (see image)

 

Below is the complete (short) VB source:

 

Imports System.Runtime.InteropServices '
Imports System
Imports Mastercam.App
Imports Mastercam.App.Types
Namespace MyExample
Public Class NetHookAppExample
 Inherits NetHook2App
 Public Overrides Function Run(ByVal param As Integer) As MCamReturn
	 Dim rv As Integer = Interop.XformProject(0)
	 Return Mastercam.App.Types.MCamReturn.NoErrors
 End Function
End Class
' Declare the P/Invoke signature
Class Interop
 ' extern "C" __declspec(dllexport) int do_xform_project (int dummy)
 <DllImport("McCore.dll", EntryPoint:="do_xform_project", CharSet:=CharSet.Auto)> _
 Public Shared Function XformProject(ByVal dummy As Integer) As Integer
 End Function
End Class
End Namespace

 

Is there something else I should be doing ?

[Roger Martin from CNC Software]

Try adding the the CallingConvention shown below...

 

' Declare the P/Invoke signatures

Class Interop

' extern "C" __declspec(dllexport) int do_xform_project (int dummy)

<DllImport("McCore.dll", EntryPoint := "do_xform_project", CharSet := CharSet.Auto, CallingConvention := CallingConvention.Cdecl)> _

Public Shared Function XformProject(dummy As Integer) As Integer

End Function

End Class

[rocheey1]

Yeaaaah! Works like a charm!

 

Thank you, Roger.

[ipf]

Hi! I'm exploring the capabilities of Invoke to solve a task in my Nethook App.

I'd like to ask why do you know that "do_xform_project" is the EntryPoint for this function in the McCore.dll. Is there a way to explore the dll to get this?

Thank you in advance!