I would like to be able to process all files in a folder and have them converted to dwg
i recorded this macro but was not sure how to get it to automatically process all the files
any help would be appricated
I would like to be able to process all files in a folder and have them converted to dwg
i recorded this macro but was not sure how to get it to automatically process all the files
any help would be appricated
dim ext as SwConst.swDocumentTypes_e
dim mydir as System.IO.DirectoryInfo
mydir =new System.IO.DirectoryInfo(Path)
for each System.IO.FileInfo myFile in myDir.GetFiles("*.Sld*",IO.SearchOption.[TopDirectoryOnly]/[All]Directory)
if(myfile.Extension.toUppder()=".SLDPRT) then
ext=SwConst.swDocumentTypes_e.swDocPART
else
ext=SwConst.swDocumentTypes_e.swDocASSEMBLY
end if
part.openDoc(myFile.FullName,ext)
part.saveAs(NewFilename.dwg)
part.close()
next
''Wote off the top of my head but that is about it
using SolidWorks.Interop.sldworks;
using SolidWorks.Interop.swconst;
using System;
using System.IO;
using System.Windows.Forms;
namespace ToDWG.csproj
{
public partial class SolidWorksMacro
{
public SldWorks swApp;
public IModelDoc2 swModel;
public string folder;
public string[] files;
public string result;
public void Main()
{
FolderBrowserDialog fb = new FolderBrowserDialog();
if (fb.ShowDialog() == DialogResult.OK)
{
folder = fb.SelectedPath;
files = Directory.GetFiles(folder);
int errors = 0, warnings = 0;
foreach (string file in files)
{
FileInfo fi = new FileInfo(file);
if (fi.Extension.ToLower() == ".sldasm")
{
//Do Nothing
}
if (fi.Extension.ToLower() == ".sldprt")
{
//Do Nothing
}
if (fi.Extension.ToLower() == ".slddrw")
{
swModel = swApp.OpenDoc6(file, (int)swDocumentTypes_e.swDocDRAWING, (int)swOpenDocOptions_e.swOpenDocOptions_Silent, "", ref errors, ref warnings);
swModel.Extension.SaveAs(fi.Name.Remove(fi.Name.LastIndexOf(".")) + ".DWG", (int)swSaveAsVersion_e.swSaveAsCurrentVersion, (int)swSaveAsOptions_e.swSaveAsOptions_Silent, null, ref errors, ref warnings);
result += file + "\n";
swApp.QuitDoc(file);
}
}
swApp.SendMsgToUser2("Files saved to DWG: \n" + result, (int)swMessageBoxIcon_e.swMbInformation, 0);
}
}
}
}
---
Above code will open every drawing in a folder and save it to DWG..
This looks really good thanks
But now the next question
It looks like it is a .net program and i am not sure how to use or run it..
i have problay done more with visual basic and am not sure how to make use of this code
anyone wanting to give me some direction i would appricate it
thanks
This should Work I tested it
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
dim path as String
Dim file As String
Sub main()
path ="C:\Documents and Settings\BakerRob.PTT_LAN\My Documents\MGQ\"
Set swApp = Application.SldWorks
file = dir(path, vbNormal)
While file <> ""
If (Right(UCase(file), 7) = ".SLDDRW") Then
Set Part = swApp.OpenDoc6(path + file, 3, 0, "", longstatus, longwarnings)
Part.ViewZoomtofit2
longstatus = Part.SaveAs(path + Replace(file, "SLDDRW", "DRW"))
End If
file = dir
Wend
End Sub
That worked GREAT....Good job
thanks
can you maybe tell me what i could add to close the file after conversion?
also how i may be able to have a dialog box for the folder entry?
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
dim path as String
Dim file As String
Sub main()
path =InputBox("Message","Title", "C:\Documents and Settings\BakerRob.PTT_LAN\My Documents\MGQ\")
Set swApp = Application.SldWorks
file = dir(path, vbNormal)
While file <> ""
If (Right(UCase(file), 7) = ".SLDDRW") Then
Set Part = swApp.OpenDoc6(path + file, 3, 0, "", longstatus, longwarnings)
Part.ViewZoomtofit2
longstatus = Part.SaveAs(path + Replace(file, "SLDDRW", "DRW"))
End If
Part.Close
file = dir
Wend
End Sub
Message was edited by: Jacob Cordingley remove extra space in part .close
path =InputBox("Message","Title", "C:\Documents and Settings\BakerRob.PTT_LAN\My Documents\MGQ\")
make the last \ is needed
you can add
if(Right(path,1)<>"\") then
path=path+"\"
end if
When we convert to dwg we have the option set for 1 to 1 scale
so that they come out full scale in autocad we use the dwg file for NC programing
is there something that can be set to do this
Do You Need the Drawing set to One-to-One Before you convert to DWG?
everything we draw is full scale
when we do a conversion manually we have the option toggled that allows for the drawing to be converted 1 : 1
are you talking about when you go saveAs and select DWG then an options button show setting
yes thats it
on the options page
scale output 1:1
enable is checked
base scale is sheet scale=1/1 : count=1
I some what know, let me look in to it more
i may have found the issue
The drafter had disabled this on his machine
I had turned it on several weeks ago and for some reason he went in and turned it off
Yes
it is Application/User setting so if you turn it on it stays on
Is that it?
yep you are right
but as you know users like to go in and switch whatever they can get to...
i have several seats in kansas city, nashville and southeast kansas that i manage and all of them do it..
code set it
swApp.SetUserPreferenceIntegerValue swDxfOutputNoScale,1
swApp.SetUserPreferenceIntegerValue swDxfVersion,swDxfFormat_e.*
The form cut off the code
here it is
swApp.SetUserPreferenceIntegerValue swDxfOutputNoScale, 1
swApp.SetUserPreferenceDoubleValue swDxfOutputScaleFactor, 1
swApp.SetUserPreferenceIntegerValue swDxfVersion,swDxfFormat_e.*
*
swDxfFormat_R12
swDxfFormat_R13
swDxfFormat_R14
swDxfFormat_R2000
swDxfFormat_R2004
swDxfFormat_R2007
Did that answer Your Question?
if Yes Mark Answered
If you want to avoid driving your users mad, I would remember to toggle system/user preferences back to their original states at the end of your code. Below is an example in C# (go here if you want VB... http://www.developerfusion.com/tools/convert/csharp-to-vb/). This doesn't refer to your settings in particular but I would probably handle it in a somewhat similar fashion. The main point is to make a decent effort to restore original settings (good practice).
private void EditUserPreferencesExample()
{
bool bInputDimValOnCreate = _swApp.GetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate);
try
{
_swApp.SetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate, false);
//....
}
finally
{
_swApp.SetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate, bInputDimValOnCreate);
}
}
is there a way to be able to select a folder instead of having to enter it
also am getting an error on the close part
You might need to add a form to your macro
here is the error i am getting
object dosent support this action
try
swApp.CloseDoc(Part.GetPathName)
or
swapp.CloseAllDocuments
this will close all files open in SW
If you want to avoid driving your users mad, I would remember to toggle system/user preferences back to their original states at the end of your code. Below is an example in C# (go here if you want VB... http://www.developerfusion.com/tools/convert/csharp-to-vb/). This doesn't refer to your settings in particular but I would probably handle it in a somewhat similar fashion. The main point is to make a decent effort to restore original settings (good practice).
private void EditUserPreferencesExample()
{
bool bInputDimValOnCreate = _swApp.GetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate);
try
{
_swApp.SetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate, false);
//....
}
finally
{
_swApp.SetUserPreferenceToggle((int)swUserPreferenceToggle_e.swInputDimValOnCreate, bInputDimValOnCreate);
}
}