Xdata

[Anonymous]

I have set some data in a dictionary like this in VBA, how can i do this in
c#.net and how do i get this data again?

Public Sub MSTMDictWrite(UFAK, UNIT, SFAK, LayoutMM)

Dim dctMyDict As AcadDictionary
Dim xrecMyRecord As AcadXRecord

Dim varType(3) As Integer
Dim varData(3) As Variant

varType(0) = 40
varData(0) = UFAK
varType(1) = 0
varData(1) = UNIT
varType(2) = 41
varData(2) = SFAK
varType(3) = 60
varData(3) = LayoutMM

Set dctMyDict = ThisDrawing.dictionaries.Add("PAUSER")


Set xrecMyRecord = dctMyDict.AddXRecord("DWGInfoMassstab")
'xrecMyRecord.SetXData varType, varData

xrecMyRecord.SetXRecordData varType, varData

End Sub


--
Roland Feletic

[Anonymous]

Hello RolandF,

I wrpote a very simple C# sample project.
I hope it will help you get started.

Cheers,
Adam

> I have set some data in a dictionary like this in VBA, how can i do
> this in
>
> c#.net and how do i get this data again?
>
> Public Sub MSTMDictWrite(UFAK, UNIT, SFAK, LayoutMM)
>
> Dim dctMyDict As AcadDictionary
> Dim xrecMyRecord As AcadXRecord
> Dim varType(3) As Integer
> Dim varData(3) As Variant
> varType(0) = 40
> varData(0) = UFAK
> varType(1) = 0
> varData(1) = UNIT
> varType(2) = 41
> varData(2) = SFAK
> varType(3) = 60
> varData(3) = LayoutMM
> Set dctMyDict = ThisDrawing.dictionaries.Add("PAUSER")
>
> Set xrecMyRecord = dctMyDict.AddXRecord("DWGInfoMassstab")
> 'xrecMyRecord.SetXData varType, varData
> xrecMyRecord.SetXRecordData varType, varData
>
> End Sub
>

[Anonymous]

Thank you,
sorry for my late answere, i was skiing 😉
I think this will help me much, gives me a good start.

--
Roland Feletic

"Adam Nagy" schrieb im Newsbeitrag
news:5034165@discussion.autodesk.com...
Hello RolandF,

I wrpote a very simple C# sample project.
I hope it will help you get started.

Cheers,
Adam

> I have set some data in a dictionary like this in VBA, how can i do
> this in
>
> c#.net and how do i get this data again?
>
> Public Sub MSTMDictWrite(UFAK, UNIT, SFAK, LayoutMM)
>
> Dim dctMyDict As AcadDictionary
> Dim xrecMyRecord As AcadXRecord
> Dim varType(3) As Integer
> Dim varData(3) As Variant
> varType(0) = 40
> varData(0) = UFAK
> varType(1) = 0

> varData(1) = UNIT
> varType(2) = 41
> varData(2) = SFAK
> varType(3) = 60
> varData(3) = LayoutMM
> Set dctMyDict = ThisDrawing.dictionaries.Add("PAUSER")
>
> Set xrecMyRecord = dctMyDict.AddXRecord("DWGInfoMassstab")
> 'xrecMyRecord.SetXData varType, varData
> xrecMyRecord.SetXRecordData varType, varData
>
> End Sub
>