lookice 发表于 2009-9-23 11:15:00

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

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

Helix.xu 发表于 2018-8-2 08:27:57

本帖最后由 Helix.xu 于 2018-8-2 12:30 编辑

标注提取后，
如何按照 纵横顺序 排列才是难点，按文字位置排列 遇到特殊情况 得到的结果不正确，
最近一直没想明白。

w245272914 发表于 2018-4-17 11:27:58

wangshuping42 发表于 2014-9-1 16:20
这也太简单了

老板，你来一个复杂的呗~~~

463313376 发表于 2010-4-20 18:06:00

那位大侠知道呢？

463313376 发表于 2010-4-20 18:08:00

<p>我也顶一个！！！</p><p>求救大虾</p>

zuehuo 发表于 2010-6-25 11:33:00

<p>怎么没有人回答,很难呀</p>
<p>&nbsp;</p>

cqy 发表于 2010-7-1 13:20:00

笨办法炸开

zuehuo 发表于 2010-7-1 18:38:00

///

vbyu1987 发表于 2010-7-23 11:00:00

同问，等待高手讲解

danding 发表于 2010-8-11 11:24:00

期待高手回复

shi 发表于 2010-9-24 15:05:00

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

江湖远人 发表于 2011-12-13 11:56:39

期待中，学着试试
页: [1] 2
查看完整版本: 怎么将一张CAD图纸上所有标注尺寸全部提取到excel中