SolidWorks PDM二次开发---连接PDM

54 篇文章 15 订阅

我们今天开始PDM开发学习的第一步—连接到PDM!

好像不是第一步,第一步应该是环境安装。这个我就不讲了,基本上安装上就行了。
环境ok的话,管理端界面(我新建了一个PDMTraining的库)
在这里插入图片描述
本地库界面:(里面文件夹是我新建的)
在这里插入图片描述
好了,现在我们看下怎么操作:
新建一窗口程序 ,然后设计一个高大上的页面,加上一个按钮!
如下图:
在这里插入图片描述
增加PDM库的引用:
在这里插入图片描述
然后贴下代码:

    private void btnConnectToPDM_Click(object sender, EventArgs e)
        {
            try
            {
                //new 一个库对象
                var vault = new EdmVault5();
                //登陆到库中   -有好几种api,大家自己查询 
                vault.LoginAuto("PDMTraining", this.Handle.ToInt32());

                //如果用户登录成功,显示下本地库根目录路径
                if (vault.IsLoggedIn)
                {
                    MessageBox.Show(vault.RootFolderPath);
                }




                string message = "";
                IEdmFile5 file5 = null;  //文件对象
                IEdmFolder5 folder5 = null; //文件夹对象
                folder5 = vault.RootFolder; //根目录

                IEdmPos5 pos5 = null;
                pos5 = folder5.GetFirstFilePosition();  //第一个文件
                if (pos5.IsNull)
                {
                    message = "The root folder of your vault does not contain any files";
                    MessageBox.Show(message);
                    return;
                }

                message = "The root folder of your vault contains these files:" + "\n";

                //获取所有文件
                while (!pos5.IsNull)
                {
                    file5 = folder5.GetNextFile(pos5);
                    message = message + file5.Name + "\n";
                }

                MessageBox.Show(message);
            }
            catch (System.Runtime.InteropServices.COMException ex)
            {
                MessageBox.Show("Hresult=0x" + ex.ErrorCode.ToString("x") + "\n" + ex.Message);
            }
            catch (Exception exception)
            {
                Console.WriteLine(exception);
                throw;
            }
        }

当前库状态:
在这里插入图片描述

结果提示:

在这里插入图片描述

好了,说明我们连接成功了,并且递归显示了文件的路径。

还是老样子,上码云下载源码:
https://gitee.com/painezeng/solidworks-pdmprofessional-apistudy

觉得写的马马虎虎,能看的过去的,麻烦加个关注,点个赞。
有钱的打个赏,没钱的尽量打个赏。哈哈

  • 16
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 8
    评论
solidworks PDM是一款用于管理和控制Solidworks CAD文件的软件,它提供了许多功能,如版本控制、协作、审批、工作流等。而二次开发则是在PDM的基础上进行开发,以满足特定的需求。以下是solidworks PDM二次开发的一些常见操作: 1. 使用PDM API进行二次开发 ```vb.net Dim vault As IEdmVault5 = New EdmVault5() Dim login As Boolean = vault.Login("VaultAdmin", "password", "Vault1") If login Then Dim folder As IEdmFolder5 = vault.GetFolderFromPath("C:\PDM\NewFolder") If folder IsNot Nothing Then Dim newFolder As IEdmFolder5 = folder.AddFolder(Nothing, "NewSubFolder") If newFolder IsNot Nothing Then Console.WriteLine("New folder created successfully!") End If End If End If ``` 2. 使用PDM add-in进行二次开发 ```vb.net Public Class MyAddIn Implements IEdmAddIn5 Private vault As IEdmVault5 Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd If poCmd.meCmdType = EdmCmdType.EdmCmd_Menu Then If poCmd.mlCmdID = 1 Then Dim folder As IEdmFolder5 = vault.GetFolderFromPath("C:\PDM\NewFolder") If folder IsNot Nothing Then Dim newFolder As IEdmFolder5 = folder.AddFolder(Nothing, "NewSubFolder") If newFolder IsNot Nothing Then MsgBox("New folder created successfully!") End If End If End If End If End Sub Public Sub OnConnect(ByVal poVault As EdmVault5) Implements IEdmAddIn5.OnConnect vault = poVault End Sub Public Sub OnDisconnect() Implements IEdmAddIn5.OnDisconnect vault = Nothing End Sub End Class ``` 3. 使用PDM Task进行二次开发 ```vb.net Public Class MyTask Implements IEdmAddIn5 Private vault As IEdmVault5 Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd ' do nothing End Sub Public Sub OnConnect(ByVal poVault As EdmVault5) Implements IEdmAddIn5.OnConnect vault = poVault End Sub Public Sub OnDisconnect() Implements IEdmAddIn5.OnDisconnect vault = Nothing End Sub Public Sub OnTaskRun(ByVal poVault As EdmVault5, ByVal poTask As EdmTask, ByVal hJob As Long) Implements IEdmAddIn5.OnTaskRun Dim folder As IEdmFolder5 = vault.GetFolderFromPath("C:\PDM\NewFolder") If folder IsNot Nothing Then Dim newFolder As IEdmFolder5 = folder.AddFolder(Nothing, "NewSubFolder") If newFolder IsNot Nothing Then poTask.SetTaskResult(EdmTaskResult.EdmTaskResult_Success) Else poTask.SetTaskResult(EdmTaskResult.EdmTaskResult_Failure) End If Else poTask.SetTaskResult(EdmTaskResult.EdmTaskResult_Failure) End If End Sub End Class ```

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 8
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Paine Zeng

如果对有帮助,请我喝咖啡吧

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值