Question

cad vba编程块提取

cad vba编程块提取一张cad图里面有很多块，如何用vba把图里面所有块提取出来，每个块保存单文件？

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-->加载该文件。
打字不易，望采纳，谢谢

追问

你知道我在问什么吗？复制粘贴有意思？