|
|
楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
来自： 中国北京
方法可能有点笨吧，不过我没找到其他简单的方法首先是获得当前sheet的图纸格式，方法：
( l0 U. k* M" V, b$ Z9 YobjApp.ActiveDocument.SheetSetup.SheetSizeOption（返回一个整型，它定义了常数来表示这些数的含义，例如igIsoA2Wide=33表示这张图纸是A2且横放的）6 Z/ h. }8 @$ l, D! i; g1 }; q; |
然后将它改为竖放，方法为：! N8 C* k! w& a3 ]& W: W3 Y
objSFrame.Rotate(PI / 2, 0, 0)//以0，0点旋转90°% W8 _0 w' s% \ v9 `& l& N
objSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处
5 p3 D Y( h7 }. L; P# q( P$ I
9 v3 S" J: T! e
# }! h: o3 ]; T; `+ X
" ^- E& K8 _& P* u; g0 z如果有高手的话，问下可不可以直接对其属性进行设置，使其横放变为竖放呢 |
|
发表于 2008-10-13 15:31:29
;);)