topic Re: Xrecords (going from VBA to .NET) in .NET Forum

Xrecords (going from VBA to .NET)

Anonymous — Thu, 10 Jul 2008 04:34:06 GMT

Hello,

I have been spinning my wheels for near on 8 months now trying to figure
out how to create (and then read) Xrecords in .NET. Thus far i haven't
found any posts/lessons that have been of any help.

Below are the 2 VBA functions I use to create/read/delete my Xrecords in
AutoCAD. I hope someone can get me going in the right direction (this
little problem stands in my way of moving my applications to .NET).

Thank you to whoever decides to help me 😆

--------------------------------------
--------------------------------------
Create:::
Public Function vb_sxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo Create
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
If VarType(XRecordDataType) And vbArray = vbArray Then
Else
ReDim XRecordDataType(0) As Integer
ReDim XRecordData(0) As Variant
End If
XRecordDataType(0) = TYPE_STRING: XRecordData(0) =
ThisDrawing.GetVariable("USERS1")
TrackingXRecord.SetXRecordData XRecordDataType, XRecordData
Exit Function

Create:
If TrackingDictionary Is Nothing Then
Set TrackingDictionary =
ThisDrawing.Dictionaries.Add(TAG_DICTIONARY_NAME)
Set TrackingXRecord =
TrackingDictionary.AddXRecord(TAG_XRECORD_NAME)
End If
Resume
End Function

--------------------------------------
--------------------------------------
Read:::
Public Function vb_gxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
' Dim iCount As Long
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo NONE
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
DimSet = XRecordData(0)
Exit Function
NONE:
DimSet = ""
End Function

--------------------------------------
--------------------------------------
Delete:::
Public Function vb_rxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo NONE
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
If VarType(XRecordDataType) And vbArray = vbArray Then
Else
ReDim XRecordDataType(0) As Integer
ReDim XRecordData(0) As Variant
End If
XRecordDataType(0) = TYPE_STRING: XRecordData(0) =
ThisDrawing.GetVariable("USERS1")
TrackingXRecord.SetXRecordData XRecordDataType, XRecordData
TrackingDictionary.Delete
RemTRKFT
Exit Function
NONE:
End Function

Re: Xrecords (going from VBA to .NET)

Anonymous — Thu, 10 Jul 2008 10:27:32 GMT

Did you try searching this newsgroup ?

I seem to recall quite a few posts on the topic, so
maybe a search on 'XRecord' might turn up something.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5977788@discussion.autodesk.com...
Hello,

I have been spinning my wheels for near on 8 months now trying to figure
out how to create (and then read) Xrecords in .NET. Thus far i haven't
found any posts/lessons that have been of any help.

Below are the 2 VBA functions I use to create/read/delete my Xrecords in
AutoCAD. I hope someone can get me going in the right direction (this
little problem stands in my way of moving my applications to .NET).

Thank you to whoever decides to help me 😆

--------------------------------------
--------------------------------------
Create:::
Public Function vb_sxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo Create
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
If VarType(XRecordDataType) And vbArray = vbArray Then
Else
ReDim XRecordDataType(0) As Integer
ReDim XRecordData(0) As Variant
End If
XRecordDataType(0) = TYPE_STRING: XRecordData(0) =
ThisDrawing.GetVariable("USERS1")
TrackingXRecord.SetXRecordData XRecordDataType, XRecordData
Exit Function

Create:
If TrackingDictionary Is Nothing Then
Set TrackingDictionary =
ThisDrawing.Dictionaries.Add(TAG_DICTIONARY_NAME)
Set TrackingXRecord =
TrackingDictionary.AddXRecord(TAG_XRECORD_NAME)
End If
Resume
End Function

--------------------------------------
--------------------------------------
Read:::
Public Function vb_gxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
' Dim iCount As Long
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo NONE
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
DimSet = XRecordData(0)
Exit Function
NONE:
DimSet = ""
End Function

