Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
'Scale' happens to be a reserved keyword in VB and hence needs to be
qualified by [] for DrawingView.Scale to work. So, this should work:
oDoc.Sheets.Item(1).DrawingViews.Item(1).[Scale] = BaseViewScale
Sanjay-
"wehnerk" wrote in message
news:19259224.1108874268380.JavaMail.jive@jiveforum1.autodesk.com...
> I can read a view scale with:
> BaseViewScale = oDoc.Sheets.Item(1).DrawingViews.Item(1).Scale
>
> But When I try to use the following line to change the scale, I get a
compile error.
> oDoc.Sheets.Item(1).DrawingViews.Item(1).Scale = BaseViewScale
>
> What type of variable should BaseViewScale be (single, double, string)?
So, that didn't work? I tried it and it seemed to work. Also, the ability to
set the property was only introduced in R9. What version do you have?
"wehnerk" wrote in message
news:25518344.1108953416012.JavaMail.jive@jiveforum2.autodesk.com...
> I thought the easy fix would work, but it was too good to be true.
R9 Sp2
"Sanjay Ramaswamy (Autodesk)" wrote in
message news:42196e38_3@newsprd01...
> So, that didn't work? I tried it and it seemed to work. Also, the ability
> to
> set the property was only introduced in R9. What version do you have?
>
>
> "wehnerk" wrote in message
> news:25518344.1108953416012.JavaMail.jive@jiveforum2.autodesk.com...
>> I thought the easy fix would work, but it was too good to be true.
>
>
Not sure what the problem is. Try to run the following code on a new drawing
that contains a drawing view.
Sub ChangeScale()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument
Dim odrawingview As DrawingView
Set odrawingview = odoc.ActiveSheet.DrawingViews(1)
odrawingview.[Scale] = 2
End Sub
Sanjay-
"Kevin Wehner (IV9 SP2)" wrote in
message news:4219c4a1$1_2@newsprd01...
> R9 Sp2
>
> "Sanjay Ramaswamy (Autodesk)" wrote in
> message news:42196e38_3@newsprd01...
> > So, that didn't work? I tried it and it seemed to work. Also, the
ability
> > to
> > set the property was only introduced in R9. What version do you have?
> >
> >
> > "wehnerk" wrote in message
> > news:25518344.1108953416012.JavaMail.jive@jiveforum2.autodesk.com...
> >> I thought the easy fix would work, but it was too good to be true.
> >
> >
>
>
That works. Isn't the line that I had basically the same thing? Maybe I
don't have a full understanding of lines like "Dim odrawingview As
DrawingView" & "Set odrawingview = odoc.ActiveSheet.DrawingViews(1)". Aren't
they used in this case just to make "odrawingview.[Scale] = 2" shorter than
ThisApplication.ActiveDocument.ActiveSheet.DrawingViews(1).[Scale] = 2" ?
"Sanjay Ramaswamy (Autodesk)" wrote in
message news:421a8c1a$1_3@newsprd01...
> Not sure what the problem is. Try to run the following code on a new
> drawing
> that contains a drawing view.
>
> Sub ChangeScale()
> Dim odoc As DrawingDocument
> Set odoc = ThisApplication.ActiveDocument
>
> Dim odrawingview As DrawingView
> Set odrawingview = odoc.ActiveSheet.DrawingViews(1)
>
> odrawingview.[Scale] = 2
> End Sub
>
> Sanjay-
>
>
> "Kevin Wehner (IV9 SP2)" wrote in
> message news:4219c4a1$1_2@newsprd01...
>> R9 Sp2
>>
>> "Sanjay Ramaswamy (Autodesk)" wrote in
>> message news:42196e38_3@newsprd01...
>> > So, that didn't work? I tried it and it seemed to work. Also, the
> ability
>> > to
>> > set the property was only introduced in R9. What version do you have?
>> >
>> >
>> > "wehnerk" wrote in message
>> > news:25518344.1108953416012.JavaMail.jive@jiveforum2.autodesk.com...
>> >> I thought the easy fix would work, but it was too good to be true.
>> >
>> >
>>
>>
>
>
Not sure why that doesn't work. Seems like a VB quirk. If you try to set the
Name property using the same line of code, that works fine. It has something
to do with the reserved keywords.
Sanjay-
"Kevin Wehner (IV9 SP2)" wrote in
message news:421b2f23_3@newsprd01...
> That works. Isn't the line that I had basically the same thing? Maybe I
> don't have a full understanding of lines like "Dim odrawingview As
> DrawingView" & "Set odrawingview = odoc.ActiveSheet.DrawingViews(1)".
Aren't
> they used in this case just to make "odrawingview.[Scale] = 2" shorter
than
> ThisApplication.ActiveDocument.ActiveSheet.DrawingViews(1).[Scale] = 2" ?
>
>
> "Sanjay Ramaswamy (Autodesk)" wrote in
> message news:421a8c1a$1_3@newsprd01...
> > Not sure what the problem is. Try to run the following code on a new
> > drawing
> > that contains a drawing view.
> >
> > Sub ChangeScale()
> > Dim odoc As DrawingDocument
> > Set odoc = ThisApplication.ActiveDocument
> >
> > Dim odrawingview As DrawingView
> > Set odrawingview = odoc.ActiveSheet.DrawingViews(1)
> >
> > odrawingview.[Scale] = 2
> > End Sub
> >
> > Sanjay-
> >
> >
> > "Kevin Wehner (IV9 SP2)" wrote
in
> > message news:4219c4a1$1_2@newsprd01...
> >> R9 Sp2
> >>
> >> "Sanjay Ramaswamy (Autodesk)" wrote
in
> >> message news:42196e38_3@newsprd01...
> >> > So, that didn't work? I tried it and it seemed to work. Also, the
> > ability
> >> > to
> >> > set the property was only introduced in R9. What version do you have?
> >> >
> >> >
> >> > "wehnerk" wrote in message
> >> > news:25518344.1108953416012.JavaMail.jive@jiveforum2.autodesk.com...
> >> >> I thought the easy fix would work, but it was too good to be true.
> >> >
> >> >
> >>
> >>
> >
> >
>
>
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")