Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
abdullah_elq
in reply to: michielXWZ7U

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