--------------------------------------
--------------------------------------
Delete:::
Public Function vb_rxr()
Dim TrackingDictionary As AcadDictionary, TrackingXRecord As
AcadXRecord
Dim XRecordDataType As Variant, XRecordData As Variant
Dim DataType As Integer, Data As String, msg As String
Const TYPE_STRING = 1
Const TAG_DICTIONARY_NAME = "TRK Page"
Const TAG_XRECORD_NAME = "Layout"
On Error GoTo NONE
Set TrackingDictionary = ThisDrawing.Dictionaries(TAG_DICTIONARY_NAME)
Set TrackingXRecord = TrackingDictionary.GetObject(TAG_XRECORD_NAME)
On Error GoTo 0
TrackingXRecord.GetXRecordData XRecordDataType, XRecordData
If VarType(XRecordDataType) And vbArray = vbArray Then
Else
ReDim XRecordDataType(0) As Integer
ReDim XRecordData(0) As Variant
End If
XRecordDataType(0) = TYPE_STRING: XRecordData(0) =
ThisDrawing.GetVariable("USERS1")
TrackingXRecord.SetXRecordData XRecordDataType, XRecordData
TrackingDictionary.Delete
RemTRKFT
Exit Function
NONE:
End Function

Re: Xrecords (going from VBA to .NET)

Anonymous — Thu, 10 Jul 2008 15:06:41 GMT

I've looked here a few times. they only seem to deal with xrecords on
objects...?

Tony Tanzillo wrote:
> Did you try searching this newsgroup ?
>
> I seem to recall quite a few posts on the topic, so
> maybe a search on 'XRecord' might turn up something.
>

Re: Xrecords (going from VBA to .NET)

Anonymous — Thu, 10 Jul 2008 22:13:39 GMT

Try searching on 'NamedObjectsDictionaryId'.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5978249@discussion.autodesk.com...
I've looked here a few times. they only seem to deal with xrecords on
objects...?

Tony Tanzillo wrote:
> Did you try searching this newsgroup ?
>
> I seem to recall quite a few posts on the topic, so
> maybe a search on 'XRecord' might turn up something.
>

Re: Xrecords (going from VBA to .NET)

Anonymous — Thu, 10 Jul 2008 23:05:04 GMT

ok, that gave me a few results (several that i had already looked at).

The only one that "seems" to be what I am after does not look like .NET
code?

---------------------

        Void(MakeXRecord())

        {

            Xrecord rec=new Xrecord();//Creates a Xrecord object

            rec.Data=new ResultBuffer(

                    new TypedValue((int)DxfCode.Text,

                                        "This is a test"),

                    new TypedValue((int)DxfCode.Int8,0),

                    new TypedValue((int)DxfCode.UcsOrg,

                                      new Point3d(0,0,0))

            );//Use the Data property of Xreord to

              //set the contents of the Xrecord object.

            Tools.AddDictionaryObject("test",rec,

                 Tools.Database.NamedObjectsDictionaryId);

            //Use the AddDictionaryObject() function to add the

            //Xrcord object to AutoCAD database.

            //list the entries we just added

            foreach (TypedValue rb in rec.Data)

            {

               Tools.Editor.WriteMessage(string.Format("TypedCode={0},

                                  Value={1}\n",rb.TypeCode,rb.Value));

            }

        }

-------------------------------

Work: VISTA
Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram,
color="#666666">GeForce 6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64 Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

Tony Tanzillo wrote:

Try searching on 'NamedObjectsDictionaryId'.

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:13:48 GMT

Seems to be working for me

Imports System
Imports System.Reflection
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Interop

Imports System.Windows.Forms.Form
'#
Public Class DictionaryUtils

_
Sub AddXDict()
Dim db As Database = HostApplicationServices.WorkingDatabase
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim nod As DBDictionary = trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite, False)
Dim dc As DBDictionary
Try
dc = trans.GetObject(nod.GetAt("TestDict"), OpenMode.ForWrite)
Catch
dc = New DBDictionary()
nod.SetAt("TestDict", dc)
trans.AddNewlyCreatedDBObject(dc, True)
End Try
Dim xr As Xrecord
Try
xr = trans.GetObject(dc.GetAt("XREC1"), OpenMode.ForWrite)
Catch
xr = New Xrecord()
xr.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "This a test XRecord"), _
New TypedValue(DxfCode.Angle, 3.14159), _
New TypedValue(DxfCode.Real, 1234.56789), _
New TypedValue(DxfCode.Int32, 1234), _
New TypedValue(DxfCode.Color, 1))

dc.SetAt("XREC1", xr)
trans.AddNewlyCreatedDBObject(xr, True)
End Try
trans.Commit()
End Using
End Sub

