AnsweredAssumed Answered

Macro to insert drawing sheets of each configuration and rename sheets to SW property?

Question asked by Tom Stypula on Feb 9, 2012
Latest reply on May 16, 2018 by Tommy Stypula

Like • Show 0 Likes0
Comment • 8

Does anyone have the ability to create a macro that inserts a drawing sheet for every configuration of a part and then names each of the sheets based on a property created in the design table?

I have a part (several parts that require this actually) that needs to have its own unique sheet in this drawing file so that I can automatically export each sheet as a DXF using Enterprise PDM. This is easily done manually for parts that have just a few configurations but these parts have hundreds of configurations so it takes a lot of time to simply create sheets and go through each one and change the model view to the "next" configuration in the list and then rename each sheet to match the custom property that I have created called "itemnumber".

I know that there are macros to export parts in bulk to DXF format straight from the part model but I can't use this because I need to add item number scribes to each DXF and export them from the drawing while using a custom layer mapping file that converts the "scribe" layer to a different color in the DXF.

I have used this thread as a reference but have been unsuccessful, https://forum.solidworks.com/message/266110#266110.

Please help. Thanks.

Vinoth Kumar Feb 17, 2012 6:32 AM

Correct Answer

I just modified the macro avialable in the link.. See the lines of code in bold..

Dim swCustPropMgr As CustomPropertyManager

Dim strSheetName As String

For i = 0 To UBound(ConfigNamesArray)

ConfigName = ConfigNamesArray(i)

Set swCustPropMgr = swModel.Extension.CustomPropertyManager(ConfigName)

strSheetName = swCustPropMgr.Get("itemnumber")

