Shyou.:
在vba中,可以使用如下语句获得坐标位置:PRivateSUbgetblockscoord()dimblockobjasaCADblockForeachblockobjinthisdraWing.blocks’在当前图形中查找所有块debUG.PRintblockobj.origin(0),blockobj.origin(1)'获取坐标nextsetblockobj=nothing'销毁变量endSUb把这段命令保存为vba文件,在菜单工具-->Autolisp-->加载该文件。....