Question

在VBA 如何获取AUTOCAD中图块的位置坐标

Answer 1

在VBA中，可以使用如下语句获得坐标位置：
Private Sub GetBlocksCoord()
Dim BlockObj As AcadBlock
For Each BlockObj In ThisDrawing.Blocks ’在当前图形中查找所有块
Debug.Print BlockObj.Origin(0), BlockObj.Origin(1) '获取坐标
Next

Set BlockObj = Nothing '销毁变量
End Sub

把这段命令保存为VBA文件，在菜单工具-->Autolisp-->加载该文件。

Answer 2

AcadBlock的属性Origin，就是它的坐标值，

Origin（0）是X坐标，Origin（1）是Y坐标

追问

非常感谢！
如果想获得块中某一点的坐标该怎么办呢？需要在CAD中提前做些什么工作？VBA又需要做什么呢，嘻嘻，我是菜鸟，多多指教

追答

Private Sub GetBlocksCoord()
Dim BlockObj As AcadBlock
’在当前图形中查找所有块
For Each BlockObj In ThisDrawing.Blocks
'获取坐标
Debug.Print BlockObj.Origin(0), BlockObj.Origin(1)
Next
'销毁变量
Set BlockObj = Nothing
End Sub

追问

太感谢了，我试试哈，如果有问题接着请教

追答

记得选最好答案啊，呵呵