Topic: migrating VBA Import

[dbroada]

Hi,
I am migrating some of my VBA code to .Net and thought I had found an easy routine to practice on. I may be wrong! I bring (upto) 3 dxf files into a single drawing and then save the file. To do this I use the following sub

Code: [Select]

Public Sub DxfImport(myFile As String)
Dim P1(0 To 2) As Double
Dim myScale As Double
Dim myTest

If Right$(myFile, 4) <> ".dxf" Then myFile = myFile & ".dxf"
myTest = Dir$(myFile)
If myTest <> "" Then
    P1(0) = 0: P1(1) = 0: P1(2) = 0
    myScale = 1
   
    ThisDrawing.Import myFile, P1, myScale
   
    End If

End Sub

What I can't find is a .Net equivalent of the

Code: [Select]

ThisDrawing.Import myFile, P1, myScale line. Is there such a thing and if there is, how do I access it?
(this is the VBA Import, not the AutoCAD import)

[Kerry]

object Import(string FileName, object InsertionPoint, double ScaleFactor);
 
Declaring Type: Autodesk.AutoCAD.Interop.IAcadDocument

[dbroada]

thank you, that looks easy. However I am obviously missing something here (i'm new to .Net - not too obvious I hope).
I'm still not sure how to put that in to practice. I have the following but still have errors at the .interop & (Import stages. Have I failed to reference something somewhere?

Code: [Select]

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.interop

Public Class Hellooo
    <CommandMethod("Ducks")> _
    Public Sub DucksIn(ByVal myFile As String)

        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim p1(0 To 2) As Double
        Dim myScale As Double
        Dim myTest
        If Right(myFile, 4) <> ".DXF" Then myFile = myFile & ".DXF"
        myTest = Dir(myFile)
        If myTest <> "" Then
            p1(0) = 0 : p1(1) = 0 : p1(2) = 0
            myScale = 1
            acDoc(IMPORT(myFile, p1, myScale))
        Else
            MsgBox("File doesn't exist")
        End If

    End Sub


[dbroada]

making the Import line into Autodesk.AutoCAD.Runtime.Interop has got rid of one error message but not the other. 

[Bryco]

In net a point is usually an actual point (point2d or point3d) not just an array of doubles. You may have to make a point3d here, it isn't clear

[dbroada]

thank you, but wouldn't that just throw up an error at the relavent term rather than refusing to acknowledge the existance Import element?

(Off to give it a try at next coffee break)

[Jeff H]

This will get you a little further

This is not ".Nettyish"

Code: [Select]


<CommandMethod("Ducks", CommandFlags.Modal + CommandFlags.Session)> _
    Public Sub DucksIn()
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor
        Dim pr As PromptResult = ed.GetString(vbCrLf & "Enter File: ")
        If pr.Status = PromptStatus.OK Then
            Dim myFile As String = pr.StringResult
            Dim fNameNoExt = Path.GetFileNameWithoutExtension(myFile)
            Dim acDoc As AcadDocument = doc.AcadDocument
            Dim p1 As Point3d = Point3d.Origin
            Dim myScale As Double = 1
            If File.Exists(myFile) Then
                myFile = fNameNoExt
            ElseIf Not File.Exists(fNameNoExt & ".dxf") Then
                MsgBox("File does not exist")
            End If
            myScale = 1
            acDoc.Import(myFile, p1, myScale)
        End If
    End Sub



[dbroada]

fro2001, it gets me a little closer, but only a little. My system is not recognising the AcadDocument type. If I change that to Document it the throws up an error with the import bit.

Now that several people have helped I guess I should declare my set up just in case I am trying to do something not possible.
I am using AutoCAD 2008 electrical and Microsoft Visual Basic 2010 express.

I have only been formerly trained in Fortran as a programming language (and have dabbled with BASIC, VB & VBC on a self taught basis) so I am struggling to grasp .Net at the moment.

and what do you mean by ".Nettyish">

[Kerry]

This works for me.
I'll leave the translation to someone who likes playing with VB

{ Forum Profile->Look And Layout Prerferences -> Current Theme: Mercury}

Code: [Select]


// CodeHimBelonga kdub@theSwamp 20100922
//
using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
//
using Autodesk.AutoCAD.Interop;
using Autodesk.AutoCAD.Interop.Common;
using System.IO;
using System.Windows.Forms;
using AcadApp = Autodesk.AutoCAD.ApplicationServices.Application;

// This line is not mandatory, but improves loading performances
[assembly: CommandClass(typeof(Ducks.MyCommands))]

namespace Ducks
{
    public class MyCommands
    {
        [CommandMethod("Ducks", (CommandFlags.Modal | CommandFlags.Session))]
        public void DucksIn()
        {
            Document doc = AcadApp.DocumentManager.MdiActiveDocument;
            Editor ed = doc.Editor;
            PromptResult pr = ed.GetString(("\r\n" + "Enter qualified File: "));
            if (!(pr.Status == PromptStatus.OK))
                return;

            string myFile = pr.StringResult;
            if (!File.Exists(myFile))
            {
                string msg = string.Format("File {0} does not exist", myFile);
                MessageBox.Show( msg, "Ooooooops");
                return;
            }

            AcadDocument comDoc = (Autodesk.AutoCAD.Interop.AcadDocument)doc.AcadDocument;

            double myScale = 1;
            Point3d p1 = Point3d.Origin;
            double[] ptArray = p1.ToArray();
            comDoc.Import(myFile, (object)ptArray, myScale);
        }
    }

}


[dbroada]

can I send you several hundred drawings to process 

I think it must be my references rather than the code  as I still can't get the Interop bit to be accepted....

[Kerry]

I reference these for development:


[edit:added] the references shown are for MY configuration (Win7;64bit,ACADM2011;VS2010Pro), yours may differ.

[dbroada]

YEAH!!!!!!

all the underlining has disappered. Now to work out if I understand the solutions offered.

I'm sure I will be back. 

[Kerry]

You can also reference the Interops from the GAC ... something like ;
C:\Windows\assembly\GAC_MSIL\Autodesk.AutoCAD.Interop\18.1.0.0__eed84259d7cbf30b\Autodesk.AutoCAD.Interop.dll

[Kerry]

can I send you several hundred drawings to process  

Dave,
If you like, but it sounds as if you're almost there.

and besides, I'm not cheap even if I am nasty

[Glenn R]

That reminds me of the saying 'I may be cheap, but I'm rough'