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下,很多属性都没有,如果我把那些不支持的注掉,那标注就非常小,不符合要求。请问能够解决吗? 在R14下可以通过系统变量来设置的,查看帮助中的系统变量中跟标注有关的部分吧。 能不能具体地说一下,怎么来设置。R14中找不清楚。 斑竹,讲解一下吧,真的多谢了!!!
页:
1
[2]