TurboCAD Forums

The Ultimate Resource for TurboCAD Knowledge

The purpose of these forums is to discuss TurboCAD.  Please keep the discussion of other products to compatibility issues or how the other software’s can be used with TurboCAD.

TC19-64 and Excel2002
Read 3229 times
* July 16, 2012, 09:46:07 AM
creating an .exe to read and write Data from TC to Excel.
Although the Debugger mention error, the .exe runs and works fine.

Using the template VS2010-TC19-64_exe.zip

(Imsigx is already in the template)

In this example TC19-64 and excel2002 is already running.
The TC-tools will be written in the spreadsheet.
This .exe doesn´t make much sense, because VB.net is not able to start the TC-tools. At least I don´t know how to do that.
But the example shows how to bring Data from TC2Excel. Vice versa works also fine.

I had no success to build a .dll. (using GetObject(, "Excel.Application"))

best regards


    Sub Main()
        'Achtung: Debuggmodus funktioniert nicht, gibt fehler bei COM aus
        ' die .exe läuft aber
        Dim tcapp As New IMSIGX.Application
        Dim actdr As IMSIGX.Drawing
        actdr = tcapp.ActiveDrawing
        Dim i As Integer

        Dim appExcel As Object
        Dim wbook As Object
        Dim wsheet As Object
            appExcel = GetObject(, "Excel.Application")
            wbook = appExcel.ActiveWorkbook
            wsheet = appExcel.ActiveSheet()

            MsgBox(" Open Excel error. Is Excel Open?", vbExclamation, "Error" & Err.Number & " " & Err.Description)
            wsheet = Nothing
            wbook = Nothing
            appExcel = Nothing
            Exit Sub

        End Try

            For i = 1 To actdr.Application.Tools.Count - 1
                wsheet.Cells(i, 1) = i
                wsheet.Cells(i, 2) = actdr.Application.Tools(i).MenuText
                wsheet.Cells(i, 3) = actdr.Application.Tools(i).ID
            Next i


            MsgBox(" Excel error. Excel Opened but didn't write", vbExclamation, "Error" & Err.Number & " " & Err.Description)
        End Try
        'try to start a tool with VB.net
        'tcapp.Tools(33000).Activate()  ' don´t work

    End Sub