求助：Solidworks工程图打印的问题

梦醒丶莫言情ㄣ 发表于 2016-3-31 09:40:57

求助：Solidworks工程图打印的问题

公司的SOLIDWORKS工程图里有两页图，分别是零件图和展开图，每次打印的话在打印窗口里打印范围默认所有图纸，如果不选当前图纸的话每次打印就是打印两页，但实际上只需要打印零件图就好，很多时候都会忘记点选当前图纸，所以想请问有没有什么方法是可以把打印范围默认为当前图纸？

zhuyumin 发表于 2016-3-31 12:00:55

大神们都在那里？

hnbe 发表于 2016-3-31 17:15:33

這是個實際的問題，我也想知道答案~

鹰之也 发表于 2016-3-31 17:48:27

这贴石沉大海了吗？有没有大神指导一下。

bbqchu88 发表于 2016-3-31 20:15:19

工作要细心的，都到了最后一步了，好好看看吧

Thomson 发表于 2016-4-1 00:45:17

做个便利贴粘在旁边提醒自己？？？

muyinan2008 发表于 2016-4-1 01:12:05

受到樓下銀口人批評，撤回帖子。

〆﹏焚心劫 发表于 2016-4-1 12:59:49

实际上还是自己注意比较好，你真使用了楼上的宏命令，就会养成依赖的坏习惯，到了没有宏命令的电脑上，你习惯了，就惨了。而且有个逻辑矛盾在那，你都设置好了页面设置，还能无视打印选项，你的神经有多大条。
为什么默认是打印所有图纸，因为solidworks认为你既然是多页工程图，要打印，一定是全打印的。怎么说呢，也对，但不完美。因为没有更改默认设置的选项，应该给予用户选择权，用户愿意怎么打印就怎么打印。

yanglvxian 发表于 2016-4-1 15:01:24

关于这个问题有时候确实会忘记选择，我相信大家有时候也会忽略掉，这样子太浪费纸张，有改善的方法那是最好的，没有的话就只能自己多注意。

xchok 发表于 2016-4-1 22:23:18

别急着删啊，不管是否实用，让我学习下也好啊

pangcaijie 发表于 2016-4-1 23:13:12

这个也是实际问题，可惜没看到解决办法

86muju 发表于 2016-4-2 06:42:17

也只能这样了

冯宇发表于 2016-4-2 06:45:07

不明白有零件图要展开图做啥，如果是下料直接导出DXF 文件，不就好了

FrancKim 发表于 2016-4-2 17:02:11

你必须每次点击当前图纸，其他没有任何办法

wangjianxww 发表于 2016-4-2 17:04:22

Option Explicit
' Define user type to reduce the number of #If VBA7 statements
' Can't eliminate them...
Private Type LongPtr_T
#If VBA7 Then
Value As LongPtr
' Compare automatically resized LongPtr to fixed size Long and LongLong
#Else
Value As Long
#End If
End Type
' Win32 data type. Different signatures for different versions of VBA
Private Type BROWSEINFO
#If VBA7 Then
hWndOwner    As LongPtr
pIDLRoot    As LongPtr
pszDisplayNameAs Long
lpszTitle    As String
ulFlags       As Long
lpfnCallback As LongPtr
lParam       As Long
iImage       As Long
#Else
hWndOwner As Long
pIDLRoot    As Long
pszDisplayNameAs Long
lpszTitle    As String
ulFlags       As Long
lpfnCallback As Long
lParam       As Long
iImage       As Long
#End If
End Type
Private Const MAX_PATH = 260
'Directories only
Private Const BIF_RETURNONLYFSDIRS = &H1&
'Windows 2000 (Shell32.dll 5.0) extended dialog
Private Const BIF_NEWDIALOGSTYLE = &H40
' show edit box
Private Const BIF_EDITBOX = &H10&
Private Const WM_USER = &H400
Private Const BFFM_INITIALIZED = 1
Private Const BFFM_SELCHANGED = 2
Private Const BFFM_SETSTATUSTEXTA = (WM_USER + 100)
Private Const BFFM_SETSELECTIONA = (WM_USER + 102)
Private Const BFFM_SETEXPANDED = (WM_USER + 16)
Private m_sDefaultFolder As String
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Private Const SWP_NOZORDER = 4
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
' Win32 API declarations. Different signatures for different versions of VBA.
' Note the mandatory use of PtrSafe keyword in VBA7.
#If VBA7 Then
Private Declare PtrSafe Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As LongPtr, ByVal lpBuffer As String) As Long
Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As LongPtr)
Private Declare PtrSafe Function SetWindowPos Lib "USER32" (ByVal hWnd As LongPtr, _
                                    ByVal hWndInsertAfter As LongPtr, _
                                    ByVal x As Long, _
                                    ByVal y As Long, _
                                    ByVal cx As Long, _
                                    ByVal cy As Long, _
                                    ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetWindowRect Lib "user32.dll" (ByVal hWnd As LongPtr, lpRect As RECT) As Long
#Else
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long)
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
                                    ByVal hWndInsertAfter As Long, _
                                    ByVal x As Long, _
                                    ByVal y As Long, _
                                    ByVal cx As Long, _
                                    ByVal cy As Long, _
                                    ByVal wFlags As Long) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long
