Преобразование всех файлов Solidworks в папке в макрос файлов шагов
Я искал и искал макрос, который при запуске преобразует файлы в этом месте в файлы .stp, и я наткнулся на следующее. как я могу манипулировать им, чтобы захватить следующий файл в папке и продолжить следующие файлы и преобразовать их, пока все файлы не будут преобразованы.
Dim swApp As Object
Тусклая деталь как объект
Dim FilePath как строка
Dim sFilePath как строка
Тусклый путь, размер как длинный
Dim PathNoExtention As String
Dim NewFilePath как строка
Dim FileLocation As String
Dim sPath As String
Тусклый я до тех пор, пока
Dim bRebuild как логическое
Dim bRet As Boolean
Dim sRev как строка
Dim nErrors пока долго
Dim nWarnings As Long
Подчиненный ()
Установите swApp = Application.SldWorks
Установите Part = swApp.ActiveDoc
FilePath = Part.GetPathName
Размер пути = Strings.Len (путь к файлу)
sPath = Left (Part.GetPathName, InStrRev (Part.GetPathName, "\"))
sRev = Part.CustomInfo ("re") 'Здесь измените имя свойства конфигурации
FileLocation = "C:"
PathNoExtension = Strings.Left (путь к файлу, размер пути - 7)
Part.SaveAs (PathNoExtension & "rev" & sRev & ".step")
Конец подписки
Ответы 1
Вы можете сделать это несколькими способами, если не используете макрос VB6. Если вы используете макрос .NET (Visual Basic или C#), они поддерживают библиотеки .NET, что делает этот процесс довольно простым. Я создал следующее консольное приложение на C#. Вы можете создать то же самое, что и макрос .NET в SolidWorks. Важная вещь, которую нужно добавить к приведенному вами примеру, - это оператор foreach, который будет перебирать все файлы в каталоге и выполнять перевод только для деталей или сборок SolidWorks.
using SolidWorks.Interop.sldworks;
using System;
using System.IO;
namespace CreateStepFiles
{
class Program
{
static SldWorks swApp;
static void Main(string[] args)
{
string directoryName = GetDirectoryName();
if (!GetSolidWorks())
{
return;
}
int i = 0;
foreach (string fileName in Directory.GetFiles(directoryName))
{
if (Path.GetExtension(fileName).ToLower() == ".sldprt")
{
CreateStepFile(fileName, 1);
i += 1;
}
else if (Path.GetExtension(fileName).ToLower() == ".sldasm")
{
CreateStepFile(fileName, 2);
i += 1;
}
}
Console.WriteLine("Finished converting {0} files", i);
}
static void CreateStepFile(string fileName, int docType)
{
int errors = 0;
int warnings = 0;
ModelDoc2 swModel = swApp.OpenDoc6(fileName, docType, 1, "", ref errors, ref warnings);
string stepFile = Path.Combine(Path.GetDirectoryName(fileName), Path.GetFileNameWithoutExtension(fileName), ".STEP");
swModel.Extension.SaveAs(stepFile, 0, 1, null, ref errors, ref warnings);
Console.WriteLine("Created STEP file: " + stepFile);;
swApp.CloseDoc(fileName);
}
static string GetDirectoryName()
{
Console.WriteLine("Directory to Converty");
string s = Console.ReadLine();
if (Directory.Exists(s))
{
return s;
}
Console.WriteLine("Directory does not exists, try again");
return GetDirectoryName();
}
static bool GetSolidWorks()
{
try
{
swApp = (SldWorks)Activator.CreateInstance(Type.GetTypeFromProgID("SldWorks.Application"));
if (swApp == null)
{
throw new NullReferenceException(nameof(swApp));
}
if (!swApp.Visible)
{
swApp.Visible = true;
}
Console.WriteLine("SolidWorks Loaded");
return true;
}
catch (Exception)
{
Console.WriteLine("Could not launch SolidWorks");
return false;
}
}
}
}
Вы можете изменить функцию, чтобы она принимала параметр, являющийся расширением файла. Например, измените метод на static void CreateStepFile (string filename, int docType, string extension) {string stepFile = Path.Combine (Path.GetDirectoryName (fileName), Path.GetFileNameWithoutExtension (fileName), ".", Extension); }
Не могли бы вы рассказать мне, как запустить этот файл - я имею в виду, как настроить среду разработки и запустить функциональность, любые ссылки на нее и т. д.
Спасибо, Джереми, я попробую. Если бы я хотел использовать другой тип файла, например, parasolid, все, что мне нужно было бы сделать, это изменить пошаговую функцию и приспособить ее для parasolid?