• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Discussion Groups

    Autodesk Inventor

    Reply
    Active Contributor
    Posts: 30
    Registered: ‎05-11-2007
    Accepted Solution

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

    145 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?

    Please use plain text.
    Active Contributor
    Posts: 30
    Registered: ‎05-11-2007

    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

    Please use plain text.