|
|
楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
来自： 中国北京
方法可能有点笨吧，不过我没找到其他简单的方法首先是获得当前sheet的图纸格式，方法：
" t2 b7 r" D. v) Y+ HobjApp.ActiveDocument.SheetSetup.SheetSizeOption（返回一个整型，它定义了常数来表示这些数的含义，例如igIsoA2Wide=33表示这张图纸是A2且横放的）
8 [+ c" j" X) q \! b. d: c" u然后将它改为竖放，方法为：7 z: A- G1 ~0 ?, v* a- `2 \
objSFrame.Rotate(PI / 2, 0, 0)//以0，0点旋转90°
3 n" V( P6 w! }+ @+ Q; y _/ oobjSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处4 D% U. L. Y, b& |3 e# ?
) ^1 L3 [) Q" E9 {; O/ w
3 L: h1 U7 |+ _ `+ x1 Y0 R- _$ S3 K- {# O* j( ^" n2 L
如果有高手的话，问下可不可以直接对其属性进行设置，使其横放变为竖放呢 |
|
发表于 2008-10-13 15:31:29
;);)