I use below code incase of assigning Data to an object. But Could not success?
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim nokta As Object
Dim blok As AcadBlockReference
nokta = utilty.GetPoint("0,0,0", "Blok eklenecek Noktayı seç")
blok = mSpace.InsertBlock(nokta, "ilk", 1, 1, 1, 0,)
blok.SetXData("string", "Deneme")
End Sub
Regards,
Mucip:)











