Topic: i ❤ attributes

[poncelet]

Hi all. Ok i create a block (OrionPoint) and a simple attribute (The id of the point eg: 1, 2, 3, 4...)

The create block method:

Code - vb.net: [Select]

    Public Sub Create()
        If Me.Exist = True Then Return
 
        Using dLock As DocumentLock = doc.LockDocument
            Using trans As Transaction = db.TransactionManager.StartTransaction()
                'get the block table
                Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
 
                'create new block table record
                Dim btr As New BlockTableRecord()
                btr.Name = "OrionPoint"
                Dim btrId As ObjectId = bt.Add(btr)
                trans.AddNewlyCreatedDBObject(btr, True)
 
                'create a circle for the outer boundary of the hatch
                Dim circ As Circle = New Circle()
                circ.Center = New Point3d(0, 0, 0)
                circ.Radius = 0.0005 * SCALE_FACTOR
                circ.LineWeight = LineWeight.LineWeight009
 
                'add the circle object to the block table record
                btr.AppendEntity(circ)
                trans.AddNewlyCreatedDBObject(circ, True)
 
                'adds the circle to object id array
                Dim oc As ObjectIdCollection = New ObjectIdCollection()
                oc.Add(circ.ObjectId)
 
                'create the hatch and append it to the block table record
                Dim h As Hatch = New Hatch()
                oc.Add(btr.AppendEntity(h))
                trans.AddNewlyCreatedDBObject(h, True)
 
                'properties of the hatch
                h.SetHatchPattern(HatchPatternType.PreDefined, "SOLID")
                h.Associative = False
                h.AppendLoop(HatchLoopTypes.Outermost, oc)
                h.EvaluateHatch(True)
                h.Color = Color.FromRgb(255, 255, 255)
 
                Dim dot As DrawOrderTable = trans.GetObject(btr.DrawOrderTableId, OpenMode.ForWrite)
                dot.SwapOrder(oc.Item(0), oc.Item(1)) 'item 0 = circ, item 1 = hatch
 
                'create an attribute definition
                Dim ad As New AttributeDefinition
                ad.Prompt = "Insert ID"
                ad.Tag = "ID"
                ad.TextString = "Point ID"
                ad.Justify = AttachmentPoint.MiddleLeft
                ad.AlignmentPoint = New Point3d(0.001 * SCALE_FACTOR, 0, 0)
                ad.Preset = False
                ad.Height = TEXT_HEIGHT
                btr.AppendEntity(ad)
                trans.AddNewlyCreatedDBObject(ad, True)
 
                trans.Commit()
            End Using
        End Using
 
    End Sub

I struggle for hours to add the brockreference (that's easy) and give the attribute (that isn't) the id (1, 2, 3...).

Thank you

[Kerry]

Code - vb.net: [Select]

If Me.Exist = True Then Return

What is Me ?

and what is .Exist  ??


Regards
Kerry

[gile]

Me (VB) = this (C#)

[Kerry]

Yes, I know that gile.

but what is Me ? what sort of object ? .. where is it defined ?

[BlackBox]

Whatever it (me) is cannot be good, as the If statement immediately Returns if it Exists (... in a Sub, not a Function?    ).

[whoknows]

Code - vb.net: [Select]

If Me.Exist = True Then Return

In this case does not appear to have importance.

"Me "and "This" It is always redundant.

About "Exist" and VB.NET:

Code - vb.net: [Select]

Public Class Exist_Prop
    Private _exist As Boolean
   ' All this can be compiled
   ' Public Property Exist() As Boolean
    Public Property Exist As Boolean
        Get
            Return _exist
        End Get
        Set(ByVal Value As Boolean)
            _exist = Value
        End Set
    End Property
 
    Public Sub Create()
        If Me.Exist Then
            Return
        End If
    End Sub
End Class
 
Public Class Exist_Func
    Public Function Exist() As Boolean
        Return True
    End Function
 
    Public Sub Create()
        ' All this can be compiled
        ' If Exist () Then
        If Me.Exist Then
            Return
        End If
    End Sub
End Class
 
 

[Kerry]

Thanks for the lesson whoknows

[whoknows]

Thanks for the lesson whoknows

lesson? No, this is just my opinion about "Exist", "Me" & "this".

[poncelet]

Me.exist

Code - vb.net: [Select]

    Private Function Exist() As Boolean
 
        Using trans As Transaction = db.TransactionManager.StartTransaction()
 
            Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
            If bt.Has("OrionPoint") Then
                Return True
            Else
                Return False
            End If
        End Using
 
    End Function

Class members so far

Code - vb.net: [Select]

Public Class OrionPoint
 
    Public Sub Create()
 
    Private Function Exist() As Boolean
 
End Class

[Kerry]

See, wouldn't it have been less confusing to post it all at the start .. even though your naming is still a little confusing.
wouldn't
If (Exist()) work ?

now, what was your question ?

[poncelet]

The attribute. How do i give the attribute a value. I defined the attribute with the block definition. I saw a way that defines the attribute with the blockreference but i couldn't use it.

[kaefer]

The attribute. How do i give the attribute a value.

The AttributeReference. You create a new one.

Code - F#: [Select]

let ar = new AttributeReference()
ar.SetAttributeFromBlock(ad, br.BlockTransform)
ar.TextString <- someValue // here you go
br.AttributeCollection.AppendAttribute ar |> ignore
tr.AddNewlyCreatedDBObject(ar, true)

[poncelet]

The attribute. How do i give the attribute a value.

The AttributeReference. You create a new one.

Code - F#: [Select]

let ar = new AttributeReference()
ar.SetAttributeFromBlock(ad, br.BlockTransform)
ar.TextString <- someValue // here you go
br.AttributeCollection.AppendAttribute ar |> ignore
tr.AddNewlyCreatedDBObject(ar, true)

ad is the attribute definition. I just need the object id of this when i append it?
Also the blockreference has to be commited before i add the attribute?

[poncelet]

Kaefer thanks! I had to separate the attribute definition inside the class but it worked.
*cheers*