06-21-2023
09:29 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-21-2023
09:29 AM
The issue is that your code starts a transaction, but never finishes it. Change your Sub main() to the following and the issue should go away.
Sub main()
_doc = ThisDoc.Document
_sheet = _doc.ActiveSheet
_view = ThisApplication.CommandManager.Pick(
SelectionFilterEnum.kDrawingViewFilter,
"Select a drawing view")
'Start the transaction
Dim oTransaction As Transaction = ThisApplication.TransactionManager.StartTransaction(_doc, "Generate dimensions")
CreateIntentList()
' Comment out features that you dont want/need!
CreateHorizontalDimensions()
CreateVerticalDimensions()
'CreateMarks()
AddDiameterDimensionToCircles()
' createHorizontalOuterDimension()
' createVerticalOuterDimension()
i += 1
'End the transaction
oTransaction.End()
End Sub