Inventor Customization

Inventor Customization

Reply
Distinguished Contributor
Rene-J
Posts: 310
Registered: ‎05-07-2005
Message 1 of 6 (453 Views)

Replace styles in Drawing

453 Views, 5 Replies
08-24-2012 02:52 AM

Hi

I have some styles I will like to replace in some drawings

but how? I cant find any function to do this.

Do I missing some thing ?

 

Dim oIDWStyles As Inventor.DrawingStylesManager
 Set oIDWStyles = oDrawDoc.StylesManager
 Dim oldstyle As style
 Dim Newstyle As style
   For Each oldstyle In oIDWStyles.Styles
     If oldstyle.Name = "Old style" Then
       '  Debug.Print oldstyle.Name & " : " & oldstyle.InternalName
        For Each Newstyle In oIDWStyles.Styles
          If Newstyle.Name = "New style" Then
            'Debug.Print Newstyle.Name & " : " & Newstyle.InternalName
            End If
        Next
        'How to replace oldstyle with newstyle
         'oldstyle = Newstyle
       
     End If
   Next

 

René J

Contributor
cmines
Posts: 21
Registered: ‎06-08-2012
Message 2 of 6 (445 Views)

Re: Replace styles in Drawing

08-24-2012 05:31 AM in reply to: Rene-J

This worked for me:

 

' Create the parts list and set a reference to it.
    Dim oPartsList As PartsList
   
    Set oPartsList = oSheet.PartsLists.Add(oDrawingView1, oPlacementPoint)
    oPartsList.Style = oDrawDoc.StylesManager.PartsListStyles.Item("PARTS LIST PART")

 

Hope this helps.

Chris

*Expert Elite*
jdkriek
Posts: 545
Registered: ‎03-29-2007
Message 3 of 6 (443 Views)

Re: Replace styles in Drawing

08-24-2012 05:43 AM in reply to: Rene-J

You can rename it, delete it, set another style as the object default, but no direct replace that I know of.

 

If you set the new styles as object defaults, then you could change all elements to the active standard.

Jonathan D. Kriek

Autodesk Inventor Certified Expert
Microsoft Certified Application Developer
_____________________________________________________
Did I help you? Please choose Accept as Solution or Kudos below
Contributor
cmines
Posts: 21
Registered: ‎06-08-2012
Message 4 of 6 (436 Views)

Re: Replace styles in Drawing

08-24-2012 05:57 AM in reply to: jdkriek

UGHHHH....I swear I read "parts list style" the first time I read your post!  Thats what I get for responding before I've had some caffeine!

 

*Expert Elite*
jdkriek
Posts: 545
Registered: ‎03-29-2007
Message 5 of 6 (434 Views)

Re: Replace styles in Drawing

08-24-2012 06:04 AM in reply to: cmines

Get some coffee, it will be alright - for a Friday :smileywink:

Jonathan D. Kriek

Autodesk Inventor Certified Expert
Microsoft Certified Application Developer
_____________________________________________________
Did I help you? Please choose Accept as Solution or Kudos below
Distinguished Contributor
Rene-J
Posts: 310
Registered: ‎05-07-2005
Message 6 of 6 (403 Views)

Re: Replace styles in Drawing

09-05-2012 08:59 AM in reply to: jdkriek

Thanks Jonathan

Finally I got the time, to look at your suggestion.

I'm sorry I have not commented earlier, I've been on vacation.

I thought there was an easier solution.

René J

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.