Inventor Customization

Inventor Customization

Reply
Distinguished Contributor
318 Posts
10 Kudos
Registered: ‎05-07-2005
Post 1 of 6

Replace styles in Drawing

454 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
21 Posts
1 Kudo
Registered: ‎06-08-2012
Post 2 of 6

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*
546 Posts
106 Kudos
Registered: ‎03-29-2007
Post 3 of 6

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
Manufacturing Solutions Engineer
KETIV Technologies, Inc.



_____________________________________________________
Did I help you? Please choose Accept as Solution or Kudos below
Contributor
21 Posts
1 Kudo
Registered: ‎06-08-2012
Post 4 of 6

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*
546 Posts
106 Kudos
Registered: ‎03-29-2007
Post 5 of 6

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
Manufacturing Solutions Engineer
KETIV Technologies, Inc.



_____________________________________________________
Did I help you? Please choose Accept as Solution or Kudos below
Distinguished Contributor
318 Posts
10 Kudos
Registered: ‎05-07-2005
Post 6 of 6

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