Sorry! I forgot this line
Hi! I did it... this is the code....
Dim Count As Int16 = 0 'I've added this line
For Each attId As ObjectId In Btr
Dim ent As Entity = DirectCast(tr.GetObject(attId, OpenMode.ForRead), Entity)
If TypeOf ent is AttributeDefinition Then
Dim attDef AsAttributeDefinition = DirectCast(ent, AttributeDefinition)
Dim attRef AsNewAttributeReference()
If listTags.Contains(attDef.Tag) Then
AttRef.TextString = ListValues(Count)
Count = Count + 1
Again Hallex thanks for your help! I hope to count on your help if I'll have more questions....
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register