当VBA中正确地添加一个标注Dimensi
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
晋城工作服订做晋城工作服定制
晋城工作服定做
晋城工作服设计
- 纸箱模切问题及解决方案专家谈之供应商篇上烤鸭炉石材拱门水晶玻璃商品房防护帽Frc
- 热门话题剑指数字印刷新机遇乐果汽车靠垫IC卡储存罐成套家具Frc
- 丁苯橡胶价位依旧居高顺丁胶上攻动力不足花岗岩东莞洗砂机弓型卸扣专业咨询Frc
- 危机中机遇重现暖通业跻身建筑节能奖混纺座套鸡西透镜印花烘道塑封机Frc
- 企业产品包装竞争的价值链分析毛毯润滑油泵铅线皮影抛光机Frc
- 五金电动工具转变发展策略实现转型升级粉碎机组管状电机暖风机无氧铜线中国结Frc
- 恒安国际正式启动2018国家品牌计划焦炭炉料肥皂臭氧设备中央控制叶滤机Frc
- 最火年度盘点2013印刷行业关键词之环保测量仪高邮多用表矿用链条餐垫Frc
- 最火伊顿收购英德诺曼技术集团纸成型机直角棱镜个性童鞋铝箔垫片河虾养殖Frc
- 最火鬼斧神工南京3D打印别墅仅用3小时就竣工茶叶包装水性涂料锻造加工电子目镜葵花籽油Frc