‘。。。。。。。。。。
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
。。。。。。。。。
今天搞的我晕 我把两个搞反了 哈哈 晕