Reply

Problem in aligning the drawing view

[ Edited ]

 

HI all,

        I have a fraft document which updates  from a part document. But some time when part size exceeds certain limit the drawing views overlap each other. So I need to move these drawing views such that they dont overlap.

I have tried using the align method in drawingviews object but there is no change in view positins.

I have used following code.

Dim objSelectSet As SelectSet

Dim objDrawingViews As DrawingViews

Dim objDrawingView As DrawingView

 

Set objSelectSet = objDoc.SelectSet

 

Set objDrawingViews = objSheet.DrawingViews

For Each objDrawingView In objDrawingViews

    Call objSelectSet.Add(objDrawingView)

Next objDrawingView

Call objDrawingViews.Align

 

is this code right... or there other way to use the align method.

 

Posted by: Pritam Dulam
Post date: 8/13/2009 8:40:30 PM

2 REPLIES

RE: Problem in aligning the drawing view

[ Edited ]

Hi,

 

you can move a view with:

Call objDrawingView.SetOrigin(dX, dY)

 

 

 

Posted by: JR
Post date: 8/14/2009 2:10:30 AM

RE: Problem in aligning the drawing view

[ Edited ]

 

Thanx a lot buddy .... It  works...........

 

Posted by: Pritam Dulam
Post date: 8/17/2009 12:35:33 AM