Community

Problem looping through code more than once.

Problem looping through code more than once.

Anonymous
Not applicable
441 Views
3 Replies
Message 1 of 4

Problem looping through code more than once.

Anonymous
Not applicable
‎06-11-2007 12:34 PM
Sorry, I forgot the subject last time around

I am having trouble looping through my code until the user is done with the
command. What this routine does is to ask the user what axis is being
halved (i.e. in which axis is the diameter) and then continues to ask the
user for the coordinates until the user escapes, or enters a null value.

The code works fine the first time through, but on the first loop (second
time asking for the coordinates), I get an eNotOpenForWrite error and
AutoCAD crashes. Can anyone point me in the direction that's causing this?

Below is my code. Obviously, one would have to create a CommandMethod before
running this, but I figured I didn't have to supply it as that code does is
point to this code.



Imports acadApp = Autodesk.AutoCAD.ApplicationServices

Imports acadDB = Autodesk.AutoCAD.DatabaseServices

Imports acadED = Autodesk.AutoCAD.EditorInput

Imports acadGo = Autodesk.AutoCAD.Geometry

Imports acadRT = Autodesk.AutoCAD.Runtime

Module Coordinates

Dim CurrentStack As System.Diagnostics.StackTrace

Public Sub Coordinates()

' declare local variables

Dim doc As acadApp.Document = _

acadApp.Application.DocumentManager.MdiActiveDocument

Dim ed As acadED.Editor = doc.Editor

Dim db As acadDB.Database = doc.Database

Dim tr As Transaction = db.TransactionManager.StartTransaction

Dim btr As BlockTableRecord

Dim docLock As acadApp.DocumentLock = _

doc.LockDocument(acadApp.DocumentLockMode.AutoWrite, "Coords", "Coords",
True)

'Dim docLock As acadApp.DocumentLock = doc.LockDocument

Dim ValueEntered As Boolean

Dim pdMode As Integer = ed.Document.Database.Pdmode

Dim pdSize As Double = ed.Document.Database.Pdsize

Dim ptOrigin As acadGo.Point3d = ed.Document.Database.Ucsorg

Dim UCSIcon As Object = acadApp.Application.GetSystemVariable("UCSICON")

Try

acadApp.Application.SetSystemVariable("PDMODE", 35)

acadApp.Application.SetSystemVariable("PDSIZE", 0.25)

Begin:

acadApp.Application.SetSystemVariable("UCSICON", 1)

ValueEntered = True

btr = DirectCast( _

tr.GetObject(doc.Database.CurrentSpaceId, acadDB.OpenMode.ForWrite), _

BlockTableRecord)

' Prompt the user to input any of the keywords

Dim keyOptions As acadED.PromptKeywordOptions = _

New acadED.PromptKeywordOptions(Environment.NewLine + _

"Select the axis to be halved: ")

keyOptions.Keywords.Add("X")

keyOptions.Keywords.Add("Y")

keyOptions.Keywords.Add("None")

keyOptions.Keywords.Add("All")

keyOptions.Keywords.Add("Done")

keyOptions.Keywords.Default = My.Settings.AxisToHalve

Dim HalfAxis As acadED.PromptResult = ed.GetKeywords(keyOptions)

If (HalfAxis.Status = PromptStatus.Keyword) Or _

(HalfAxis.Status = PromptStatus.OK) Then

If HalfAxis.StringResult <> "Done" Then

' Store default AxisToHalve

My.Settings.AxisToHalve = HalfAxis.StringResult

Do Until ValueEntered = False

' Get the X coordinate

Dim pointX As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter X coordinate: ")

If (pointX.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

' Get the Y coordinate

Dim pointY As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter Y coordinate: ")

If (pointY.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

Dim myPoint As acadGo.Point3d

Select Case HalfAxis.StringResult

Case "X"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value, 0)

Case "Y"

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value / 2, 0)

Case "All"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value / 2, 0)

Case Else

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value, 0)

End Select

Dim dbpt As acadDB.DBPoint = New acadDB.DBPoint(myPoint)

'dbpt.SetDatabaseDefaults(db)

btr.AppendEntity(dbpt)

tr.AddNewlyCreatedDBObject(dbpt, True)

tr.Commit()

Loop

GoTo Begin

End If

End If

Catch acEx As acadRT.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + acEx.Message, _

MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, _

acEx.ErrorStatus.ToString())

tr.Abort()

Catch nullEx As System.NullReferenceException

Catch ex As System.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + ex.Message, _

MsgBoxStyle.Critical + MsgBoxStyle.Critical, _

ex.InnerException.ToString())

tr.Abort()

Finally

' reset variables to original state

acadApp.Application.SetSystemVariable("PDMODE", pdMode)

acadApp.Application.SetSystemVariable("PDSIZE", pdSize)

'acadApp.Application.SetSystemVariable("UCSICON", sUCSIcon)

'acadApp.Application.SetSystemVariable("UCSORG", ptOrigin)

docLock.Dispose()

End Try

End Sub

End Module
0 Likes
Like
Report
442 Views
3 Replies
Replies (3)
Message 2 of 4

Anonymous
Not applicable
‎06-12-2007 12:46 AM
Hi Nathan.

Dont do the Transaction.Commit() in the loop, do it after you are done with
the loop.

Regards
Peter

"Nathan Guill" wrote in message
news:5622674@discussion.autodesk.com...
Sorry, I forgot the subject last time around

I am having trouble looping through my code until the user is done with the
command. What this routine does is to ask the user what axis is being
halved (i.e. in which axis is the diameter) and then continues to ask the
user for the coordinates until the user escapes, or enters a null value.

The code works fine the first time through, but on the first loop (second
time asking for the coordinates), I get an eNotOpenForWrite error and
AutoCAD crashes. Can anyone point me in the direction that's causing this?

Below is my code. Obviously, one would have to create a CommandMethod before
running this, but I figured I didn't have to supply it as that code does is
point to this code.



Imports acadApp = Autodesk.AutoCAD.ApplicationServices

Imports acadDB = Autodesk.AutoCAD.DatabaseServices

Imports acadED = Autodesk.AutoCAD.EditorInput

Imports acadGo = Autodesk.AutoCAD.Geometry

Imports acadRT = Autodesk.AutoCAD.Runtime

Module Coordinates

Dim CurrentStack As System.Diagnostics.StackTrace

Public Sub Coordinates()

' declare local variables

Dim doc As acadApp.Document = _

acadApp.Application.DocumentManager.MdiActiveDocument

Dim ed As acadED.Editor = doc.Editor

Dim db As acadDB.Database = doc.Database

Dim tr As Transaction = db.TransactionManager.StartTransaction

Dim btr As BlockTableRecord

Dim docLock As acadApp.DocumentLock = _

doc.LockDocument(acadApp.DocumentLockMode.AutoWrite, "Coords", "Coords",
True)

'Dim docLock As acadApp.DocumentLock = doc.LockDocument

Dim ValueEntered As Boolean

Dim pdMode As Integer = ed.Document.Database.Pdmode

Dim pdSize As Double = ed.Document.Database.Pdsize

Dim ptOrigin As acadGo.Point3d = ed.Document.Database.Ucsorg

Dim UCSIcon As Object = acadApp.Application.GetSystemVariable("UCSICON")

Try

acadApp.Application.SetSystemVariable("PDMODE", 35)

acadApp.Application.SetSystemVariable("PDSIZE", 0.25)

Begin:

acadApp.Application.SetSystemVariable("UCSICON", 1)

ValueEntered = True

btr = DirectCast( _

tr.GetObject(doc.Database.CurrentSpaceId, acadDB.OpenMode.ForWrite), _

BlockTableRecord)

' Prompt the user to input any of the keywords

Dim keyOptions As acadED.PromptKeywordOptions = _

New acadED.PromptKeywordOptions(Environment.NewLine + _

"Select the axis to be halved: ")

keyOptions.Keywords.Add("X")

keyOptions.Keywords.Add("Y")

keyOptions.Keywords.Add("None")

keyOptions.Keywords.Add("All")

keyOptions.Keywords.Add("Done")

keyOptions.Keywords.Default = My.Settings.AxisToHalve

Dim HalfAxis As acadED.PromptResult = ed.GetKeywords(keyOptions)

If (HalfAxis.Status = PromptStatus.Keyword) Or _

(HalfAxis.Status = PromptStatus.OK) Then

If HalfAxis.StringResult <> "Done" Then

' Store default AxisToHalve

My.Settings.AxisToHalve = HalfAxis.StringResult

