|
|
Sub 计算出图比例(), A3 B( U2 w- C d* n
'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉
6 ~3 L% g J0 J9 JThisDrawing.ActiveSpace = acPaperSpace
8 k) U$ y7 ]2 d" x5 U; g+ f5 b7 f: W, mDebug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale6 C. y5 |6 G$ r. B+ W9 L9 V5 T
End Sub |
|
发表于 2008-3-7 09:09