|
|
楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
来自： 中国北京
方法可能有点笨吧，不过我没找到其他简单的方法首先是获得当前sheet的图纸格式，方法：
% `4 d, t; ?. K( O) a; eobjApp.ActiveDocument.SheetSetup.SheetSizeOption（返回一个整型，它定义了常数来表示这些数的含义，例如igIsoA2Wide=33表示这张图纸是A2且横放的）
3 M2 J) M. u2 f2 L$ a1 U3 \+ F- h然后将它改为竖放，方法为：
- L- g' g/ ?& g6 o: EobjSFrame.Rotate(PI / 2, 0, 0)//以0，0点旋转90°
* e V4 G% u# B* ]9 wobjSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处
3 T* K( J, \3 U5 h; H/ d, S9 X- m. l7 f* q8 v
) [' \1 A$ y/ O4 A* |2 C s4 U( z2 n
" a) E) A: H$ t/ q2 _ T- Q, G如果有高手的话，问下可不可以直接对其属性进行设置，使其横放变为竖放呢 |
|
发表于 2008-10-13 15:31:29
;);)