|
|
发表于 2008-2-2 15:33:52
|
显示全部楼层
来自： 中国辽宁营口
用GetCustomScale方法，参见下面例程：
" v' w" S2 l! P' K6 j2 q; W/ U% [9 m! E6 }0 ?+ X
Sub PS()
/ z! S) i- w4 P7 B+ W. h$ G6 P Dim M As Double, N As Double, P(2) As Double
0 @) a9 T1 a4 `- A/ e With ThisDrawing5 p: Q4 G% S# [/ D2 a$ @
.ActiveLayout.GetCustomScale M, N. x! G0 g% c3 h: N V' R
If .ActiveSpace = acModelSpace Then
4 q1 t6 W6 f: |) m0 ?9 [6 x .ModelSpace.AddText M & ":" & N, P, 10
% V; ~: t+ w' |! V! i! T" D+ k Else* A' W6 T& u# J% a/ y
.PaperSpace.AddText M & ":" & N, P, 10
$ Z5 O' W5 X. b, u, T& F- y' w; |2 @ End If/ U/ N1 X6 f u' l; [1 {3 B
End With: g* a7 N( }7 P2 o1 c) [! c7 X; H
End Sub |
|
发表于 2007-11-3 18:03:10
楼主