retval = swDraw.NewSheet3(strSheetName, TemplateSize, _

PaperSize, ScaleNum, ScaleDenom, Not ThirdAngle, "", _

0#, 0#, "")

....it goes like that

See the reply in context

No one else had this question

Outcomes

Tom Stypula Feb 9, 2012 5:53 PM

BTW, I am using SW 2011 x64 SP3.0.

Actions

Wayne Matus Feb 9, 2012 9:41 PM

Download the API training manual from the SolidWorks website. In the Drawings lesson, they have an example of exactly what you are after.

http://www.solidworks.com/sw/support/807_ENU_HTML.htm

Actions

Tom Stypula @ Wayne Matus on Feb 10, 2012 1:15 PM

Thanks for the link. That is a good start but that macro renames the sheets to the configuration name. I still need to be able to change the sheet names to the "itemnumber" property instead of configuration name.

Actions

Vinoth Kumar @ Tom Stypula on Feb 17, 2012 6:32 AM

I just modified the macro avialable in the link.. See the lines of code in bold..

Dim swCustPropMgr As CustomPropertyManager

Dim strSheetName As String

For i = 0 To UBound(ConfigNamesArray)

ConfigName = ConfigNamesArray(i)

Set swCustPropMgr = swModel.Extension.CustomPropertyManager(ConfigName)

strSheetName = swCustPropMgr.Get("itemnumber")

retval = swDraw.NewSheet3(strSheetName, TemplateSize, _

PaperSize, ScaleNum, ScaleDenom, Not ThirdAngle, "", _

0#, 0#, "")

....it goes like that

Actions

Tom Stypula @ Vinoth Kumar on Mar 1, 2012 12:22 PM

I appreciate the help everyone. Vinoth, your suggested changes worked great for me. Thank you very much.

Actions

Tommy Stypula @ Vinoth Kumar on May 16, 2018 2:13 PM

Apparently I am trying to do this again. I used this macro at my old job and now that I have moved on I do not have access to it anymore so I am trying to develop it again. When I download the macro from the link posted above from the API Fundamentals training it errors out with this:

Run-time error '91':

Object variable or With block variable not set

Then it highlights this area in the macro.

Any ideas why this would be happening? I want to get the basic macro operational and then will attempt to add Vinoth's changes but I need to get the basic one running first. I am still a dummie when it comes to macros. I am running SW 2016 SP5.0 and downloaded the macro from the 2016 API Fundamentals training materials.

Attachments

Drawing Automation.swp.zip9.2 KB

Actions

Tommy Stypula @ Tommy Stypula on May 16, 2018 2:29 PM

Ok, it turns out I was able to get this to work. I had to download the training material from the 2011 version of SW instead of 2016. However the macro simply generates a drawing file for a given part and creates a drawing sheet for each configuration and names the sheets as the custom property (in my new case I am using the custom property "description").

So, is there a way to modify the attached macro to make it take an existing drawing with one part already shown on each sheet and rename the sheets to the "description" property for the part shown on the drawing sheet?

Attachments

create_drw_&_name_sheets_as_description.swp.zip12.7 KB

Actions

Anjani Ojha Feb 9, 2012 11:50 PM

Hi Tom,

check the attached macro ( From API Fundamental which Wayne has referred).

Attachments

Drawing Automation.rar.zip7.7 KB

Actions

8 Replies

Tom Stypula Feb 9, 2012 5:53 PM
Mark Correct
Correct Answer
BTW, I am using SW 2011 x64 SP3.0.
Like • Show 0 Likes0
Actions
Wayne Matus Feb 9, 2012 9:41 PM
Mark Correct
Correct Answer
Download the API training manual from the SolidWorks website. In the Drawings lesson, they have an example of exactly what you are after.

http://www.solidworks.com/sw/support/807_ENU_HTML.htm
Like • Show 0 Likes0
Actions
- Tom Stypula @ Wayne Matus on Feb 10, 2012 1:15 PM
  Mark Correct
  Correct Answer
  Thanks for the link. That is a good start but that macro renames the sheets to the configuration name. I still need to be able to change the sheet names to the "itemnumber" property instead of configuration name.
  Like • Show 0 Likes0
  Actions
  - Vinoth Kumar @ Tom Stypula on Feb 17, 2012 6:32 AM
    Unmark Correct
    Correct Answer
    I just modified the macro avialable in the link.. See the lines of code in bold..
    
    Dim swCustPropMgr As CustomPropertyManager
    Dim strSheetName As String
    
            For i = 0 To UBound(ConfigNamesArray)
                ConfigName = ConfigNamesArray(i)
    
                Set swCustPropMgr = swModel.Extension.CustomPropertyManager(ConfigName)
               strSheetName = swCustPropMgr.Get("itemnumber")
    
                retval = swDraw.NewSheet3(strSheetName, TemplateSize, _
                        PaperSize, ScaleNum, ScaleDenom, Not ThirdAngle, "", _
                        0#, 0#, "")
    
    ....it goes like that
    Like • Show 0 Likes0
    Actions
    - Tom Stypula @ Vinoth Kumar on Mar 1, 2012 12:22 PM
      Mark Correct
      Correct Answer
      I appreciate the help everyone. Vinoth, your suggested changes worked great for me. Thank you very much.
      Like • Show 0 Likes0
      Actions
    - Tommy Stypula @ Vinoth Kumar on May 16, 2018 2:13 PM
      Mark Correct
      Correct Answer
      Apparently I am trying to do this again. I used this macro at my old job and now that I have moved on I do not have access to it anymore so I am trying to develop it again. When I download the macro from the link posted above from the API Fundamentals training it errors out with this:
      
      Run-time error '91':
      Object variable or With block variable not set
      
      Then it highlights this area in the macro.
      Any ideas why this would be happening? I want to get the basic macro operational and then will attempt to add Vinoth's changes but I need to get the basic one running first. I am still a dummie when it comes to macros. I am running SW 2016 SP5.0 and downloaded the macro from the 2016 API Fundamentals training materials.
      Attachments
      Drawing Automation.swp.zip9.2 KB
      Like • Show 0 Likes0
      Actions
      - Tommy Stypula @ Tommy Stypula on May 16, 2018 2:29 PM
        Mark Correct
        Correct Answer
        Ok, it turns out I was able to get this to work. I had to download the training material from the 2011 version of SW instead of 2016. However the macro simply generates a drawing file for a given part and creates a drawing sheet for each configuration and names the sheets as the custom property (in my new case I am using the custom property "description").
        
        So, is there a way to modify the attached macro to make it take an existing drawing with one part already shown on each sheet and rename the sheets to the "description" property for the part shown on the drawing sheet?
        Attachments
        create_drw_&_name_sheets_as_description.swp.zip12.7 KB
        Like • Show 0 Likes0
        Actions
Anjani Ojha Feb 9, 2012 11:50 PM
Mark Correct
Correct Answer
Hi Tom,

check the attached macro ( From API Fundamental which Wayne has referred).
Attachments
- Drawing Automation.rar.zip7.7 KB
Like • Show 0 Likes0
Actions

Macro to insert drawing sheets of each configuration and rename sheets to SW property?

Outcomes

Attachments

Attachments

Attachments

Related Content

Recommended Content

Incoming Links