|
|
发表于 2008-2-2 15:33:52
|
显示全部楼层
来自： 中国辽宁营口
用GetCustomScale方法，参见下面例程：% ^( L" l3 Y7 j7 `4 p y$ Q: N# A
g0 O0 T# W# g* [4 [/ {
Sub PS()
5 {8 }0 y1 \# d Dim M As Double, N As Double, P(2) As Double% V7 B& Y1 s8 y' E" b, [
With ThisDrawing5 o% N: s0 l$ c3 [. }4 ~
.ActiveLayout.GetCustomScale M, N
/ m3 l7 O# P- s3 i0 m* M% P1 e If .ActiveSpace = acModelSpace Then
4 o7 e: c1 I; S2 y: k% R .ModelSpace.AddText M & ":" & N, P, 10
% X) y- o0 w, E, } Else
/ C4 [* {9 {% Q .PaperSpace.AddText M & ":" & N, P, 10
7 M N+ b) S* f9 v* S End If9 p) t' y9 ~+ F/ j! J/ U4 t
End With
8 P! d( `! c" ~+ W; s9 WEnd Sub |
|
发表于 2007-11-3 18:03:10
楼主