关于2002转换到R14的一些具体问题

wenyuan

1.当AutoCAD我两个版本都安装的情况下，为什么我引用R14的Reference失效，我先安装2002后安装R14的。而如果我先安装2002，后安装R14，则两个版本的都用不起来，这是为什么？

2.标注。在2002中我的标注如下：
    Set dimObj = AcadApp.ActiveDocument.ModelSpace.AddDimAligned(startPoint, endPoint, location)
   dimObj.TextOverride = "aaaa"                '替换标注文字
   dimObj.ArrowheadSize = 3.5                  '变改标注箭头大小为3.5
    dimObj.TextHeight = 3.5                      '变改标注文字高度为3.5
    dimObj.TextInside = False
    dimObj.TextInsideAlign = False
    dimObj.TextOutsideAlign = False
    dimObj.VerticalTextPosition = acAbove       '文字位置为在标注线上方     
    dimObj.Update                               '标注更新
在R14版本下，更新出现错误，请问相应的代码应该怎么写

3.关于在图纸上插入图形
在2002版本下我的代码是
Public Sub AddPic(BlkFile As Variant)    'BlkFile是欲插入图形
    On Error Resume Next
    Dim BlkRefObj As AcadBlockReference '定义AcadBlockReference变量
    Dim varCancel As Variant
    Dim InstPnt(0 To 1) As Double       '插入的位置为全部图纸
    InstPnt(0) = 0: InstPnt(1) = 0:InstPnt(2) = 0  '载入图纸
    Set BlkRefObj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(InstPnt, _
                        BlkFile, 1#, 1#, 1#, 0#)
End Sub
执行后不成功，请问如何修改代码？

多谢多谢！

mccad

1.安装多个版本，在类型库引用是会出问题，目前我还没有搞清楚怎样解决。
2.标注对象的属性在R14和2000的差别非常大，就你所举的例子来说，你所列出的所有属性在R14中是不存在的，所以出错。
3.图块插入InsertBlock方法中，R14和2000存在一个差别，就是Z向比例，在R14中是没有Z向比例的。

wenyuan

多谢

不过，对于第二个问题，怎么样在R14中才能实现相应的功能呢？
第三个问题，我也是这样改的，但是它并没有实现功能啊！怎么办呢？

efan2000

参考R14帮助文件中的语法，它的介绍就是针对当前版本的，而不同版本的帮助文件是不一样的。

wenyuan

能不能把我的代码修改一下贴出来？

wenyuan

斑竹，帮忙啊，比较棘手！

wenyuan

还有，在R14中如何实现关闭当前文件或指定文件，发现原来的方法不支持，晕啊！

wenyuan

请给个准信吧

efan2000

机器上没有安装R14的，自己在R14下测一下，最好按F8键使用单步调试，这样才能跟踪出错误的所在。

wenyuan

我知道问题在那边，但是希望实现其功能，那应该怎么做？