topic Re: vb.net with AutoCad 2013 in .NET Forum

vb.net with AutoCad 2013

Anonymous — Thu, 20 Jun 2013 05:43:55 GMT

I using following Code to create a property "ThisDrawing". I want to use this to run customised program.

Public Class Class1
Public ReadOnly Property ThisDrawing As AcadDocument
Get
Return _

Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.acaddocument
End Get
End Property

End Class

I am getting error message as "acaddocument' is not a member of Autodesk.AutoCAD.ApplicationServices.Document".

Can any one help me to solve this problem.

Re: vb.net with AutoCad 2013

augusto.goncalves — Thu, 20 Jun 2013 14:29:06 GMT

Please use GetAcadDocument instead AcadDocument

Re: vb.net with AutoCad 2013

Anonymous — Thu, 04 Jul 2013 12:02:05 GMT

Thanks a lot for answering.

When I type GetAcadDocument it is still not identified.

The code I mentioned below works fine with AutoCad 2011.

For AutoCad 2013 I wrote this code and it worked fine

Module DrawLine2P

<CommandMethod("DrawL")> _
Public Sub DrawL()

Dim acdoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acdoc.Database
Dim PT1 As Point3d = New Point3d(0, 0, 0)
Dim PT2 As Point3d = New Point3d(PT1.X, _
PT1.Y + 10, _
0)
Dim PT1 As DBPoint = New DBPoint(New Point3d(0, 0, 0))
Dim PT2 As DBPoint = New DBPoint(New Point3d(PT1.Position.X, _
PT1.Position.Y + 10, _
0)

Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
Dim acBlkTbl As BlockTable = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
Dim acBlkTblRec As BlockTableRecord = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace),

OpenMode.ForRead)

Dim acLine As Line = New Line(PT1, PT2)
acLine.SetDatabaseDefaults()
acBlkTblRec.AppendEntity(acLine)
acTrans.AddNewlyCreatedDBObject(acLine, True)

acTrans.Commit()

End Using
End Sub

End Module

I understand that there are lot of changes in API for AutoCAD 2013. Is it so.

Re: vb.net with AutoCad 2013

augusto.goncalves — Thu, 04 Jul 2013 17:31:41 GMT

This code you mention it's not using COM, only .NET API, therefore there is no need for GetAcadDocument....

Re: vb.net with AutoCad 2013

Anonymous — Fri, 05 Jul 2013 03:53:42 GMT

Thanks a Lot Mr. Augusta for your kind help.

I will do some further study and get back to you.

Ajit Joshi