Messages

ok. see attached. Thanks!

The block i'm using is multiline annotative. the program inserts the wells utilizing an asc well coordinate file.

Sorry I do not see anything attached

Looks like they are creating one

http://through-the-interface.typepad.com/through_the_interface/2011/08/the-my-first-plug-in-series.html

We currently have guides for Maya and AutoCAD in the works. While many of this blog’s readership won’t need this kind of assistance, I think many will enjoy what Stephen Preston is cooking up for AutoCAD. ;-)

Sorry from a external drawing.

Are yoou inserting the whole drawing or a block from the drawing?

Do have a example of what you have so far?

MyBase is the same as C# Base

If a class inherits from a class it can use MyBase to call methods from the class it inherits from.

Here is a simple console App that overrides the the base class MessageBox method then calls the base class MessageBox method

Module Module1

    Sub Main()
        Dim a As New InheritsBaseClass
        a.MessageBox()
        a.MessageBoxBase()

    End Sub

End Module
Public Class BaseClass

    Public Overridable Sub MessageBox()
        MsgBox("Base Class")
    End Sub

End Class

Public Class InheritsBaseClass : Inherits BaseClass


    Public Overrides Sub MessageBox()
        MsgBox("Derived Class")
    End Sub

    Public Sub MessageBoxBase()
        MyBase.MessageBox()

    End Sub



End Class



Here is a simple VB & C# example of copying a layout from a external drawing,
There is no error handling or checking if the drawing, layout exist to keep it short.

This is pretty much the same as copying the PlotSettings or the "Page Setup"
You must have a drawing and layout named the same or change it.

A simple App example would let the user select a location or drawing where they setup all the different "Page Setups" from a context menu or something similiar. Then you could fill a listbox or whatever with the names on a palette, and on the click event bring in the copy the layout.
This example is hard-coded for simplicity


C#

[CommandMethod("CopyExternalLayout")]
        public static void CopyExternalLayout()
        {
            Database db = HostApplicationServices.WorkingDatabase;
            Database stdDb = new Database();
            stdDb.ReadDwgFile(@"C:\Test\PageSetup.dwg", FileOpenMode.OpenForReadAndAllShare, false,"");

            using (Transaction trx = db.TransactionManager.StartTransaction())
            using (Transaction stdTrx = stdDb.TransactionManager.StartTransaction())
            {
                DBDictionary stdLayoutDictionary = stdDb.LayoutDictionaryId.GetObject(OpenMode.ForRead) as DBDictionary;
                Layout stdLayout = stdLayoutDictionary.GetAt("TestPageSetUp").GetObject(OpenMode.ForRead) as Layout;
                BlockTableRecord paperSpace = SymbolUtilityServices.GetBlockPaperSpaceId(db).GetObject(OpenMode.ForRead) as BlockTableRecord;
                Layout layout = paperSpace.LayoutId.GetObject(OpenMode.ForWrite) as Layout;
                layout.CopyFrom(stdLayout);
                trx.Commit();
            }     
       
       
        }


VB

<CommandMethod("CopyExternalLayout")> _
    Public Shared Sub CopyExternalLayout()

        Dim db As Database = HostApplicationServices.WorkingDatabase
        Dim stdDb As Database = New Database()
        stdDb.ReadDwgFile("C:\Test\PageSetup.dwg", FileOpenMode.OpenForReadAndAllShare, False, "")

        Using trx As Transaction = db.TransactionManager.StartTransaction()
            Using stdTrx As Transaction = stdDb.TransactionManager.StartTransaction()

                Dim stdLayoutDictionary As DBDictionary = stdDb.LayoutDictionaryId.GetObject(OpenMode.ForRead)
                Dim stdLayout As Layout = stdLayoutDictionary.GetAt("TestPageSetUp").GetObject(OpenMode.ForRead)
                Dim paperspace As BlockTableRecord = SymbolUtilityServices.GetBlockPaperSpaceId(db).GetObject(OpenMode.ForRead)
                Dim layout As Layout = paperspace.LayoutId.GetObject(OpenMode.ForWrite)
                layout.CopyFrom(stdLayout)

            End Using

            trx.Commit()

        End Using

    End Sub