Kerry I thought you had to download the vba from autodesk.
I had so much code to convert from vba to C# I wrote this
[CommandMethod("VtoC")]
public static void VbaToCsharp()
{
MessageBox.Show("starting");
// the file to read from.
string path = @"C:\Documents and Settings\Yourname\Desktop\VtoC.txt";
string readText = File.ReadAllText(path);
readText = readText.Replace("Option Explicit", "");
readText = readText.Replace("Exit Sub", "return;");
readText = readText.Replace("End Sub", "} //end");
readText = readText.Replace("End Function", "} //end");
readText = readText.Replace("Private", "private");
readText = readText.Replace("Public", "public");
readText = readText.Replace("End If", "}");
readText = readText.Replace("()", "()" + Environment.NewLine + "{");
readText = readText.Replace(" Sub ", "static void ");
readText = readText.Replace(" Function ", "static ");
readText = readText.Replace("If", "if(");
readText = readText.Replace("Then", ")");
readText = readText.Replace("Else", "else" + Environment.NewLine + "{");
readText = readText.Replace("ElseIf", "else if(");
readText = readText.Replace("Select Case", "switch(");
readText = readText.Replace("End Select", "}");
readText = readText.Replace("Case", "case");
readText = readText.Replace("For Each", "foreach (");
readText = readText.Replace(" In ", " in ");
readText = readText.Replace("On Error Resume Next", "");
readText = readText.Replace("Next", "} //next");
readText = readText.Replace("Not", "!");
readText = readText.Replace("While","while");
readText = readText.Replace("Wend", "}");
readText = readText.Replace("'", "//");
readText = readText.Replace("(0)", ".X");
readText = readText.Replace("(1)", ".Y");
readText = readText.Replace("(2)", ".Z");
readText = readText.Replace("String", "string");
readText = readText.Replace("Double", "double");
readText = readText.Replace("AcadBlockReference", "BlockReference");
readText = readText.Replace("False", "false");
readText = readText.Replace("GoTo", "goto");
readText = readText.Replace("On Error GoTo 0", "");
readText = readText.Replace("On Error GoTo Err_Control", "");
readText = readText.Replace("Set", "");
readText = readText.Replace("ThisDrawing.ActiveUCS = CurrentUcs", "");
readText = readText.Replace("Err_Control:", "");
readText = readText.Replace("Err.Clear", "");
readText = readText.Replace("Err.Number", "");
readText = readText.Replace("Resume", "");
readText = readText.Replace("Dim util As AcadUtility", "");
readText = readText.Replace("Set", "");
readText = readText.Replace("AcadLWPolyline", "Polyline");
readText = readText.Replace("AcadAttribute", "Attribute");
readText = readText.Replace("AcadCircle", "Circle");
readText = readText.Replace("AcadLWPolyline", "Polyline");
readText = readText.Replace("AcadLWPolyline", "Polyline");
readText = readText.Replace("Pi ", "Math.PI ");
readText = readText.Replace("Color", "ColorIndex");
readText = readText.Replace("True", "true");
readText = readText.Replace("MsgBox", "MessageBox.Show(");
File.WriteAllText(path, readText);
}
} //end test ////////////////////////////////
To use it you copy some code from vba to notepad and save it on your desktop.
Then run the code. It could do with a lot of work but it does save a little time.
If you copy code directly from vba you can crash.
I can definately see the point made, that is just as easy to rewrite it than convert it.