Community
The problem your code has is in the declaration of the 3 Circles at class level:
Public objHole As Circle = New Circle
Public obj2 As Circle = New Circle
Public obj3 As Circle = New Circle
the problem is that your code not only declare 3 variables, but also instantiate 3 Circel objects.
What happens is that when your command runs the first time, the 3 Circle objects are created in memory for the current document. and when the command goes through, the 3 Circles are ModelSpace and the transaction is commited. However, since the 3 variables that hold the 3 Circles are still in scope because they are class leveled, after the transaction is commited, the circles's open state are changed from ForWrite to ForRead, hence the error if you run the command the second time.
In your case, you SHOULD NOT declare database residing object with "New" keyword. You ONLY "New" an database residing object inside a transaction, or if you somehow instantiate an entity and do not intend to add it into database, you need to dispose it.
Also, in general do not keep an database residing entity instance outside a transaction, keep track its ObjectId instead.
So, for your code, you should declare the Circles like this:
Private objHole As Circle
Private obj2 As Circle
Private obj3 As Circle
and then after the Transaction started,
objHole=New Circle
obj2=New Circle
obj3=New Circle
and after the transaction
objHole=Nothing
obj2=Nothing
obj3=Nothing
Better yet, you simple do not declare the Circles at class level. Instead, you place the declareation with "New" after the Transaction started.
BTW, why declare variables as Object when they are for holding Double, Point3d values? They should be declaread like
Private Circle1 As Double
Private Circle2 As Double
Private Circle3 As Double
Private Circle1Center As Point3d
Private Circle2Center As Point3d
Again, based on your code, there is no need to declare them at class level, not to mention to be declared as "Public"
