|
|

楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
来自: 中国北京
方法可能有点笨吧,不过我没找到其他简单的方法首先是获得当前sheet的图纸格式,方法:
7 i" E* i5 {' z: [objApp.ActiveDocument.SheetSetup.SheetSizeOption(返回一个整型,它定义了常数来表示这些数的含义,例如igIsoA2Wide=33表示这张图纸是A2且横放的)
) J+ l9 z& R# c6 X5 h- f, w然后将它改为竖放,方法为:
C" k) F' `3 {. b+ y2 t9 S- [objSFrame.Rotate(PI / 2, 0, 0)//以0,0点旋转90°
- a' o3 L, H: u. \# l# G) u0 e9 tobjSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处( j4 H5 C! I5 m" h5 i# b
& W% j, s }" t1 }5 {' K2 \; U B7 D) S$ A; w9 s1 r
; u/ ]# A k; G
如果有高手的话,问下可不可以直接对其属性进行设置,使其横放变为竖放呢 |
|