wenwengg 发表于 2008-3-7 09:09

VBA计算出图比例

Sub 计算出图比例()
'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉
ThisDrawing.ActiveSpace = acPaperSpace
Debug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale
End Sub
页: [1]
查看完整版本: VBA计算出图比例