how to open all drawings in an assembly , there is an automatic and fast way ?
You can use References Extractor to open all drawings. Please see the short (1 minute) demonstration video in the attachment.
Don't think there's a way. Why would want to do it that way? all at once
In fact I wonder if all parties have drawings, and open the drawings to conference without having to open parts by parts, I do not use pdm.
I'd have to agree with Todd Bush but if there is a way I'd love to hear it as well. We have PDM Standard (or whatever comes as the "freebie" PDM w/ SW) and when opening an assembly a lot of times we want to open the majority of part drawings as well.
You can [ctrl] select everything you want from the vault to open them all at the same time but it only ever allows ownership of one file, go figure. You then have to go back and select everything from the vault again and take ownership.
The way I do it is use multiple sheet drawings for the entire assembly, I open one file and all the information for that project is right there.
I get it, but for me it would be even more complicated.
If the drawing are in one folder you can highlight them all and select open, or try it in widows explorer....
Yes, but there are thousands of drawings.
File/open, browse to folder, Cntrl or shift -select all drawings, open.
Depending on your memory and size of files, it may slow down your system.
thank you, but if I do this, find the file per file, besides not being easy is nothing fast. but thanks for the tip.
I see that there is no quick way to do this, in the solidworks there is no option for this case, I using the command file / pack and go, would select the drawings, saved in another folder, and there I open all drawings and after conference, I copy the files and saved in the correct folder.
You want to open thousands at once?
Ok just for kicks and giggles - You would need to open 8.22 drawings per minute to open 3,500 in an 8 hour shift.... wow speedo gonzalliss
Shift select all the slddrw's in Windows Explorer and drag them into the SolidWorks graphics area.
This assumes all the drawings are in the same folder in the Windows directory. Sort by file type to make your selection easier.
I wrote a macro to do exactly this. We use configurations on our parts/assemblies, so the macro actually has two modes, to either open the drawings of each configuration of the active model, or all drawings of the components of the current configuration of the active assembly. Below is the subroutine for opening the drawings of the components of the assembly.
This code likely won't work for you as-is, since we store drawing numbers for each configuration in a custom property, but you can hopefully modify for your situation. This also assumes the drawing is stored in the same directory as the model. And if you are using EPDM you'd need to add code to get local copies of the drawing files before attempting to open them.
Dim componentArr As Variant
Dim component As Variant
Dim notFoundName As Variant
Dim tempName As Variant
Dim folderPath As String
Dim pathName As String
Dim msgBoxStr As String
Dim engDrawName As String
Dim longstatus As Long
Dim longwarnings As Long
Dim count As Integer
Dim assemDoc As AssemblyDoc
Dim assemComp As Component2
Dim drawNameArr As Variant
Set notFound = New Collection
count = 0
Set assemDoc = swModel
componentArr = assemDoc.GetComponents(True)
If UBound(componentArr) > 10 Then
If MsgBox("There are " & UBound(componentArr) & " components. This could take a while. " & _
"Are you sure you want to proceed?", vbYesNo) = vbNo Then End
For Each component In componentArr
Set assemComp = assemDoc.GetComponentByName(component.Name2)
If assemComp.GetSuppression() = swComponentLightweight Then _
If assemComp.GetSuppression() = swComponentSuppressed Then
Set swModel = assemComp.GetModelDoc
folderPath = swModel.GetPathName
folderPath = Left(folderPath, InStrRev(folderPath, "\"))
engDrawName = swModel.CustomInfo2(component.ReferencedConfiguration, "ENG_DWG_NO")
For Each tempName In drawNameArr
If tempName = engDrawName Then GoTo skipComp
ReDim Preserve drawNameArr(count)
drawNameArr(count) = engDrawName
count = count + 1
pathName = folderPath & engDrawName & ".SLDDRW"
swApp.OpenDoc6 pathName, swDocDRAWING, swOpenDocOptions_Silent, "Default", longstatus, longwarnings
If longstatus = swFileNotFoundError Then notFound.Add engDrawName & ".SLDDRW"
For Each notFoundName In notFound
If notFoundName <> Empty Then msgBoxStr = msgBoxStr & notFoundName & vbCrLf
If notFound.count > 0 Then MsgBox "The following drawings were not found:" & vbCrLf & msgBoxStr
If MsgBox("There are" & UBound(componentArr) & "components. This could take a while." &
that's great, thanks
Retrieving data ...