|
|
Sub 计算出图比例()
+ j/ U: J# d0 r8 y. }4 m'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉6 x; x+ M# k `' a# i/ a! P+ L
ThisDrawing.ActiveSpace = acPaperSpace( k6 W* [' V8 R! H( K' b
Debug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale; {5 T3 s2 \( T/ m3 t. g
End Sub |
|
发表于 2008-3-7 09:09