|
|
楼主 |
发表于 2008-10-14 17:24:03
|
显示全部楼层
方法可能有点笨吧，不过我没找到其他简单的方法首先是获得当前sheet的图纸格式，方法：
5 W& ^9 z$ D$ o/ l& |6 q, c4 E% ZobjApp.ActiveDocument.SheetSetup.SheetSizeOption（返回一个整型，它定义了常数来表示这些数的含义，例如igIsoA2Wide=33表示这张图纸是A2且横放的）
- |% ^3 h. ~: n: I8 S ?2 \然后将它改为竖放，方法为：
. y2 ]; h% @" K0 `9 V# ?objSFrame.Rotate(PI / 2, 0, 0)//以0，0点旋转90°
6 I ~" e$ n& r0 uobjSFrame.Move(x1,y1 ,x2 , y2)//平移到x2,y2处0 a3 y4 c- j) I: z# i: P* f
' P# r7 j% ~4 E* i' f s
' t* P- o8 p: K) [9 [" Q( l4 v, p1 h1 r: p# O) x r& o8 d
如果有高手的话，问下可不可以直接对其属性进行设置，使其横放变为竖放呢 |
|
发表于 2008-10-13 15:31:29
;);)