Public Shared Sub ReadXrecData(ByVal dictName As String, ByVal xrecName As String)

Dim db As Database = HostApplicationServices.WorkingDatabase
Using trans As Transaction = db.TransactionManager.StartTransaction()

Try
Dim nod As DBDictionary = CType(trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead), DBDictionary)
Dim dc As DBDictionary = CType(trans.GetObject(nod.GetAt(dictName), OpenMode.ForRead), DBDictionary)
Dim xr As Xrecord
xr = CType(trans.GetObject(dc.GetAt(xrecName), OpenMode.ForRead, False), Xrecord)
Dim rbuf As ResultBuffer = xr.Data
If rbuf Is Nothing Then
MsgBox(ControlChars.CrLf & "Xrecord does not have data attached.")
Else
Dim n As Integer = 0
Dim strRet As String = String.Empty
For Each itm As TypedValue In rbuf
strRet = strRet & String.Format(ControlChars.CrLf & "Item {0}" & ControlChars.Tab & "type: {1}" & ControlChars.Tab & "value: {2}", System.Math.Min(System.Threading.Interlocked.Increment(n), n - 1), itm.TypeCode, itm.Value)
Next
MsgBox(strRet)
rbuf.Dispose()
End If
trans.Commit()
Catch caught As System.Exception
MessageBox.Show(caught.StackTrace)
End Try
End Using

End Sub
...................
End Class
'#

~'J'~

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:27:58 GMT

I can't tell you because your posts contain gibberish.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5978882@discussion.autodesk.com...
ok, that gave me a few results (several that i had already looked at).

The only one that "seems" to be what I am after does not look like .NET code?
---------------------
Â Â Â Â Â Â Â Void(MakeXRecord())
Â Â Â Â Â Â Â {

Â Â Â Â Â Â Â Â Â Â Â Xrecord rec=new Xrecord();//Creates a Xrecord object

Â Â Â Â Â Â Â Â Â Â Â rec.Data=new ResultBuffer(
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.Text,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â "This is a test"),
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.Int8,0),
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.UcsOrg,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new Point3d(0,0,0))
Â Â Â Â Â Â Â Â Â Â Â );//Use the Data property of Xreord to

Â Â Â Â Â Â Â Â Â Â Â Â Â //set the contents of the Xrecord object.

Â Â Â Â Â Â Â Â Â Â Â Tools.AddDictionaryObject("test",rec,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Tools.Database.NamedObjectsDictionaryId);
Â Â Â Â Â Â Â Â Â Â Â //Use the AddDictionaryObject() function to add the

Â Â Â Â Â Â Â Â Â Â Â //Xrcord object to AutoCAD database.

Â Â Â Â Â Â Â Â Â Â Â //list the entries we just added

Â Â Â Â Â Â Â Â Â Â Â foreach (TypedValue rb in rec.Data)
Â Â Â Â Â Â Â Â Â Â Â {
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Tools.Editor.WriteMessage(string.Format("TypedCode={0},
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Value={1}\n",rb.TypeCode,rb.Value));
Â Â Â Â Â Â Â Â Â Â Â }
Â Â Â Â Â Â Â }
-------------------------------

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
Try searching on 'NamedObjectsDictionaryId'.

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:36:09 GMT

Forgot to say that this code was stealed from Lab4
Take a look at CreateDivision sub from there

~'J'~

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:47:13 GMT

I didn't know the labs had an XRecprd example.

Why didn't you go through the labs in the first place?

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5978882@discussion.autodesk.com...
ok, that gave me a few results (several that i had already looked at).

The only one that "seems" to be what I am after does not look like .NET code?
---------------------
Â Â Â Â Â Â Â Void(MakeXRecord())
Â Â Â Â Â Â Â {

Â Â Â Â Â Â Â Â Â Â Â Xrecord rec=new Xrecord();//Creates a Xrecord object

Â Â Â Â Â Â Â Â Â Â Â rec.Data=new ResultBuffer(
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.Text,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â "This is a test"),
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.Int8,0),
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new TypedValue((int)DxfCode.UcsOrg,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â new Point3d(0,0,0))
Â Â Â Â Â Â Â Â Â Â Â );//Use the Data property of Xreord to

Â Â Â Â Â Â Â Â Â Â Â Â Â //set the contents of the Xrecord object.

