insert points ID with coordinates from excel to autocad using vba

[ahmed.ongame]

hi

i want a VBA code that inserts a block in autocad by the coordinates i have from excel and the block should show me the(x , y , z) and point ID of the point block so when i see the point i know which point is which.

if someone can help it will be very helpfull to me and thanks.

[Ed__Jobe]

To get you started, here is a block in this thread that someone posted. How much experience with vba do you have?

[ahmed.ongame]

not that much

just some basics i have received from my course in college

i realy want to solve it

i have a file that do this job except the ID part, it is just importing the coordinates

---

@Ed__Jobewrote:

To get you started, here is a block in this thread that someone posted. How much experience with vba do you have?

---

---

[Ed__Jobe]

This thread shows how to get the xl cell's content.

Use the xl data to build a 3D point object and then use the ThisDrawing.ModelSpace.InsertBlock() method to insert the block. The example in Help shows you how to build a 3 element array of doubles for the point and how to use the InsertBlock method.

[ahmed.ongame]

what i really need is just the insert block method and attrabute with it

[Ed__Jobe]

Just be sure to set an object using the insert method. e.g. Here's some quick code.

Dim oIns As AcadBlockReference

Dim oAtts As Variant

Dim i As Integer

oIns = ThisDrawing.Modelspace.InsertBlock 'add args

oAtts =  oIns.GetAttributes

For i =LBound(oAtts) To UBound(oAtts)

   If oAtts(i).TagString = "SomeName" Then

      oAtts(i).TextString = "txtFromXl"

   End If

Next oAtt