|
|
Sub 计算出图比例()
7 [$ V/ S! b- M/ f- _' r'以米为单位绘制图纸时,以毫米绘图时将下面1000/删掉
3 n$ E4 l* R/ v0 ~+ N8 k2 tThisDrawing.ActiveSpace = acPaperSpace; R0 E) z5 w/ l |" f
Debug.Print "出图比例是: " & 1000 / ThisDrawing.PaperSpace.item(1).CustomScale
2 w! I! v6 u; m( k: kEnd Sub |
|
发表于 2008-3-7 09:09