本工具为原创！ 本工具基于VB语言，采用Excel里的VBA开发而成，程序简单，但实用性还是有一点点的！纯属起抛砖引玉的作用！ 文件打开时，请确保“宏安全性”为“低”，要不然没办法运行！请放心，绝对无病毒！ 运行程序时，请确保pcdmis已打开，且有零件程序被打开并有特征元素，才能看出效果！ 不知道是不是海克斯康公司的人不允许讨论二次开发还是怎地，感觉好少有人讨论二次开发啊！ 程序代码如下： ------------------------------------------------------------------------------------ Private Sub CommandButton1_Click() On Error GoTo abc: Dim app As Object Set app = CreateObject("pcdlrn.application") Dim part As Object Set part = app.ActivePartProgram Dim cmds As Object Set cmds = part.Commands Dim cmd As PCDLRN.Command Dim featName As String Dim measX, measY, measZ As String Dim theoX, theoY, theoZ As String Dim ii As Integer ii = 2 For Each cmd In cmds If cmd.IsMeasuredFeature Or cmd.IsDCCFeature Then featName = cmd.ID measX = cmd.GetText(MEAS_X, 0) measY = cmd.GetText(MEAS_Y, 0) measZ = cmd.GetText(MEAS_Z, 0) theoX = cmd.GetText(THEO_X, 0) theoY = cmd.GetText(THEO_Y, 0) theoZ = cmd.GetText(THEO_Z, 0) Cells(ii, 1) = featName Cells(ii, 2) = theoX Cells(ii, 3) = theoY Cells(ii, 4) = theoZ Cells(ii, 5) = measX Cells(ii, 6) = measY Cells(ii, 7) = measZ ii = ii + 1 End If Next Exit Sub abc: MsgBox "pcdmis没有打开" End Sub --------------------------------------------------------------------------------------------- 下载附件的友友顶一下啊，不顶不厚道！呵呵! 有兴趣的朋友，加QQ859027136讨论一下，加好友验证时，请注明“测量”字样！

一定要顶一下 ，确实是很想学习一下，论坛里也确实是没有:strong: 不知道你这个小程序能起到什么作用啊？

将程序中特征的名字，测量值和理论值放入excel中的每一行中。

顶一个，希望后续这样的二次开发能多点。

顶一个，希望后续能有我想要的二次开发。

谢谢楼主分享哦 呵呵

谢谢分享

[attachimg]1601[/attachimg] 这是什么意思，我的版本问题？

回复楼上，你要在宏编译器中，添加引用，找到你机器上安装的pcdmis类库才行。

Alt+F11,打开VBA编程器，点“工具-引用”，如图： [attachimg]1602[/attachimg] 弹出以下对话框：保证"PC-Dmis 4.2Object Library"是勾选上的，如果你的电脑上装的是其他版本，那个4.2就是你对应的版本号。如果没有勾选，请往下面找 [attachimg]1603[/attachimg] 当然，请确保你的电脑里面装了pcdmis软件，本工具基于pcdmis4.2mr1的二次开发接口开发而成！能否用于其他版本，请自行测试！ 引用pcdmis接口后，请把PCDMISW.Command 改成PCDLRN.Command 最关键的一点，确保你的电脑装了pcdmis。