Do Until ValueEntered = False

' Get the X coordinate

Dim pointX As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter X coordinate: ")

If (pointX.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

' Get the Y coordinate

Dim pointY As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter Y coordinate: ")

If (pointY.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

Dim myPoint As acadGo.Point3d

Select Case HalfAxis.StringResult

Case "X"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value, 0)

Case "Y"

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value / 2, 0)

Case "All"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value / 2, 0)

Case Else

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value, 0)

End Select

Dim dbpt As acadDB.DBPoint = New acadDB.DBPoint(myPoint)

'dbpt.SetDatabaseDefaults(db)

btr.AppendEntity(dbpt)

tr.AddNewlyCreatedDBObject(dbpt, True)

tr.Commit()

Loop

GoTo Begin

End If

End If

Catch acEx As acadRT.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + acEx.Message, _

MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, _

acEx.ErrorStatus.ToString())

tr.Abort()

Catch nullEx As System.NullReferenceException

Catch ex As System.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + ex.Message, _

MsgBoxStyle.Critical + MsgBoxStyle.Critical, _

ex.InnerException.ToString())

tr.Abort()

Finally

' reset variables to original state

acadApp.Application.SetSystemVariable("PDMODE", pdMode)

acadApp.Application.SetSystemVariable("PDSIZE", pdSize)

'acadApp.Application.SetSystemVariable("UCSICON", sUCSIcon)

'acadApp.Application.SetSystemVariable("UCSORG", ptOrigin)

docLock.Dispose()

End Try

End Sub

End Module
0 Likes
Like
Report
Message 3 of 4

Anonymous
Not applicable
‎06-15-2007 02:30 PM
All right, placing my Transaction.Commit() statement after my loop changes
my problem to the user no longer sees the points being placed as they are
entered. How do I make the entered points appear on the screen if not using
the Commit command?

"PeterG" wrote in message
news:5623160@discussion.autodesk.com...
Hi Nathan.

Dont do the Transaction.Commit() in the loop, do it after you are done with
the loop.

Regards
Peter

"Nathan Guill" wrote in message
news:5622674@discussion.autodesk.com...
Sorry, I forgot the subject last time around

I am having trouble looping through my code until the user is done with the
command. What this routine does is to ask the user what axis is being
halved (i.e. in which axis is the diameter) and then continues to ask the
user for the coordinates until the user escapes, or enters a null value.

The code works fine the first time through, but on the first loop (second
time asking for the coordinates), I get an eNotOpenForWrite error and
AutoCAD crashes. Can anyone point me in the direction that's causing this?

Below is my code. Obviously, one would have to create a CommandMethod before
running this, but I figured I didn't have to supply it as that code does is
point to this code.



Imports acadApp = Autodesk.AutoCAD.ApplicationServices

Imports acadDB = Autodesk.AutoCAD.DatabaseServices

Imports acadED = Autodesk.AutoCAD.EditorInput

Imports acadGo = Autodesk.AutoCAD.Geometry

Imports acadRT = Autodesk.AutoCAD.Runtime

Module Coordinates

Dim CurrentStack As System.Diagnostics.StackTrace

Public Sub Coordinates()

' declare local variables

Dim doc As acadApp.Document = _

acadApp.Application.DocumentManager.MdiActiveDocument

Dim ed As acadED.Editor = doc.Editor

Dim db As acadDB.Database = doc.Database

Dim tr As Transaction = db.TransactionManager.StartTransaction

Dim btr As BlockTableRecord

Dim docLock As acadApp.DocumentLock = _

doc.LockDocument(acadApp.DocumentLockMode.AutoWrite, "Coords", "Coords",
True)

'Dim docLock As acadApp.DocumentLock = doc.LockDocument

Dim ValueEntered As Boolean

Dim pdMode As Integer = ed.Document.Database.Pdmode

Dim pdSize As Double = ed.Document.Database.Pdsize

Dim ptOrigin As acadGo.Point3d = ed.Document.Database.Ucsorg

Dim UCSIcon As Object = acadApp.Application.GetSystemVariable("UCSICON")

Try

acadApp.Application.SetSystemVariable("PDMODE", 35)

acadApp.Application.SetSystemVariable("PDSIZE", 0.25)

Begin:

acadApp.Application.SetSystemVariable("UCSICON", 1)

