本工具为原创！ 本工具基于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讨论一下，加好友验证时，请注明“测量”字样！