AO中的 标注 比例尺 每日一贴，今天贴这里 下班了 赶紧。。 哈 ：-）

‘。。。。。。。。。。

Dim pAnnoLayerPropsColl As IAnnotateLayerPropertiesCollection
Dim pAnnoLayerProps As IAnnotateLayerProperties
Dim pLabelEngineLayerProps As ILabelEngineLayerProperties
Dim pBasicOverposterLayerProps4 As IBasicOverposterLayerProperties4

pAnnoLayerProps.AnnotationMaximumScale = 40000

pAnnoLayerProps.AnnotationMinimumScale = 100000

这个比例尺要注意了
'''，1：4000 大于1：1000000

。。。。。。。。。

今天搞的我晕 我把两个搞反了 哈哈 晕