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

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

要提取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

我也顶一个！！！

求救大虾

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

怎么没有人回答,很难呀

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

'获取标注尺寸函数
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
        Next
End Function

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

期待中，学着试试

账号		自动登录	找回密码
密码			注册