|
|

楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
来自: 中国北京
方法可能有点笨吧,不过我没找到其他简单的方法首先是获得当前sheet的图纸格式,方法:1 M* ^* ~% a. s* ^ q
objApp.ActiveDocument.SheetSetup.SheetSizeOption(返回一个整型,它定义了常数来表示这些数的含义,例如igIsoA2Wide=33表示这张图纸是A2且横放的)
- r, B" r+ G, e+ k然后将它改为竖放,方法为:0 y- v6 V& x+ P- |
objSFrame.Rotate(PI / 2, 0, 0)//以0,0点旋转90°* z5 S' ^$ K: b9 ^, W, S6 N
objSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处
. K; G x( @: Y: c7 V: v- {+ s$ C! F- F8 j3 K; d
* [# E; V' d4 U5 w8 Z, ^
6 @6 C3 d: g/ _$ c如果有高手的话,问下可不可以直接对其属性进行设置,使其横放变为竖放呢 |
|