|
|
Sub 计算出图比例()
$ C+ s( ]3 \0 w* w, v'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉, g U4 p1 L& e# `8 A4 B( a
ThisDrawing.ActiveSpace = acPaperSpace" P! X/ |3 c8 N9 s, }
Debug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale7 B) H! S( c6 }: ]- { H' S3 t r$ v- H
End Sub |
|
发表于 2008-3-7 09:09