Question

怎么将一张CAD图纸上所有标注尺寸全部提取到excel中

要提取CAD中所有标注尺寸，编程不知道要操作哪个对象？怎么提取？希望高手指点

Answer 1

第一、安装辅助工具“ExWinner报价软件”(带“CAD扒图工具”)。
第二、登录exwinner报价软件，启动CAD扒图工具。
第三、打开图纸，扒图明细，导出到excel。
3.1、打开图纸
3.2、拾取屏柜
（1）右键“拾取屏柜”，鼠标移动到图纸区域，光标变成一个红色十字架。
（2）按住鼠标左键，框选柜号，点击鼠标右键，柜号框选完成。
3.3、拾取明细
右键“拾取明细”、或鼠标光标变成一个白色十字架时，按住鼠标左键框选明细。
第四、导出excel或提交至exwinner
（1）excel：点击“excel”图标导出到excel。
（2）提交至exwinner：需打开exwinner报价工程并定位在分类sheet页。

Answer 2

'获取标注尺寸函数Function FixDimMeas(Dimension As AcadDimension) As Long Dim BlockCount As Long Dim bz As Long BlockCount = ThisDrawing.Blocks.Count '遍历块中的对象，取得标注尺寸 Dim EntityInBlock As AcadEntity For Each EntityInBlock In ThisDrawing.Blocks(BlockCount - 1) If EntityInBlock.ObjectName = "AcDbMText" Then bz = Dimension.Measurement FixDimMeas = bz '取得标注尺寸 Exit For End If NextEnd Function