AnsweredAssumed Answered

How do you set part document window size to 450 x 300 pixels with a macro?

Question asked by Kevin Bouwman on Jun 23, 2017
Latest reply on Jun 27, 2017 by Deepak Gupta

Like • Show 0 Likes0
Comment • 9

I have a macro to save a part as a PDF in a specific folder our ERP system uses to show thumbnails. Because the PDFs created by SW have been too big, and have too much white space around the image, we have been resizing these PDFs in Adobe. It seems to me we should be able to eliminate this step. I experimented a bit and discovered that if I normalize the part window and drag one of the window corners to make the window smaller, then save as PDF, I get a smaller PDF. Can I set the current window to a specific size in a macro? How would that be done?

Kevin Bouwman Jun 23, 2017 2:52 PM

Correct Answer

Here is what I came up with. The macro hides the FeatureManager and the Heads-up View Toolbar. Then it sets the window location and size, then switches the window to normal mode, and finally zooms the image to fit. If I trigger my Save as PDF or Save as JPG macros at this point, I get a 450 x 300 image. Now all I need to do is merge the macros and add a couple lines to unhide the FeatureManger and Heads-up View Toolbar, and Maximize the model window again. This is going to help me and my ERP people tremendously.

Option Explicit
Dim swApp As Object
Dim swDoc As ModelDoc2
Dim swDocExt As ModelDocExtension
Dim swDocView As ModelView
Dim PDFWidth As Integer
Dim PDFHeight As Integer

Sub main()
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swDocExt = swDoc.Extension
Set swDocView = swDoc.ActiveView

' Hide FeatureManager
swDocExt.HideFeatureManager (True)

' Hide Heads-up View Toolbar
swDocView.VisibilityViewTools = False

' Set Document Window Postion
swDocView.FrameTop = 100
swDocView.FrameLeft = 100

' Set Document Window Size
PDFWidth = 450
PDFHeight = 300
swDocView.FrameWidth = PDFWidth + 15 'Window frame subtracts 15 pixels from graphic width
swDocView.FrameHeight = PDFHeight + 53 'Window frame subtracts 53 pixels from graphic hight

' Set Document Window to Normal
swDocView.FrameState = swWindowNormal

' Zoom Model to Fit
swDoc.ViewZoomtofit2

End Sub

See the reply in context

No one else had this question

Outcomes

Deepak Gupta Jun 23, 2017 11:43 AM

Look into using FrameState if that helps to resize the SW window size.

Here are codes from API help files.

Option Explicit
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
' Set the SOLIDWORKS window the specified height, width, state, and location
swApp.FrameHeight = 500
swApp.FrameLeft = 100
swApp.FrameState = swWindowNormal
swApp.FrameTop = 100
swApp.FrameWidth = 500
End Sub

Actions

Kevin Bouwman @ Deepak Gupta on Jun 23, 2017 1:23 PM

That is definitely a step in the right direction but that resizes the Application window, not the Document window. I might be able to make it work but I think I will get a cleaner result if I control the Document window. I will dig into the FrameState stuff and see what I can figure out.

Actions

Deepak Gupta @ Kevin Bouwman on Jun 23, 2017 1:44 PM

Check IModelWindow if see if you can use that to get/set size.

Actions

Kevin Bouwman @ Deepak Gupta on Jun 26, 2017 6:08 PM

How do I insert a code block like this? I searched the forums assuming this question has been asked and answered before but apparently I used ineffective search terms.

Actions

Steven Barry Jun 23, 2017 2:18 PM

Kevin have you considered doing a "Zoom to Fit" before saving the PDFs? Might eliminate the white space you are talking about.

2016 SOLIDWORKS API Help - ViewZoomtofit2 Method (IModelDoc2)

Actions

Kevin Bouwman Jun 23, 2017 2:52 PM

Option Explicit
Dim swApp As Object
Dim swDoc As ModelDoc2
Dim swDocExt As ModelDocExtension
Dim swDocView As ModelView
Dim PDFWidth As Integer
Dim PDFHeight As Integer

Sub main()
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swDocExt = swDoc.Extension
Set swDocView = swDoc.ActiveView

' Hide FeatureManager
swDocExt.HideFeatureManager (True)

' Hide Heads-up View Toolbar
swDocView.VisibilityViewTools = False

' Set Document Window Postion
swDocView.FrameTop = 100
swDocView.FrameLeft = 100

' Set Document Window to Normal
swDocView.FrameState = swWindowNormal

' Zoom Model to Fit
swDoc.ViewZoomtofit2

End Sub

Actions

Deepak Gupta @ Kevin Bouwman on Jun 23, 2017 2:51 PM

Thanks for sharing, might come in handy some day.

Actions

Kevin Bouwman @ Kevin Bouwman on Jun 26, 2017 6:15 PM

I merged this macro with my SaveAs JPG macro and then converted it to a #Task script. Friday night, after I went home, my computer created thumbnails of all the parts in my design library and placed them in the folder my ERP system looks in for part images. What a major time saver.

