Inventor General Discussion

Inventor General Discussion

Reply
Valued Contributor
gazadder
Posts: 64
Registered: ‎05-11-2007
Message 1 of 2 (458 Views)
Accepted Solution

Set a view in a drawing by size and not scale.

458 Views, 1 Replies
01-17-2013 06:38 AM

I can control the size of my main drawing views using ilogic based on the models extents as there is a direct relationship between a parts length and the drawing view width. however, I have several isometric views that I scale according to the model size but in certain configurations of my model the ISO’s are completely the wrong scale for that particular view where the main views are ok.

 

I have a set area on my drawing sheet for the iso view and it would be more beneficial to control the size of the view rather than the scale of the view. Is this possible? I can read the height and width of a view so why can’t I control the size of a view but the height or width?

I have found a work around method but it's not ideal. Basically the ISO view is scaled from something that I know will make it smaller than the view size I want and then I say if it is less than the size of the view I want then increase it's scale slightly. Then I repeat this if statement until it has reached approximately the size I want. If anyone has a more direct method then please let me know.

 

ActiveSheet.View("DRIVE SIDE ISO").Scale = ActiveSheet.View("FAN_DRIVE_SIDE").Scale * 0.4

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 80

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 70

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 60

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 50

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 40

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 35

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 30

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 25

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 20

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 15

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 14

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 13

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 12

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 11

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 10

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 9

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 8

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 7

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 6

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 5

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 4

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 3

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 2

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 1

Valued Contributor
gazadder
Posts: 64
Registered: ‎05-11-2007
Message 2 of 2 (439 Views)

Re: Set a view in a drawing by size and not scale.

01-18-2013 03:37 AM in reply to: gazadder

I have found a work around method but it's not ideal. Basically the ISO view is scaled from something that I know will make it smaller than the view size I want and then I say if it is less than the size of the view I want then increase it's scale slightly. Then I repeat this if statement until it has reached approximately the size I want. If anyone has a more direct method then please let me know.

 

ActiveSheet.View("DRIVE SIDE ISO").Scale = ActiveSheet.View("FAN_DRIVE_SIDE").Scale * 0.4

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 80

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 70

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 60

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 50

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 40

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 35

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 30

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 25

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 20

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 15

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 14

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 13

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 12

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 11

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 10

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 9

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 8

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 7

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 6

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 5

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 4

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 3

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 2

If ActiveSheet.View("DRIVE SIDE ISO").Height < 50 Then ActiveSheet.View("DRIVE SIDE ISO").Scale = 1 / 1

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.