Hello, all. I've got a sub that grabs all of the text objects in a drawing and then compares the first 20 characters to a defined string. I want it to be able to erase any objects that are a match prior to moving on to the next object in the selection set. With the following code, it does everything but erase the object. Obviously, I'm missing something but I just can't see why it isn't working. Any suggestions?
Thanks for your time and consideration
Public Sub RemoveDisclaimer() Dim myDB As Database = HostApplicationServices.WorkingDatabase Dim myDWG As Document = DocumentManager.MdiActiveDocument Dim myED As Editor = myDWG.Editor Dim dsText As DBText Dim dsMText As MText Using myTrans As Transaction = myDB.TransactionManager.StartTransaction 'select all text objects in the drawing Dim myBlockTable As BlockTable = myDB.BlockTableId.GetObject(OpenMode.ForRead) Dim myTypedValue(3) As TypedValue myTypedValue.SetValue(New TypedValue(DxfCode.Operator, "<or"), 0) myTypedValue.SetValue(New TypedValue(DxfCode.Start, "Text"), 1) myTypedValue.SetValue(New TypedValue(DxfCode.Start, "MText"), 2) myTypedValue.SetValue(New TypedValue(DxfCode.Operator, "or>"), 3) Dim myFilter As New SelectionFilter(myTypedValue) Dim myPSR As PromptSelectionResult = myED.SelectAll(myFilter) Dim mySelectionSet As SelectionSet = myPSR.Value Dim dsStandard As String = "THIS ENGINEERING JUD" Dim dsFCD As String = "THIS FIRESTOP CUSTOM" Dim strText As String Dim strMText As String 'cycle through each text object, if it's a match then erase the object For Each mySelectedObject In mySelectionSet Select Case mySelectedObject.ObjectId.ObjectClass.Name Case "AcDbText" dsText = myTrans.GetObject(mySelectedObject.ObjectId, OpenMode.ForWrite, False, True) strText = dsText.TextString If Left(strText, 20) = dsStandard Or Left(strText, 20) = dsFCD Then dsText.Erase(True) dsText.Dispose() End If Case "AcDbMText" dsMText = myTrans.GetObject(mySelectedObject.ObjectId, OpenMode.ForWrite, False, True) strMText = dsMText.Contents If Left(strMText, 20) = dsFCD Then dsMText.Erase(True) dsMText.Dispose() End If End Select Next 'mySelectedObject End Using 'myTrans End Sub
transaction-committing is missing
- alfred -
So, I'm a moron. I wrote that code late yesterday and didn't get a chance to test it until this morning. I stared at it for 2 hours!! Thanks a lot!!
>> So, I'm a moron
Oh no, don't say or think something like that.
IMHO all of us have already searched for a bug in our code before recognizing that .Commit it missing
- alfred -
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register