For newly designed parts I would love to tag the macro onto the normal file save routine. Is that possible? With this, every part or assembly created or modified would automagically create and maintain its own thumbnail. Can I have a macro that is triggered by file save events?

Actions

8 Replies

Deepak Gupta Jun 23, 2017 11:43 AM
Mark Correct
Correct Answer
Look into using FrameState if that helps to resize the SW window size.

Here are codes from API help files.
```
Option Explicit
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
' Set the SOLIDWORKS window the specified height, width, state, and location
swApp.FrameHeight = 500
swApp.FrameLeft = 100
swApp.FrameState = swWindowNormal
swApp.FrameTop = 100
swApp.FrameWidth = 500
End Sub
```
Like • Show 2 Likes2
Actions
- Kevin Bouwman @ Deepak Gupta on Jun 23, 2017 1:23 PM
  Mark Correct
  Correct Answer
  That is definitely a step in the right direction but that resizes the Application window, not the Document window. I might be able to make it work but I think I will get a cleaner result if I control the Document window. I will dig into the FrameState stuff and see what I can figure out.
  Like • Show 1 Like1
  Actions
  - Deepak Gupta @ Kevin Bouwman on Jun 23, 2017 1:44 PM
    Mark Correct
    Correct Answer
    Check IModelWindow if see if you can use that to get/set size.
    Like • Show 2 Likes2
    Actions
- Kevin Bouwman @ Deepak Gupta on Jun 26, 2017 6:08 PM
  Mark Correct
  Correct Answer
  How do I insert a code block like this? I searched the forums assuming this question has been asked and answered before but apparently I used ineffective search terms.
  Like • Show 1 Like1
  Actions
Steven Barry Jun 23, 2017 2:18 PM
Mark Correct
Correct Answer
Kevin have you considered doing a "Zoom to Fit" before saving the PDFs? Might eliminate the white space you are talking about.

2016 SOLIDWORKS API Help - ViewZoomtofit2 Method (IModelDoc2)
Like • Show 1 Like1
Actions
Kevin Bouwman Jun 23, 2017 2:52 PM
Unmark Correct
Correct Answer
Here is what I came up with. The macro hides the FeatureManager and the Heads-up View Toolbar. Then it sets the window location and size, then switches the window to normal mode, and finally zooms the image to fit. If I trigger my Save as PDF or Save as JPG macros at this point, I get a 450 x 300 image. Now all I need to do is merge the macros and add a couple lines to unhide the FeatureManger and Heads-up View Toolbar, and Maximize the model window again. This is going to help me and my ERP people tremendously.

Option Explicit
Dim swApp As Object
Dim swDoc As ModelDoc2
Dim swDocExt As ModelDocExtension
Dim swDocView As ModelView
Dim PDFWidth As Integer
Dim PDFHeight As Integer
Sub main()
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swDocExt = swDoc.Extension
Set swDocView = swDoc.ActiveView
' Hide FeatureManager
swDocExt.HideFeatureManager (True)
' Hide Heads-up View Toolbar
swDocView.VisibilityViewTools = False
' Set Document Window Postion
swDocView.FrameTop = 100
swDocView.FrameLeft = 100
' Set Document Window Size
PDFWidth = 450
PDFHeight = 300
swDocView.FrameWidth = PDFWidth + 15 'Window frame subtracts 15 pixels from graphic width
swDocView.FrameHeight = PDFHeight + 53 'Window frame subtracts 53 pixels from graphic hight
' Set Document Window to Normal
swDocView.FrameState = swWindowNormal
' Zoom Model to Fit
swDoc.ViewZoomtofit2
End Sub
Like • Show 4 Likes4
Actions
- Deepak Gupta @ Kevin Bouwman on Jun 23, 2017 2:51 PM
  Mark Correct
  Correct Answer
  Thanks for sharing, might come in handy some day.
  Like • Show 1 Like1
  Actions
- Kevin Bouwman @ Kevin Bouwman on Jun 26, 2017 6:15 PM
  Mark Correct
  Correct Answer
  I merged this macro with my SaveAs JPG macro and then converted it to a #Task script. Friday night, after I went home, my computer created thumbnails of all the parts in my design library and placed them in the folder my ERP system looks in for part images. What a major time saver.
  
  For newly designed parts I would love to tag the macro onto the normal file save routine. Is that possible? With this, every part or assembly created or modified would automagically create and maintain its own thumbnail. Can I have a macro that is triggered by file save events?
  Like • Show 3 Likes3
  Actions
  - Deepak Gupta @ Kevin Bouwman on Jun 27, 2017 12:17 AM
    Mark Correct
    Correct Answer
    Try the macro codes shared by Artem here: https://forum.solidworks.com/message/117614#comment-117614
    Like • Show 1 Like1
    Actions

How do you set part document window size to 450 x 300 pixels with a macro?

Outcomes

Related Content

Recommended Content