Through the Interface

4 responses to “AutoCAD .NET Training DevTV: downloadable session recordings”

1. 

   kelo

   July 22, 2011 at 6:20 pm

   This not work in AutoCAD 2012 ,but AutoCAD 2011 well.

   acLdr.Annotation = acMText.ObjectId
   acLdr.EvaluateLeader()

   Is bug? Thank you.

   Reply
2. 

   Kean Walmsley

   July 22, 2011 at 6:29 pm

   Sorry - is this related to a particular post of mine? If so, which one?

   If not, please submit it via ADN or post it to the AutoCAD .NET Discussion Group.

   Thanks,

   Kean

   Reply
3. 

   kelo

   July 22, 2011 at 7:00 pm

   This is a sample in AutoCAD.NET Programming Guide,but not work in AutoCAD 2012.
   Now I can not create Leader.
   I am ADN member,But my English is not good, can not ask questions.

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

   <commandmethod("createleader")> _
   Public Sub CreateLeader()
   '' Get the current database
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim acCurDb As Database = acDoc.Database

   '' Start a transaction
   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

   '' Open the Block table for read
   Dim acBlkTbl As BlockTable
   acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
   OpenMode.ForRead)

   '' Open the Block table record Model space for write
   Dim acBlkTblRec As BlockTableRecord
   acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
   OpenMode.ForWrite)

   '' Create the leader
   Dim acLdr As Leader = New Leader()
   acLdr.SetDatabaseDefaults()
   acLdr.AppendVertex(New Point3d(0, 0, 0))
   acLdr.AppendVertex(New Point3d(4, 4, 0))
   acLdr.AppendVertex(New Point3d(4, 5, 0))
   acLdr.HasArrowHead = True

   '' Add the new object to Model space and the transaction
   acBlkTblRec.AppendEntity(acLdr)
   acTrans.AddNewlyCreatedDBObject(acLdr, True)

   '' Commit the changes and dispose of the transaction
   acTrans.Commit()
   End Using
   End Sub

   Reply
4. 

   Kean Walmsley

   July 22, 2011 at 11:58 pm

   As you're an ADN member, I've asked a member of our DevTech China team to contact you about this issue (please let me know if you're not comfortable discussing the issue in Chinese - I'm assuming you are, based on your email address.

   Kean

   Reply