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

efan2000

实现什么功能，在R2002下编写吧，如果通过了，然后在R14下调试，如果碰到错误，参考帮助文件的语法，修改成R14格式的。

wenyuan

现在最主要的就是一个问题，标注。

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                               '标注更新

以上程序在2002下是没有问题的，但是在R14下，很多属性都没有，如果我把那些不支持的注掉，那标注就非常小，不符合要求。请问能够解决吗？

efan2000

在R14下可以通过系统变量来设置的，查看帮助中的系统变量中跟标注有关的部分吧。

wenyuan

能不能具体地说一下，怎么来设置。R14中找不清楚。

wenyuan

斑竹，讲解一下吧，真的多谢了！！！