ValueEntered = True

btr = DirectCast( _

tr.GetObject(doc.Database.CurrentSpaceId, acadDB.OpenMode.ForWrite), _

BlockTableRecord)

' Prompt the user to input any of the keywords

Dim keyOptions As acadED.PromptKeywordOptions = _

New acadED.PromptKeywordOptions(Environment.NewLine + _

"Select the axis to be halved: ")

keyOptions.Keywords.Add("X")

keyOptions.Keywords.Add("Y")

keyOptions.Keywords.Add("None")

keyOptions.Keywords.Add("All")

keyOptions.Keywords.Add("Done")

keyOptions.Keywords.Default = My.Settings.AxisToHalve

Dim HalfAxis As acadED.PromptResult = ed.GetKeywords(keyOptions)

If (HalfAxis.Status = PromptStatus.Keyword) Or _

(HalfAxis.Status = PromptStatus.OK) Then

If HalfAxis.StringResult <> "Done" Then

' Store default AxisToHalve

My.Settings.AxisToHalve = HalfAxis.StringResult

Do Until ValueEntered = False

' Get the X coordinate

Dim pointX As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter X coordinate: ")

If (pointX.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

' Get the Y coordinate

Dim pointY As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter Y coordinate: ")

If (pointY.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

Dim myPoint As acadGo.Point3d

Select Case HalfAxis.StringResult

Case "X"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value, 0)

Case "Y"

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value / 2, 0)

Case "All"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value / 2, 0)

Case Else

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value, 0)

End Select

Dim dbpt As acadDB.DBPoint = New acadDB.DBPoint(myPoint)

'dbpt.SetDatabaseDefaults(db)

btr.AppendEntity(dbpt)

tr.AddNewlyCreatedDBObject(dbpt, True)

tr.Commit()

Loop

GoTo Begin

End If

End If

Catch acEx As acadRT.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + acEx.Message, _

MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, _

acEx.ErrorStatus.ToString())

tr.Abort()

Catch nullEx As System.NullReferenceException

Catch ex As System.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + ex.Message, _

MsgBoxStyle.Critical + MsgBoxStyle.Critical, _

ex.InnerException.ToString())

tr.Abort()

Finally

' reset variables to original state

acadApp.Application.SetSystemVariable("PDMODE", pdMode)

acadApp.Application.SetSystemVariable("PDSIZE", pdSize)

'acadApp.Application.SetSystemVariable("UCSICON", sUCSIcon)

'acadApp.Application.SetSystemVariable("UCSORG", ptOrigin)

docLock.Dispose()

End Try

End Sub

End Module
0 Likes
Like
Report
Message 4 of 4

Anonymous
Not applicable
‎06-15-2007 03:06 PM
I figured it out. I had to move all of my Transaction commands inside the
while statement. Thanks for the help.

"Nathan Guill" wrote in message
news:5628251@discussion.autodesk.com...
All right, placing my Transaction.Commit() statement after my loop changes
my problem to the user no longer sees the points being placed as they are
entered. How do I make the entered points appear on the screen if not using
the Commit command?

"PeterG" wrote in message
news:5623160@discussion.autodesk.com...
Hi Nathan.

Dont do the Transaction.Commit() in the loop, do it after you are done with
the loop.

Regards
Peter

"Nathan Guill" wrote in message
news:5622674@discussion.autodesk.com...
Sorry, I forgot the subject last time around

I am having trouble looping through my code until the user is done with the
command. What this routine does is to ask the user what axis is being
halved (i.e. in which axis is the diameter) and then continues to ask the
user for the coordinates until the user escapes, or enters a null value.

The code works fine the first time through, but on the first loop (second
time asking for the coordinates), I get an eNotOpenForWrite error and
AutoCAD crashes. Can anyone point me in the direction that's causing this?

Below is my code. Obviously, one would have to create a CommandMethod before
running this, but I figured I didn't have to supply it as that code does is
point to this code.



Imports acadApp = Autodesk.AutoCAD.ApplicationServices

Imports acadDB = Autodesk.AutoCAD.DatabaseServices

Imports acadED = Autodesk.AutoCAD.EditorInput

Imports acadGo = Autodesk.AutoCAD.Geometry

Imports acadRT = Autodesk.AutoCAD.Runtime