#End If
Private lastKnownPosition As RECT
Private lockLastKnownPosition As Boolean
Public Function BrowseForFolder() As String
Dim tBI       As BROWSEINFO
Dim lngPIDL As LongPtr_T
Dim strPath As String

With tBI
.lpszTitle = "Select the folder you want to use."
' TO DO: Do you want the new UI? Or the initial selected folder visible when the dialog opens?
' Choose one of the following:
'New UI. Selected folder is probably out of view.
.ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
' ... or ...
' Old UI. Selected folder is scrolled into view when dialog opens.
'.ulFlags = .ulFlags = BIF_RETURNONLYFSDIRS
' ... or ...
' Old UI with edit box. Selected folder is scrolled into view when dialog opens.
' Focus defaults to the edit box making the selected folder less obvious in the tree.
'.ulFlags = .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_EDITBOX

.lpfnCallback = GetAddress(AddressOf BrowseCallbackProc).Value
End With

lockLastKnownPosition = True
lngPIDL.Value = SHBrowseForFolder(tBI)
If (lngPIDL.Value <> 0) Then
' get path from ID list
strPath = Space$(MAX_PATH)
SHGetPathFromIDList lngPIDL.Value, strPath
strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)
' release list
CoTaskMemFree lngPIDL.Value
End If
BrowseForFolder = strPath
End Function
' Callback function for Win32 API.
' Must conform to the expected method signature therefore cannot use our LongPtr_t
#If VBA7 Then
Private Function BrowseCallbackProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
#Else
Private Function BrowseCallbackProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
#End If
   ' If dialog has been initialised, record its current location
   If Not lockLastKnownPosition Then
         GetWindowRect hWnd, lastKnownPosition
   End If

   Select Case uMsg
   Case BFFM_INITIALIZED
         ' Start recording the dialogs location
         lockLastKnownPosition = False

         If Len(m_sDefaultFolder) > 0 Then
            ' Move the dialog to the last recorded position
            SetWindowPos hWnd, 0, lastKnownPosition.Left, lastKnownPosition.Top, 0, 0, SWP_NOSIZE + SWP_NOZORDER
            ' Set the selected folder
            SendMessage hWnd, BFFM_SETSELECTIONA, True, ByVal m_sDefaultFolder
         End If
   Case BFFM_SELCHANGED
         SendMessage hWnd, BFFM_SETEXPANDED, True, ByVal m_sDefaultFolder
   End Select
End Function
' Workaround for syntax limitation of AddressOf. Can only use in a function call, not an assignment
#If VBA7 Then
Private Function GetAddress(nAddress As LongPtr) As LongPtr_T
#Else
Private Function GetAddress(nAddress As Long) As LongPtr_T
#End If
Dim address As LongPtr_T
address.Value = nAddress
GetAddress = address
End Function

复制代码

在途中 发表于 2016-4-2 17:08:44

不好意思，我没用过宏，所以我把这段代码输进去以后没法运行，请问是怎么回事？

andu2012 发表于 2016-4-2 21:48:57

請問這段代碼的作用是什麼呢？:doubt

.........111 发表于 2016-4-2 23:11:05

估计printout2语名可以用于打印宏吧,实现当前图纸的打印,以下是该语名的帮助说明,把起始页和终止页都设为当前页
Dim instance As IModelDoc
Dim FromPage As Integer
Dim ToPage As Integer
Dim NumCopies As Integer
Dim Collate As Boolean
Dim Printer As String
Dim Scale As Double
Dim PrintToFile As Boolean
Dim PtfName As String

instance.PrintOut2(FromPage, ToPage, NumCopies, Collate, Printer, Scale, PrintToFile, PtfName)

Scv.5817926 发表于 2016-4-3 03:20:09

拼一个宏:在多页工程图中直接打印当前图纸solidworks机械工程师论坛

z63000 发表于 2016-4-3 09:27:18

谢谢楼上神人。可是代码加密了，声称学习的淫情何以堪。https://www.swbbsc.com/static/image/smiley/default/sad.gif

页: [1] 2

SolidWorks机械工程师网——最大的SolidWorks学习平台《快捷浏览页面》

求助：Solidworks工程图打印的问题