Community
Hi,
Try this:
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
<Assembly: CommandClass(GetType(CommandMethods))>
Public Class CommandMethods
<CommandMethod("Test", CommandFlags.Modal)> _
Public Sub Test()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim mtextClass As RXClass = RXClass.GetClass(GetType(MText))
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim bt As BlockTable = DirectCast(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
If Not bt.Has("A-Size") Then
Application.ShowAlertDialog("Block 'A-Size' not found.")
Return
End If
Dim btr As BlockTableRecord = DirectCast(tr.GetObject(bt("A-Size"), OpenMode.ForRead), BlockTableRecord)
For Each id As ObjectId In btr
If id.ObjectClass = mtextClass Then
Dim mtext As MText = DirectCast(tr.GetObject(id, OpenMode.ForRead), MText)
If mtext.Contents.Contains(" CORP.") Then
mtext.UpgradeOpen()
mtext.Contents = mtext.Contents.Replace(" CORP.", ", LLC")
End If
End If
Next
tr.Commit()
End Using
ed.Regen()
End Sub
End Class
Hi,
First you'd rather write a separate Sub with one argument (the block name) so that you can call from any other place (a command method, a control event handler, an initialization method).
If you want to execute some code at AutoCAD startup, create a class which implements the IExtensionApplication interface and call the sub from the Initialize method (you must implement this method).
The way to execute a sub in each (already or newly) created document is to add an event handler for the DocumentManager.DocumentCreated event.
Make a serch with IExtensionApplication.
