|
|
发表于 2008-2-2 15:33:52
|
显示全部楼层
来自： 中国辽宁营口
用GetCustomScale方法，参见下面例程：
4 z" P# v" Y! u# f( P* H6 u) |8 r0 v) P! Q/ e; H
Sub PS(); C$ ^5 `5 \, x1 F( S
Dim M As Double, N As Double, P(2) As Double+ P, P5 v. m- t6 F8 h, }
With ThisDrawing3 s% r. c$ y4 n
.ActiveLayout.GetCustomScale M, N2 y$ Y: Y1 r# a% O3 V4 H
If .ActiveSpace = acModelSpace Then4 \* m( Y, i9 b
.ModelSpace.AddText M & ":" & N, P, 10
4 A, _& _: W4 { ~/ ^ Else# d5 i5 B. x" s" j1 Z
.PaperSpace.AddText M & ":" & N, P, 103 P4 {6 ?- K5 \5 c( a+ l
End If# E, _! u( j6 G5 I% ^ C
End With d- c% ~9 F) y9 r3 X! ]
End Sub |
|
发表于 2007-11-3 18:03:10
楼主