秋千厂家
免费服务热线

Free service

hotline

010-00000000
秋千厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

当VBA中正确地添加一个标注Dimensi

发布时间:2021-09-10 22:55:26 阅读: 来源:秋千厂家

VBA中正确地添加一个标注(Dimension)实体到一个块(Block)对

块对象的AddDimAligned方法和其它的AddDimxxx方法导致添加的标注实体不正确。这是已知的一个AutoCAD缺陷。然而,下面的方法可以克服这个缺陷。首先,在模型空间中生成一个标注实体,拷贝这个实体到所需块对象中,最后,删掉原始的标注实体。以下的事例代码生成一个块"test",然后添加了一个DimRotated实体到块中,最后把这个块插入到模型空间中。

Sub f_SolAddDiminBlocks()

'在AutoCAD 2000中增加标注到图块中

Dim po_rotDim As AcadDimAligned

Dim po_block As AcadBlock

Dim pd_ext1(0 To 2) As Double

Dim pd_ext2(0 To 2) As Double

Dim pd_lineLoc(0 To 2) As Double

Dim po_array(0) As Object

pd_ext1(0) =塑料金属分离器全面介绍 3: pd_ext1(1) = 3: pd_ext1(2) 触碰到内部的钢筋骨架时= 0

pd_ext2(0) = 10: pd_ext2(1) = 3: pd_ext2(2) = 0

pd_l” “因此ineLoc(0) = 5: pd_lineLoc(1) = 4: pd_lineLoc(2)

= 0

'创建标注对象

Set po_rotDim = dDimAligned(pd_ext1,

pd_ext2,

pd_lineLoc)

'创建一个名为test的图块

Set po_block = d(pd_ext1, "test")

'插入图块参照

sertBlock pd_ext1, "test",

1, 1, 1, 0

'复制标注对象

Set po_array(0) = po其中引申计和夹具最为重要_rotDim

pyObjects po_array, po_block

po_lete

'释放参照

Set po_block = Nothing

Set po_rotDim = Nothing

End Sub

晋城工作服订做
晋城工作服定制
晋城工作服定做
晋城工作服设计