[求助]怎样使标注离被标注对象远些?

xiaokk

标注离被标注的对象太近了



以至标注界限(也就是标注中的那两条竖线)都没被显示出来


怎样使标注离被标注的对象远些?


请告诉具体点的编程办法


谢谢!

laoliu09

一般来说，建立标注要设置下面的属性！（模仿天正建筑的标注方法） Set objdim = ThisDrawing.ModelSpace.AddDimAligned(p1, p2, p3)
objdim.Color = acGreen
objdim.ExtensionLineExtend = 250
objdim.ExtensionLineOffset = 300
objdim.Arrowhead1Block = "mydim"
objdim.Arrowhead2Block = "mydim"
objdim.ArrowheadSize = 1
objdim.TextStyle = "dim_font"
objdim.TextColor = acWhite
objdim.TextGap = 150
objdim.TextInside = True
objdim.TextOutsideAlign = False
objdim.TextInsideAlign = False
objdim.VerticalTextPosition = acAbove
objdim.PrimaryUnitsPrecision = acDimPrecisionZero

xiaokk

楼上的真强


那怎么看天正的代码？


另外可以告诉你的QQ不？