Â Â Â Â Â Â Â Â Â Â Â Tools.AddDictionaryObject("test",rec,
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Tools.Database.NamedObjectsDictionaryId);
Â Â Â Â Â Â Â Â Â Â Â //Use the AddDictionaryObject() function to add the

Â Â Â Â Â Â Â Â Â Â Â //Xrcord object to AutoCAD database.

Â Â Â Â Â Â Â Â Â Â Â //list the entries we just added

Â Â Â Â Â Â Â Â Â Â Â foreach (TypedValue rb in rec.Data)
Â Â Â Â Â Â Â Â Â Â Â {
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Tools.Editor.WriteMessage(string.Format("TypedCode={0},
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Value={1}\n",rb.TypeCode,rb.Value));
Â Â Â Â Â Â Â Â Â Â Â }
Â Â Â Â Â Â Â }
-------------------------------

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
Try searching on 'NamedObjectsDictionaryId'.

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:54:56 GMT

Sorry,
I have the big disorder in my files,
therefore I have recollected just after I have sent
my response to this thread

~'J'~

Re: Xrecords (going from VBA to .NET)

Anonymous — Fri, 11 Jul 2008 06:57:15 GMT

Here is this code I have talking about

-------------snip

Private Sub CreateDivision()
Dim db As Database = HostApplicationServices.WorkingDatabase
Using trans As Transaction = db.TransactionManager.StartTransaction()
'First, get the NOD...
Dim NOD As DBDictionary = trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite, False)
'Define a corporate level dictionary
Dim acmeDict As DBDictionary
Try
'if it exists, just get it
acmeDict = trans.GetObject(NOD.GetAt("ACME_DIVISION"), OpenMode.ForRead)
Catch
'Doesn't exist, so create one
acmeDict = New DBDictionary()
NOD.SetAt("ACME_DIVISION", acmeDict)
trans.AddNewlyCreatedDBObject(acmeDict, True)
End Try

'Now get the division we want from acmeDict
Dim divDict As DBDictionary
Try
divDict = trans.GetObject(acmeDict.GetAt("Sales"), OpenMode.ForWrite)
Catch
divDict = New DBDictionary() 'Division doesn't exist, create one
acmeDict.UpgradeOpen()
acmeDict.SetAt("Sales", divDict)
trans.AddNewlyCreatedDBObject(divDict, True)
End Try

'Now get the manager info from the division
'We need to add the name of the division supervisor. We'll do this with another XRecord.
Dim mgrXRec As Xrecord
Try
mgrXRec = trans.GetObject(divDict.GetAt("Department Manager"), OpenMode.ForWrite)
Catch
mgrXRec = New Xrecord()
mgrXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "Randolph P. Brokwell"))
divDict.SetAt("Department Manager", mgrXRec)
trans.AddNewlyCreatedDBObject(mgrXRec, True)
End Try
trans.Commit()
End Using
End Sub

---------snip

~'J'~

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 16:01:00 GMT

This is what I have now.. (mostly from the labs). But either my "get"
program is really wrong.. or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block.. I
don't want it attached to anything..?

    <CommandMethod("test-set")> _

    Public Sub Create_Page_Xrecord() 'Public Sub
Create_Page_Xrecord(ByVal Page_String As String)

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)

            Dim TRKDict As DBDictionary

            Try

                TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"),
OpenMode.ForRead)

            Catch

                TRKDict = New DBDictionary

                NOD.SetAt("TRK Settings", TRKDict)

                trans.AddNewlyCreatedDBObject(TRKDict, True)

            End Try

            Dim PageDict As DBDictionary

            Try

                PageDict = trans.GetObject(TRKDict.GetAt("Page
Settings"), OpenMode.ForWrite)

            Catch

                PageDict = New DBDictionary()

                TRKDict.UpgradeOpen()

                TRKDict.SetAt("Page Settings", PageDict)

                trans.AddNewlyCreatedDBObject(PageDict, True)

            End Try

            Dim SettingsXRec As Xrecord

            Try

                SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForWrite)

            Catch

                SettingsXRec = New Xrecord()

                SettingsXRec.Data = New ResultBuffer(New
TypedValue(DxfCode.Text, "test"))

                PageDict.SetAt("Settings Info", SettingsXRec)

                trans.AddNewlyCreatedDBObject(SettingsXRec, True)

            End Try

            trans.Commit()

        Finally

            trans.Dispose()

        End Try

    End Sub

    <CommandMethod("test-get")> _

    Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord()
As String

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Dim DimsetXrecExists As Boolean = True

        Dim SettingsXRec As Xrecord

        Dim XrecValue As String

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)

            Dim TRKDict As DBDictionary =
trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)

            Dim PageDict As DBDictionary =
trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)

            SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForRead)

            XrecValue = SettingsXRec.Data.AsArray(0).ToString

        Catch

            DimsetXrecExists = False

        End Try

        If DimsetXrecExists Then

            'Read_Page_Xrecord = XrecValue

            MsgBox(XrecValue, MsgBoxStyle.Information)

        Else

            'Read_Page_Xrecord = ""

            MsgBox("nothing found", MsgBoxStyle.Information)

        End If

    End Sub

Tony Tanzillo wrote:

I didn't know the labs had an XRecprd example.



Why didn't you go through the labs in the first place?

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 18:07:29 GMT

ok, I've refined the code (and found the "error" i had before). So I
can "set" and "read" the xrecord just like I did in VBA.. now I'm left
with how to I change it once created? Can it be done (if so how?),
or do I have to recreate the xrecord (again, how?)?

C Witt wrote:

This is what I have now.. (mostly
from the labs). But either my "get"
program is really wrong.. or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block.. I
don't want it attached to anything..?

    <CommandMethod("test-set")> _

    Public Sub Create_Page_Xrecord() 'Public Sub
Create_Page_Xrecord(ByVal Page_String As String)

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)

            Dim TRKDict As DBDictionary

            Try

                TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"),
OpenMode.ForRead)

            Catch

                TRKDict = New DBDictionary

                NOD.SetAt("TRK Settings", TRKDict)

                trans.AddNewlyCreatedDBObject(TRKDict, True)

            End Try

            Dim PageDict As DBDictionary

            Try

                PageDict = trans.GetObject(TRKDict.GetAt("Page
Settings"), OpenMode.ForWrite)

            Catch

                PageDict = New DBDictionary()

                TRKDict.UpgradeOpen()

                TRKDict.SetAt("Page Settings", PageDict)

                trans.AddNewlyCreatedDBObject(PageDict, True)

            End Try

            Dim SettingsXRec As Xrecord

            Try

                SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForWrite)

            Catch

                SettingsXRec = New Xrecord()

                SettingsXRec.Data = New ResultBuffer(New
TypedValue(DxfCode.Text, "test"))

                PageDict.SetAt("Settings Info", SettingsXRec)

                trans.AddNewlyCreatedDBObject(SettingsXRec, True)

            End Try

            trans.Commit()

        Finally

            trans.Dispose()

        End Try

    End Sub

    <CommandMethod("test-get")> _

    Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord()
As String

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Dim DimsetXrecExists As Boolean = True

        Dim SettingsXRec As Xrecord

        Dim XrecValue As String

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)

            Dim TRKDict As DBDictionary =
trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)

            Dim PageDict As DBDictionary =
trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)

            SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForRead)

            XrecValue = SettingsXRec.Data.AsArray(0).ToString

        Catch

            DimsetXrecExists = False

        End Try

        If DimsetXrecExists Then

            'Read_Page_Xrecord = XrecValue

            MsgBox(XrecValue, MsgBoxStyle.Information)

        Else

            'Read_Page_Xrecord = ""

            MsgBox("nothing found", MsgBoxStyle.Information)

        End If

    End Sub

Work: VISTA
Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram,
color="#666666">GeForce 6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64
Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.



Why didn't you go through the labs in the first place?



  

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 18:20:09 GMT

Looks like that has been solved too.

C Witt wrote:

ok, I've refined the code (and found
the "error" i had before). So I
can "set" and "read" the xrecord just like I did in VBA.. now I'm left
with how to I change it once created? Can it be done (if so how?),
or do I have to recreate the xrecord (again, how?)?

Work: VISTA
Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram,
color="#666666">GeForce 6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64
Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

C Witt wrote:
This is what I have now.. (mostly
from the labs). But either my "get"
program is really wrong.. or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block.. I
don't want it attached to anything..?

    <CommandMethod("test-set")> _

    Public Sub Create_Page_Xrecord() 'Public Sub
