|
|
发表于 2008-2-2 15:33:52
|
显示全部楼层
来自： 中国辽宁营口
用GetCustomScale方法，参见下面例程：
. s* I+ F. @8 J! b! I5 C% _
# T+ X% T9 J2 K E# p. p) mSub PS()
- V2 A3 j5 w+ I8 O4 f9 k% T4 m8 _ Dim M As Double, N As Double, P(2) As Double3 t% y. S i" S) H$ h
With ThisDrawing
7 _8 x, Q8 p* L3 F, F5 H4 v$ N .ActiveLayout.GetCustomScale M, N4 Z" N6 q) Q4 w
If .ActiveSpace = acModelSpace Then
) B2 O6 W6 N. s .ModelSpace.AddText M & ":" & N, P, 10* P# t M, ?* }9 A' Z _
Else
2 R A! w) W2 ? Z .PaperSpace.AddText M & ":" & N, P, 10
3 z! V1 E1 A8 v; v6 V End If( w4 ]3 Y$ X5 U0 O- D# t! g
End With
% k5 R1 j4 e0 A1 H# ?3 E, V: w0 nEnd Sub |
|
发表于 2007-11-3 18:03:10
楼主