如果某个文本或者之类的东西,被恶意的破坏,做成了块,那么我们应该怎么还原呢?
首先,复制所有需要转换的块到一个新的dwg文件,注意:不能存在文字,点,等等!
进入cad中,cad主界面 "工具" - "宏" - "VB编辑器",以可以Alt + F11 一步到位。
双击左边栏的"ThisDrawing",然后出现代码输入框,复制下面的代码到框中,然后F5运行D盘就有结果了。
Option Explicit
'功能: 提取cad中所有块的x,y,z生成文件在"D:vbCm.txt", 如“563865.8,2113507.5,-9”格式
'目前功能有限,没有时间完善,以后再说。
'如果提示"选择集已存在",改动"新建一个选择集"前面的""的内容,如a1改成a2,a2改成a3,直到不再出错
'保证当前cad中,只有块参照,没有其它(点,文字,线)等,否则出错。
PS:如果不是块参照,请在“Call sel1.Select(acSelectionSetAll) '全部选中”设置断点,看到底是什么类型的,改AcadBlockReference成需要的类型就可以了。
Sub allsel()
End Sub
相关文章
- 2018-04-20CCD设计CAD图层标准平立面模块图库及节点图
- 2018-04-09未来城B1区块某培训中心CAD施工图+高清效果图
- 2016-05-01上海徐泾三号地块项目E2户型精装修竣工图
- 2016-02-16电器洁具灯具常用CAD平面立面图块下载
- 2016-01-30CCD设计专业CAD图库图块大全免费下载
- 2016-01-14高文安启东中邦城中城A1地块联排别墅现代古典施工图
- 2015-08-25vliman欧式超复杂柜体大全CAD图块下载
- 2015-08-23中式古典花格元素CAD图块大全下载
- 2015-04-09HBA图块和ONLEAD办公家具平面图总汇
- 2015-03-24CAD最新石材线条、木线条图块大集合