关于注记文本的宽度比例问题？

zxj_76 · 发表于 2003-1-14 12:04:00

我已经设置了当前字体，且当前字体的宽度比例为0.8，但这时运行下段程序
Set Temp = MoSpace.AddText(Dh_All, Dh_Center, Dh_Height * map_Scale)
Temp.ScaleFactor = 0.8
Dh_All是注记的内容，Dh_Center是注记点的坐标，Dh_Height是注记文字的印刷字高，Map_Scale是出图比例，
我的问题是第一句执行的文字的宽度比例应该是当前字体的宽度比例0.8，可实际上是1.0，所以我不得不再加上第二句强行改为0.8，有什么办法把第二句省掉，即第一句运行的结果，文字注记的宽度比例就是0.8。