Autodesk Inventor
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic to the Top
- Bookmark
- Subscribe
- Printer Friendly Page
Set a view in a drawing by size and not scale.
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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?
Solved! Go to Solution.
Re: Set a view in a drawing by size and not scale.
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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
