如何用VB读取autocad的块所在位置的坐标

VBA写和瞎的，试试，换成VB增加
Dim AcadApp As AcadApplication
Set AcadApp = GetObject(, "AutoCad.Application")

把Thisdrawing改成AcadApp.ActiveDocument就行了
将前十个图块的的名字，坐标给出来脊棚陆，不定数量手要点软，呵呵

Sub BlockPointqa()
On Error GoTo Err:
Dim Po(0 To 2) As Double
Dim Var As Variant
Dim FType(0) As Integer
Dim FData(0) As Variant
Dim sset As AcadSelectionSet
Dim Entry As AcadEntity
Dim OnTOx As Double

FType(0) = 2: FData(0) = "*" ‘过虑图块
Set sset = ThisDrawing.SelectionSets.Add("SSZSAewe20")
sset.SelectOnScreen FType, FData
OnTOx = 0
For Each Entry In sset
If Entry.ObjectName = "AcDbBlockReference" And OnTOx < 10 Then
’再过虑一樱顷次，同时定上数目
OnTOx = OnTOx + 1
Var = Entry.InsertionPoint
Po(0) = Var(0): Po(1) = Var(1): Po(2) = Var(2)
MsgBox "图块名：" + Entry.Name & vbCr & _
"X坐标：" + CStr(Int(Po(0) * 1000) / 1000) & vbCr & _ ‘设为三位小数点
"Y坐标：" + CStr(Int(Po(1) * 1000) / 1000) & vbCr & _
"Z坐标：" + CStr(Int(Po(2) * 1000) / 1000)
End If
Next

Err:
sset.Delete
End Sub