|
|
Sub 计算出图比例()# C/ l* v8 o. \+ z# m
'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉5 C* q- @% L% t* {( s+ ?
ThisDrawing.ActiveSpace = acPaperSpace1 i; w# D6 V6 z' b9 t5 @2 O' n
Debug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale7 g' \2 ]. A% B' k. @7 K( d( X
End Sub |
|
发表于 2008-3-7 09:09