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:)