Autodesk.AutoCAD.DatabaseServices.Table random FlushGraphics error
Hi,
As you can understand, it is really tough to tell what is going wrong in the code. My suggestion would be to provide very simple code (buildable) with exact steps to reproduce the issue.
Note, most of the time, it the context in which code runs creates the issue. Like calling the code from reactor call back, or having a complex logic in reactor callbacks which is getting trigged because of some action in your code.
Virupaksha Aithal KM
Developer Technical Services
Autodesk Developer Network
Thanks for the sharing code. One suggestion, you must avoid mixing “Transaction” and “DBObject.Open” usage. So, try passing “Transaction” to “SetCellValue” and “GetCellValue” functions.
If above suggestion fails, then share a non confidential drawing file so that I can test the code from your step 8.
Virupaksha Aithal KM
Developer Technical Services
Autodesk Developer Network
Hi,
I'm still wiping out extra cells
can you please share a non confidential drawing file so that I can test the code from your step 8.
Virupaksha Aithal KM
Developer Technical Services
Autodesk Developer Network
Ok, instead of creating a new “Transaction” inside the ProcessDimensions using the Transaction passed as parameter as shown below
Public Shared Sub ProcessDimensions(ByRef dims As List(Of Autodesk.AutoCAD.DatabaseServices.RotatedDimension), ByRef mTrans As Transaction, ByRef btrSpace As BlockTableRecord, ByRef mDoc As Document)
'separate dimensions by horizontal and vertical, and sort by measurement
Dim doc As Document = mDoc
' Using trans As Transaction = mTrans.TransactionManager.StartTransaction
Dim vertDims As New SortedDictionary(Of Double, Autodesk.AutoCAD.DatabaseServices.RotatedDimension)
Dim horizontalDims As New SortedDictionary(Of Double, Autodesk.AutoCAD.DatabaseServices.RotatedDimension)
For Each rDim As RotatedDimension In dims
Dim dd As Double = Math.Round(rDim.Rotation, 6)
Select Case Math.Round(rDim.Rotation, 6)
Case 0
If Not horizontalDims.ContainsKey(rDim.Measurement) Then
horizontalDims.Add(rDim.Measurement, rDim)
End If
Case CommonTools.DegreesToRadians(90)
If Not vertDims.ContainsKey(rDim.Measurement) Then
vertDims.Add(rDim.Measurement, rDim)
End If
Case CommonTools.DegreesToRadians(180)
If Not horizontalDims.ContainsKey(rDim.Measurement) Then
horizontalDims.Add(rDim.Measurement, rDim)
End If
Case CommonTools.DegreesToRadians(270)
If Not vertDims.ContainsKey(rDim.Measurement) Then
vertDims.Add(rDim.Measurement, rDim)
End If
End Select
Next
'now we have sorted lists of vertical dims and horizontal dims
'Start a new table
dTable = Nothing
Dim psr As Autodesk.AutoCAD.EditorInput.PromptSelectionResult
Dim pso As New Autodesk.AutoCAD.EditorInput.PromptSelectionOptions
pso.MessageForAdding = "Select the clearance dimensions table"
pso.MessageForRemoval = "Remove dimensions"
pso.AllowDuplicates = False
pso.SingleOnly = True
psr = doc.Editor.GetSelection(pso)
If psr.Status = Autodesk.AutoCAD.EditorInput.PromptStatus.OK Then
For Each so As Autodesk.AutoCAD.EditorInput.SelectedObject In psr.Value
Dim ent As Entity = mTrans.GetObject(so.ObjectId, OpenMode.ForRead)
If TypeOf ent Is Autodesk.AutoCAD.DatabaseServices.Table Then
dTable = ent
Exit For
End If
Next
End If
If dTable IsNot Nothing Then
dTable = mTrans.GetObject(dTable.Id, OpenMode.ForWrite)
If dTable.Rows.Count < (vertDims.Count + 2) Then
Dim lastRow As Integer = dTable.Rows.Count - 1
Dim rowHeight As Double = dTable.Rows(lastRow).Height
Dim rowCount As Integer = (vertDims.Count + 2) - dTable.Rows.Count
dTable.InsertRows(lastRow, rowHeight, rowCount)
'dTable.RecomputeTableBlock(True)
End If
Dim rowNum As Integer = 1
Dim hMax As Double = 0
Dim roundUp As Boolean = False
Dim strZero As String = "%<\AcExpr (0) \f " & Chr(34) & "%lu4%pr0" & Chr(34) & ">%" '"0'-0" & Chr(34)
'Dim strDBDims As String = String.Empty 'in here we will store a replica of the dimensions to be pushed into the TTS Main database.
'strDBDims was disabled because we always modify the dimensions after creating this table.
For Each vDim As RotatedDimension In vertDims.Values
Dim dbHDim As Double = 0
rowNum += 1
Dim vCell As Cell = dTable.Cells.Item(rowNum, 0)
Dim strVField As String = "%<\AcObjProp Object(%<\_ObjId "
strVField += Replace(Replace(vDim.ObjectId.ToString, ")", ""), "(", "")
strVField += ">%).Measurement \f " & Chr(34) & "%lu4%pr4" & Chr(34) & ">%"
SetCellValue(vCell, strVField, mTrans)
'now find the horizontal dimension that exactly corresponds to the vertical dimension
Dim vDimPoint As Autodesk.AutoCAD.Geometry.Point3d = Nothing
If vDim.XLine1Point.Y - vDim.XLine2Point.Y > 0 Then
vDimPoint = vDim.XLine1Point
Else
vDimPoint = vDim.XLine2Point
End If
Dim booFound As Boolean = False
Dim hCell As Cell = dTable.Cells.Item(rowNum, 1)
Dim horDim As RotatedDimension = Nothing
For Each hDim As RotatedDimension In horizontalDims.Values
'first look for coincident points
If vDimPoint.DistanceTo(hDim.XLine1Point) < 0.0000001 Then
booFound = True
End If
If vDimPoint.DistanceTo(hDim.XLine2Point) < 0.0000001 Then
booFound = True
End If
'if boofound = false then look for point that share the same x value
If Math.Abs(vDimPoint.X - hDim.XLine1Point.X) < 0.0000001 Then
booFound = True
End If
If Math.Abs(vDimPoint.X - hDim.XLine2Point.X) < 0.0000001 Then
booFound = True
End If
If booFound Then
horDim = hDim
If hDim.Measurement >= hMax Then
hMax = hDim.Measurement
Else
roundUp = True
End If
Dim strHField As String = "%<\AcObjProp Object(%<\_ObjId "
strHField += Replace(Replace(hDim.ObjectId.ToString, ")", ""), "(", "")
strHField += ">%).Measurement \f " & Chr(34) & "%lu4%pr4" & Chr(34) & ">%"
SetCellValue(hCell, strHField, mTrans)
dbHDim = Math.Round(hDim.Measurement, 8)
Exit For
End If
Next
If booFound = False Then
SetCellValue(hCell, strZero, mTrans)
End If
'now set the rounded values
vCell = dTable.Cells.Item(rowNum, 2)
Dim strRDown As String = "%<\AcExpr (A" & (rowNum + 1).ToString & "-.49" & Chr(34) & ") \f " & Chr(34) & "%lu4%pr0" & Chr(34) & ">%"
Dim strRUp As String = "%<\AcExpr (A" & (rowNum + 1).ToString & "+.49" & Chr(34) & ") \f " & Chr(34) & "%lu4%pr0" & Chr(34) & ">%"
If roundUp Then
SetCellValue(vCell, strRUp, mTrans)
'strDBDims += "V" & (rowNum - 1) & ":" & CStr(CInt(Math.Round((vDim.Measurement + 0.49999999), 0))) & ";"
Else
SetCellValue(vCell, strRDown, mTrans)
'strDBDims += "V" & (rowNum - 1) & ":" & CStr(CInt(Math.Round((vDim.Measurement - 0.49999999), 0))) & ";"
End If
hCell = dTable.Cells.Item(rowNum, 3)
strRUp = "%<\AcExpr (B" & (rowNum + 1).ToString & "+.49" & Chr(34) & ") \f " & Chr(34) & "%lu4%pr0" & Chr(34) & ">%"
SetCellValue(hCell, strRUp, mTrans)
'strDBDims += "H" & (rowNum - 1) & ":" & CStr(CInt(Math.Round((dbHDim + 0.49999999), 0))) & ";"
Next
'strDBDims = strDBDims.TrimEnd(";")
'UploadDimensionsToDatabase(strDBDims)
'trans.Commit()
End If
'End Using
End Sub
also, i still not able to understand your comments "I am still wiping out extra cell". when i run above code, i get a table as shown below
Virupaksha Aithal KM
Developer Technical Services
Autodesk Developer Network
Hi
Sorry, I am unable to reproduce the issue on AutoCAD 2013 win7 64 bit. I followed your steps and with modified sample, I am not able to reproduce the issue. I am attaching the complete project which I am testing at my end.
Virupaksha Aithal KM
Developer Technical Services
Autodesk Developer Network