Module Coordinates

Dim CurrentStack As System.Diagnostics.StackTrace

Public Sub Coordinates()

' declare local variables

Dim doc As acadApp.Document = _

acadApp.Application.DocumentManager.MdiActiveDocument

Dim ed As acadED.Editor = doc.Editor

Dim db As acadDB.Database = doc.Database

Dim tr As Transaction = db.TransactionManager.StartTransaction

Dim btr As BlockTableRecord

Dim docLock As acadApp.DocumentLock = _

doc.LockDocument(acadApp.DocumentLockMode.AutoWrite, "Coords", "Coords",
True)

'Dim docLock As acadApp.DocumentLock = doc.LockDocument

Dim ValueEntered As Boolean

Dim pdMode As Integer = ed.Document.Database.Pdmode

Dim pdSize As Double = ed.Document.Database.Pdsize

Dim ptOrigin As acadGo.Point3d = ed.Document.Database.Ucsorg

Dim UCSIcon As Object = acadApp.Application.GetSystemVariable("UCSICON")

Try

acadApp.Application.SetSystemVariable("PDMODE", 35)

acadApp.Application.SetSystemVariable("PDSIZE", 0.25)

Begin:

acadApp.Application.SetSystemVariable("UCSICON", 1)

ValueEntered = True

btr = DirectCast( _

tr.GetObject(doc.Database.CurrentSpaceId, acadDB.OpenMode.ForWrite), _

BlockTableRecord)

' Prompt the user to input any of the keywords

Dim keyOptions As acadED.PromptKeywordOptions = _

New acadED.PromptKeywordOptions(Environment.NewLine + _

"Select the axis to be halved: ")

keyOptions.Keywords.Add("X")

keyOptions.Keywords.Add("Y")

keyOptions.Keywords.Add("None")

keyOptions.Keywords.Add("All")

keyOptions.Keywords.Add("Done")

keyOptions.Keywords.Default = My.Settings.AxisToHalve

Dim HalfAxis As acadED.PromptResult = ed.GetKeywords(keyOptions)

If (HalfAxis.Status = PromptStatus.Keyword) Or _

(HalfAxis.Status = PromptStatus.OK) Then

If HalfAxis.StringResult <> "Done" Then

' Store default AxisToHalve

My.Settings.AxisToHalve = HalfAxis.StringResult

Do Until ValueEntered = False

' Get the X coordinate

Dim pointX As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter X coordinate: ")

If (pointX.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

' Get the Y coordinate

Dim pointY As acadED.PromptDoubleResult = _

ed.GetDouble(Environment.NewLine + "Enter Y coordinate: ")

If (pointY.Status <> PromptStatus.OK) Then

ValueEntered = False

'Exit Do

End If

Dim myPoint As acadGo.Point3d

Select Case HalfAxis.StringResult

Case "X"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value, 0)

Case "Y"

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value / 2, 0)

Case "All"

myPoint = New acadGo.Point3d(pointX.Value / 2, pointY.Value / 2, 0)

Case Else

myPoint = New acadGo.Point3d(pointX.Value, pointY.Value, 0)

End Select

Dim dbpt As acadDB.DBPoint = New acadDB.DBPoint(myPoint)

'dbpt.SetDatabaseDefaults(db)

btr.AppendEntity(dbpt)

tr.AddNewlyCreatedDBObject(dbpt, True)

tr.Commit()

Loop

GoTo Begin

End If

End If

Catch acEx As acadRT.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + acEx.Message, _

MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, _

acEx.ErrorStatus.ToString())

tr.Abort()

Catch nullEx As System.NullReferenceException

Catch ex As System.Exception

MsgBox(CurrentStack.GetFrame(0).GetFileLineNumber + ": " + ex.Message, _

MsgBoxStyle.Critical + MsgBoxStyle.Critical, _

ex.InnerException.ToString())

tr.Abort()

Finally

' reset variables to original state

acadApp.Application.SetSystemVariable("PDMODE", pdMode)

acadApp.Application.SetSystemVariable("PDSIZE", pdSize)

'acadApp.Application.SetSystemVariable("UCSICON", sUCSIcon)

'acadApp.Application.SetSystemVariable("UCSORG", ptOrigin)

docLock.Dispose()

End Try

End Sub

End Module
0 Likes
Like
Report
Report a website issue