Imports System

Imports System.Collections.Generic

Imports System.IO

Imports System.Runtime.InteropServices

Imports EdmLib

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

​

Namespace PdmMacroAddIn

        ''' Cannot convert ClassDeclarationSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.AttributeSyntax'.

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.<VisitAttributeList>b__16_0(AttributeSyntax a)

'''    at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()

'''    at Microsoft.CodeAnalysis.VisualBasic.SyntaxFactory.SeparatedList[TNode](IEnumerable`1 nodes)

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAttributeList(AttributeListSyntax node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.VisitAttributeList(AttributeListSyntax node)

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.<VisitClassDeclaration>b__23_1(AttributeListSyntax a)

'''    at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()

'''    at Microsoft.CodeAnalysis.SyntaxList`1.CreateNode(IEnumerable`1 nodes)

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitClassDeclaration(ClassDeclarationSyntax node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

'''     [ComVisible(true)]

    [Guid("D07B8F24-3B1B-4C99-BF44-8F6E3E3F4A4A")]  // Yeni GUID oluşturabilirsiniz

    public class PdmMacroAddIn : IEdmAddIn5

    {

        private const string VaultName = "CRYSTAL";  // PDM kasası adı

​

        public void GetAddInInfo(ref EdmAddInInfo info, IEdmVault5 vault, IEdmCmdMgr5 cmdMgr)

        {

            info.mbsAddInName = "PDM Yeniden Oluştur Görevi";

            info.mbsCompany = "CRYSTAL";

            info.mlRequiredVersionMajor = 20;

            info.mlRequiredVersionMinor = 0;

​

            // Menüye komut ekleyelim

            cmdMgr.AddCmd(1, "Yeniden Oluştur Görevi", (int)EdmMenuFlags.EdmMenu_Nothing);

        }

​

        public void OnCmd(ref EdmCmd cmd, ref EdmCmdData[] ppoData)

        {

            if (cmd.meCmdType == EdmCmdType.EdmCmd_Menu && ppoData.Length > 0)

            {

                string filePath = ppoData[0].mbsStrData1;

                ProcessFile(filePath);

            }

        }

​

        private void ProcessFile(string partFilePath)

        {

            IEdmVault5 vault = new EdmVault5();

            try

            {

                vault.LoginAuto(VaultName, 0);

                if (!vault.IsLoggedIn)

                {

                    LogError("PDM giriş başarısız! Vault adı veya yetkiler kontrol edilmeli.");

                    return;

                }

​

                IEdmFile5 file = vault.GetFileFromPath(partFilePath, out IEdmFolder5 folder);

                if (file == null)

                {

                    LogError($"Dosya bulunamadı: {partFilePath}");

                    return;

                }

​

                // Dosya kilitli mi kontrol et

                file.GetLockInfo(out IEdmUser5 user, out _, out _);

                if (user != null)

                {

                    LogError($"Dosya başka bir kullanıcı tarafından alınmış: {user.Name}");

                    return;

                }

​

                string previousState = GetFileState(file);

                Log($"Dosyanın mevcut durumu: {previousState}");

                List<string> relatedFiles = GetWhereUsedFiles(vault, file);

                Log($"Bulunan ilişkili dosya sayısı: {relatedFiles.Count}");

​

                UpdateSolidWorksFiles(relatedFiles, vault);

                if (previousState == "Onaylandı")

                {

                    SetFileState(file, "Onaylandı");

                }

​

                LogSuccess("İşlem tamamlandı.");

            }

            catch (Exception ex)

            {

                LogError($"Beklenmedik hata: {ex.Message}");

            }

            finally

            {

                Marshal.FinalReleaseComObject(vault);

            }

        }

​

        private void UpdateSolidWorksFiles(List<string> files, IEdmVault5 vault)

        {

            try

            {

                SldWorks swApp = Marshal.GetActiveObject("SldWorks.Application") as SldWorks;

                if (swApp == null)

                {

                    Log("SolidWorks başlatılıyor...");

                    swApp = new SldWorks { Visible = false };

​

''' 

End Namespace

​

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'foreach (string file in fil...' at character 3542

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' 

                foreach (string file in files)

                {

                    string extension = Path.GetExtension(file).ToLower();

                    int docType = extension switch

                    {

                        ".sldprt" => (int)swDocumentTypes_e.swDocPART,

                        ".sldasm" => (int)swDocumentTypes_e.swDocASSEMBLY,

                        ".slddrw" => (int)swDocumentTypes_e.swDocDRAWING,

                        _ => -1

                    };

                    if (docType == -1) continue;

​

                    ModelDoc2 doc = swApp.OpenDoc6(file, docType, (int)swOpenDocOptions_e.swOpenDocOptions_Silent, "", out int errors, out int warnings);

                    if (doc != null)

                    {

                        Log($"Güncelleniyor: {file}");

                        doc.ForceRebuild3(false);

                        bool saveSuccess = doc.Save3((int)swSaveAsOptions_e.swSaveAsOptions_SaveReferenced, errors, warnings);

                        if (!saveSuccess) LogError($"Dosya kaydedilemedi: {file}");

                        swApp.CloseDoc(file);

​

                        IEdmFile5 edmFile = vault.GetFileFromPath(file, out IEdmFolder5 folder);

                        edmFile.LockFile(folder.ID, 0);

                        edmFile.CheckIn(folder.ID, 0, "Dosya Yeniden Oluşturuldu");

                        LogSuccess($"Güncellendi ve PDM'e yüklendi: {file}");

                    }

                }

​

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'swApp.ExitApp();' at character 5107

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

'''                 swApp.ExitApp();

            }

            catch 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '(Exception ' at character 5156

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' (Exception 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'ex)

   {

    LogError($"' at character 5167

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' ex)

            {

                LogError($"

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'SolidWorks işlemi hatası' at character 5217

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' SolidWorks işlemi hatası: 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '{ex.Message}' at character 5243

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' {ex.Message}

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '"' at character 5255

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' ")

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in ';' at character 5262

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' ;

            }

        }

​

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'private void Log(string mes...' at character 5297

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' 

        private void Log(string message) 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '=>' at character 5330

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' => 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'Console.WriteLine(message);' at character 5336

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' Console.WriteLine(message);

​

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'private void LogSuccess(str...' at character 5372

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

'''         private void LogSuccess(string message) 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '=>' at character 5412

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' => 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'Console.WriteLine("' at character 5418

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' Console.WriteLine("✔ 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '"' at character 5444

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' " 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '+ message' at character 5451

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' + message)

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in ';' at character 5461

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' ;

​

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'private void LogError(strin...' at character 5471

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

'''         private void LogError(string message) 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '=>' at character 5509

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' => 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in 'Console.WriteLine("' at character 5515

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' Console.WriteLine("❌ 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '"' at character 5541

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' " 

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in '+ message' at character 5548

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' + message)

''' 

''' Cannot convert GlobalStatementSyntax, CONVERSION ERROR: Conversion for GlobalStatement not implemented, please report this issue in ';' at character 5558

'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

''' 

''' Input: 

''' ;

    }

​

''' 

​