Create_Page_Xrecord(ByVal Page_String As String)

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)

            Dim TRKDict As DBDictionary

            Try

                TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"),
OpenMode.ForRead)

            Catch

                TRKDict = New DBDictionary

                NOD.SetAt("TRK Settings", TRKDict)

                trans.AddNewlyCreatedDBObject(TRKDict, True)

            End Try

            Dim PageDict As DBDictionary

            Try

                PageDict = trans.GetObject(TRKDict.GetAt("Page
Settings"), OpenMode.ForWrite)

            Catch

                PageDict = New DBDictionary()

                TRKDict.UpgradeOpen()

                TRKDict.SetAt("Page Settings", PageDict)

                trans.AddNewlyCreatedDBObject(PageDict, True)

            End Try

            Dim SettingsXRec As Xrecord

            Try

                SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForWrite)

            Catch

                SettingsXRec = New Xrecord()

                SettingsXRec.Data = New ResultBuffer(New
TypedValue(DxfCode.Text, "test"))

                PageDict.SetAt("Settings Info", SettingsXRec)

                trans.AddNewlyCreatedDBObject(SettingsXRec, True)

            End Try

            trans.Commit()

        Finally

            trans.Dispose()

        End Try

    End Sub

    <CommandMethod("test-get")> _

    Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord()
As String

        Dim db = HostApplicationServices.WorkingDatabase

        Dim trans As Transaction =
db.transactionmanager.starttransaction

        Dim DimsetXrecExists As Boolean = True

        Dim SettingsXRec As Xrecord

        Dim XrecValue As String

        Try

            Dim NOD As DBDictionary =
trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)

            Dim TRKDict As DBDictionary =
trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)

            Dim PageDict As DBDictionary =
trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)

            SettingsXRec = trans.GetObject(PageDict.GetAt("Settings
Info"), OpenMode.ForRead)

            XrecValue = SettingsXRec.Data.AsArray(0).ToString

        Catch

            DimsetXrecExists = False

        End Try

        If DimsetXrecExists Then

            'Read_Page_Xrecord = XrecValue

            MsgBox(XrecValue, MsgBoxStyle.Information)

        Else

            'Read_Page_Xrecord = ""

            MsgBox("nothing found", MsgBoxStyle.Information)

        End If

    End Sub

Work: VISTA
Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram,
color="#666666">GeForce 6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64
Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.



Why didn't you go through the labs in the first place?



  

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 21:45:12 GMT

Sorry, your post are unreadable.

Try looking at one of your posts with Outlook Express

It's all gibberish.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5980821@discussion.autodesk.com...
This is what I have now.. (mostly from the labs).Â But either my "get" program is really wrong..Â or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block..Â I don't want it attached to anything..?

Â Â Â _
Â Â Â Public Sub Create_Page_Xrecord() 'Public Sub Create_Page_Xrecord(ByVal Page_String As String)
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = New DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â NOD.SetAt("TRK Settings", TRKDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(TRKDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = New DBDictionary()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.UpgradeOpen()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.SetAt("Page Settings", PageDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(PageDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = New Xrecord()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "test"))
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict.SetAt("Settings Info", SettingsXRec)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(SettingsXRec, True)
Â Â Â Â Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â Â Â Â Â trans.Commit()
Â Â Â Â Â Â Â Finally
Â Â Â Â Â Â Â Â Â Â Â trans.Dispose()
Â Â Â Â Â Â Â End Try
Â Â Â End Sub

Â Â Â _
Â Â Â Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord() As String
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Dim DimsetXrecExists As Boolean = True
Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Dim XrecValue As String
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â XrecValue = SettingsXRec.Data.AsArray(0).ToString
Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â DimsetXrecExists = False
Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â If DimsetXrecExists Then
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = XrecValue
Â Â Â Â Â Â Â Â Â Â Â MsgBox(XrecValue, MsgBoxStyle.Information)
Â Â Â Â Â Â Â Else
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = ""
Â Â Â Â Â Â Â Â Â Â Â MsgBox("nothing found", MsgBoxStyle.Information)
Â Â Â Â Â Â Â End If
Â Â Â End Sub

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.

Why didn't you go through the labs in the first place?

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 22:01:31 GMT

His posts show fine here in Outlook Express 6 - I only see the Â's in your post backs. Maybe a setting you have?

"Tony Tanzillo" wrote in message news:5981159@discussion.autodesk.com...
Sorry, your post are unreadable.

Try looking at one of your posts with Outlook Express

It's all gibberish.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5980821@discussion.autodesk.com...
This is what I have now.. (mostly from the labs).Â But either my "get" program is really wrong..Â or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block..Â I don't want it attached to anything..?

Â Â Â _
Â Â Â Public Sub Create_Page_Xrecord() 'Public Sub Create_Page_Xrecord(ByVal Page_String As String)
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = New DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â NOD.SetAt("TRK Settings", TRKDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(TRKDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = New DBDictionary()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.UpgradeOpen()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.SetAt("Page Settings", PageDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(PageDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = New Xrecord()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "test"))
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict.SetAt("Settings Info", SettingsXRec)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(SettingsXRec, True)
Â Â Â Â Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â Â Â Â Â trans.Commit()
Â Â Â Â Â Â Â Finally
Â Â Â Â Â Â Â Â Â Â Â trans.Dispose()
Â Â Â Â Â Â Â End Try
Â Â Â End Sub

Â Â Â _
Â Â Â Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord() As String
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Dim DimsetXrecExists As Boolean = True
Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Dim XrecValue As String
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â XrecValue = SettingsXRec.Data.AsArray(0).ToString
Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â DimsetXrecExists = False
Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â If DimsetXrecExists Then
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = XrecValue
Â Â Â Â Â Â Â Â Â Â Â MsgBox(XrecValue, MsgBoxStyle.Information)
Â Â Â Â Â Â Â Else
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = ""
Â Â Â Â Â Â Â Â Â Â Â MsgBox("nothing found", MsgBoxStyle.Information)
Â Â Â Â Â Â Â End If
Â Â Â End Sub

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.

Why didn't you go through the labs in the first place?

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 22:04:44 GMT

OE 6 here as well, everything set to defaults, with Unicode encoding.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"Paul Richardson" wrote in message news:5981169@discussion.autodesk.com...
His posts show fine here in Outlook Express 6 - I only see the Â's in your post backs. Maybe a setting you have?

"Tony Tanzillo" wrote in message news:5981159@discussion.autodesk.com...
Sorry, your post are unreadable.

Try looking at one of your posts with Outlook Express

It's all gibberish.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5980821@discussion.autodesk.com...
This is what I have now.. (mostly from the labs).Â But either my "get" program is really wrong..Â or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block..Â I don't want it attached to anything..?

Â Â Â _
Â Â Â Public Sub Create_Page_Xrecord() 'Public Sub Create_Page_Xrecord(ByVal Page_String As String)
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = New DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â NOD.SetAt("TRK Settings", TRKDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(TRKDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = New DBDictionary()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.UpgradeOpen()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.SetAt("Page Settings", PageDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(PageDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = New Xrecord()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "test"))
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict.SetAt("Settings Info", SettingsXRec)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(SettingsXRec, True)
Â Â Â Â Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â Â Â Â Â trans.Commit()
Â Â Â Â Â Â Â Finally
Â Â Â Â Â Â Â Â Â Â Â trans.Dispose()
Â Â Â Â Â Â Â End Try
Â Â Â End Sub

Â Â Â _
Â Â Â Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord() As String
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Dim DimsetXrecExists As Boolean = True
Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Dim XrecValue As String
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â XrecValue = SettingsXRec.Data.AsArray(0).ToString
Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â DimsetXrecExists = False
Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â If DimsetXrecExists Then
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = XrecValue
Â Â Â Â Â Â Â Â Â Â Â MsgBox(XrecValue, MsgBoxStyle.Information)
Â Â Â Â Â Â Â Else
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = ""
Â Â Â Â Â Â Â Â Â Â Â MsgBox("nothing found", MsgBoxStyle.Information)
Â Â Â Â Â Â Â End If
Â Â Â End Sub

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.

Why didn't you go through the labs in the first place?

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 22:37:51 GMT

They look fine to me (checked outlook on another computer). Only your
posts show that extra formatting..?

Tony Tanzillo wrote:

OE 6 here as well, everything set to defaults, with Unicode encoding.

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 22:38:08 GMT

Paul Richardson wrote:

> His posts show fine here in Outlook Express 6 ...

Also look fine in Thunderbird 2.0.

Terry

Re: Xrecords (going from VBA to .NET)

Anonymous — Mon, 14 Jul 2008 22:40:15 GMT

I was using Western European - changing to Unicode 8 does not give me any Â's. Maybe because
I've already downloaded his posts. We'll see with future posts...

"Tony Tanzillo" wrote in message news:5981200@discussion.autodesk.com...
OE 6 here as well, everything set to defaults, with Unicode encoding.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"Paul Richardson" wrote in message news:5981169@discussion.autodesk.com...
His posts show fine here in Outlook Express 6 - I only see the Â's in your post backs. Maybe a setting you have?

"Tony Tanzillo" wrote in message news:5981159@discussion.autodesk.com...
Sorry, your post are unreadable.

Try looking at one of your posts with Outlook Express

It's all gibberish.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message news:5980821@discussion.autodesk.com...
This is what I have now.. (mostly from the labs).Â But either my "get" program is really wrong..Â or the "set" does not work..?

Unfortunately the labs demo has the Xrecord attached to a block..Â I don't want it attached to anything..?

Â Â Â _
Â Â Â Public Sub Create_Page_Xrecord() 'Public Sub Create_Page_Xrecord(ByVal Page_String As String)
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectsdictionaryid, OpenMode.ForWrite, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict = New DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â NOD.SetAt("TRK Settings", TRKDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(TRKDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict = New DBDictionary()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.UpgradeOpen()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRKDict.SetAt("Page Settings", PageDict)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(PageDict, True)
Â Â Â Â Â Â Â Â Â Â Â End Try

Â Â Â Â Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForWrite)
Â Â Â Â Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = New Xrecord()
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SettingsXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, "test"))
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PageDict.SetAt("Settings Info", SettingsXRec)
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â trans.AddNewlyCreatedDBObject(SettingsXRec, True)
Â Â Â Â Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â Â Â Â Â trans.Commit()
Â Â Â Â Â Â Â Finally
Â Â Â Â Â Â Â Â Â Â Â trans.Dispose()
Â Â Â Â Â Â Â End Try
Â Â Â End Sub

Â Â Â _
Â Â Â Public Sub Read_Page_Xrecord() 'Public Function Read_Page_Xrecord() As String
Â Â Â Â Â Â Â Dim db = HostApplicationServices.WorkingDatabase
Â Â Â Â Â Â Â Dim trans As Transaction = db.transactionmanager.starttransaction
Â Â Â Â Â Â Â Dim DimsetXrecExists As Boolean = True
Â Â Â Â Â Â Â Dim SettingsXRec As Xrecord
Â Â Â Â Â Â Â Dim XrecValue As String
Â Â Â Â Â Â Â Try
Â Â Â Â Â Â Â Â Â Â Â Dim NOD As DBDictionary = trans.GetObject(db.namedobjectdictionaryid, OpenMode.ForRead, False)
Â Â Â Â Â Â Â Â Â Â Â Dim TRKDict As DBDictionary = trans.GetObject(NOD.GetAt("TRK Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â Dim PageDict As DBDictionary = trans.GetObject(TRKDict.GetAt("Page Settings"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â SettingsXRec = trans.GetObject(PageDict.GetAt("Settings Info"), OpenMode.ForRead)
Â Â Â Â Â Â Â Â Â Â Â XrecValue = SettingsXRec.Data.AsArray(0).ToString
Â Â Â Â Â Â Â Catch
Â Â Â Â Â Â Â Â Â Â Â DimsetXrecExists = False
Â Â Â Â Â Â Â End Try
Â Â Â Â Â Â Â If DimsetXrecExists Then
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = XrecValue
Â Â Â Â Â Â Â Â Â Â Â MsgBox(XrecValue, MsgBoxStyle.Information)
Â Â Â Â Â Â Â Else
Â Â Â Â Â Â Â Â Â Â Â 'Read_Page_Xrecord = ""
Â Â Â Â Â Â Â Â Â Â Â MsgBox("nothing found", MsgBoxStyle.Information)
Â Â Â Â Â Â Â End If
Â Â Â End Sub

Work: VISTA Ultimate x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram, Nvidia GeForce 6150

Tony Tanzillo wrote:
I didn't know the labs had an XRecprd example.

Why didn't you go through the labs in the first place?